Excel VBA 質問スレ Part51

Excel VBA 質問スレ P ..

165:デフォルトの名無しさん
17/11/20 22:35:57.11 bUEYENj70.net
前スレ943様の下記ファイル、もう一度upしていただく訳にはいきませんでしょうか。
DLしようと思いながら、失念していて、先ほどしようとしたところ消えてしまっていました。
943様、お手数をおかけしますが何卒よろしくお願いいたします。
943デフォルトの名無しさん (ﾜｯﾁｮｲ 06e9-FqSh)2017/11/05(日) 15:01:02.75ID:2uRc+T650>>944 >>958
>>942
写真は辞めてくれ。見るのめんどくさい
出てきたからあげるわ
大体やりたいことはこれだと思う
・設定シートのB列に表示したいもの。C列は入力する文字を入れる
・入力シートのA1に「う」と入れて決定。リストが現れて「東京」「北海道」が現れるので選択する
もちろん「う」じゃなくても「東」なんかでもいい。場合によってはB列に「渋谷」とかいれてもいいかもしれない
URLﾘﾝｸ(dotup.org)
自分で言うのも何だがこれ超便利。かなりオススメ

166:デフォルトの名無しさん
17/11/20 23:57:02.00 3EUEsxu/0.net
こういう時はせめてエクセルアップロードできるアップローダーぐらい探してくると良いぞ

167:デフォルトの名無しさん
17/11/21 02:44:24.85 eIBN2cFq0.net
>>157
www
hogeをなんだと思ってる？
そりゃそのまま打てばEmptyが帰ってくるだろう。
hogeで察してくれんかね。
カラッポなのは誰の頭だよ。

168:デフォルトの名無しさん
17/11/21 13:03:45.67 OSkNtsZi0.net
途中経過はどうでもいいから結果を教えろ　って人間がどんどん増えてんだな　経営者かよ

169:デフォルトの名無しさん
17/11/21 16:28:44.72 7aGtp6cN0.net
結果はいいから途中経過を教えろ、なんて頭おかしいだろ何言ってんだか

170:デフォルトの名無しさん
17/11/21 17:41:32.87 rp//GM45a.net
>>163
普通は結果教えてもらうなら過程も学ぶんだよ
まあ、別に学びの場じゃないけどね
ただ、腐ってもプログラムだからな
結果だけ知ってもその場しのぎ以上にはならんだろ

171:デフォルトの名無しさん
17/11/21 18:15:13.21 22dwRLVAd.net
世の中は論理的にできているのに>>163が論理的でないのはなぜなのか

172:デフォルトの名無しさん
17/11/21 19:38:11.84 49Yzjg710.net
>>165
単に逆裏待遇を理解していないだけかと

173:デフォルトの名無しさん
17/11/21 21:45:55.72 vcSymdG+d.net
vbaを勉強中の者です。
市販で売られている本など調べても載っていないのですが、for文で使われる変数名が「i」ですが、なぜ「i」なのですか？
「i」の意味を教えて頂けませんか？
既出でしたらすみません

174:デフォルトの名無しさん
17/11/21 21:52:07.73 x41b941k0.net
>>167
iterationのiって事でいいじゃん

175:デフォルトの名無しさん
17/11/21 21:58:13.94 49Yzjg710.net
>>167
>168の通りだけど、もう完全に形骸化している
「i」でもいいし「ページ番号」など日本語表記でもいい
ちなみに俺は「k」から「ｍ」「l」「n」と続ける
単に見間違いにくいように

176:デフォルトの名無しさん
17/11/21 22:07:12.83 L3nv/JJz0.net
今グーグル先生に聞いたらFORTRANからの名残だってでてきた

177:デフォルトの名無しさん
17/11/21 22:14:29.41 wrH3tJZg0.net
>>170
昔読んだVBだかVBAだかの書籍にはトピックとして掲載してた書籍もあったような記憶が

178:デフォルトの名無しさん
17/11/21 22:17:05.57 vcSymdG+d.net
>>168-170
ありがとうございます！
ホント助かりました！
引っ掛かり進まなかったので、これで進みます。
納得できてよかったです
ありがとうございます

179:デフォルトの名無しさん
17/11/21 22:17:55.51 vcSymdG+d.net
>>171さんもレスありがとう！

180:デフォルトの名無しさん
17/11/21 22:18:54.65 2WJixd7Q0.net
integerのiだと思ってたわ

181:デフォルトの名無しさん
17/11/21 22:47:14.99 FV1Lkm8B0.net
>>167
数学でijkは行列などの添え字で使う。
fortranでネストしたループ回すときって、微分方程式を離散化したものを解いたりするパターンが多くて、
二次元や三次元の多次元配列を使ってるだろうから、自然とijkになる。
で、数学のiはintegerからきてる、といったぐあいでは？

182:デフォルトの名無しさん
17/11/21 23:38:11.98 vcSymdG+d.net
>>174、174
数学からなんですか？！
プログラムと数学は違うものと思っていました。ありがとう

183:デフォルトの名無しさん
17/11/22 06:03:08.32 nhDpu2iz0.net
今から60年前にアメリカのIBM社で開発されたFORTRAN(フォートラン)というコンピューター言語があって
そこで変数名の頭文字がI以降なら整数型と定義されたのが始まり
ループカウンターは整数だからFOR文でもIを使ったという歴史がある
一方で昔のBASIC言語ではすべての変数が実数型というのが基本仕様だったので、Iを使う意味はあまりなかったけど、
FORTRANに憧れた世代が書き方を真似してそのまま定着した
という年寄りの昔話

184:デフォルトの名無しさん
17/11/22 14:34:48.52 NEZKz7+Jn
質問です。

マクロ有効ブックがデスクトップにある時はマクロが動くのに
ブックが他のフォルダにあると、マクロが動きません。
原因が判る方いらっしゃいますでしょうか？

因みにコードは以下の通りです。シートコピーの所で躓きます。

Sub フォーム()
'フォームベースを日数分コピー

Dim fd As Date, ed As Date '月初月末
Dim x As Integer, i As Integer '日数とシート枚数
Dim ans '入力欄に入力された値

ans = Application.InputBox("YYYY/MM形式で入力")
fd = DateValue(ans & "/1") '年/月/1　日となる
ed = DateSerial(Year(fd), Month(fd) + 1, 0)
x = Day(ed) '月の日数

For i = 1 To (x - 1) '日数分のシートを生成

Sheets(1).Copy After:=Sheets(Sheets.Count)

Next i '繰り返し

Sheets(1).Range("F1").Value = DateSerial(Year(fd), Month(fd), 1)

End Sub

185:デフォルトの名無しさん
17/11/22 18:32:45.15 mA48vywq0.net
>>176
数学、論理学とは非常に近しいと思う。
関数型プログラミングてスタイルもあるし、
数学の証明をある程度自動化する言語もある。CoqとかAgdaとか。
VBAにもそろそろ高階関数が欲しいですね、MSさん期待してます。

186:デフォルトの名無しさん
17/11/22 18:50:12.14 k1sKIAfY0.net
愛があるからかと思った

187:デフォルトの名無しさん
17/11/22 18:53:30.30 /wgdkUUe0.net
ループカウンタにi、j、kを使うようになったのはC言語の影響が一番大きい。

188:デフォルトの名無しさん
17/11/22 20:12:17.87 Ce6/du3cM.net
どこまで使う？
自分はnまで。
ループ変数以外で1文字の変数は使わない。

189:デフォルトの名無しさん
17/11/22 20:20:06.35 t2AK8w6Da.net
出来ればkまでにしたいね。
実際は思うようにいかなくて俺もnぐらいまで使ったことある。
でも1文字辞めることもある。

190:デフォルトの名無しさん
17/11/22 20:57:00.17 fITl6ULj0.net
>>182
あんまり1文字変数は使わない
処理行数や処理列数などを使ってるわ
年取ると覚えるのが大変なんだよ

191:答えはI～N
17/11/22 21:18:19.80 W0SJQGiTM.net
>>177
> そこで変数名の頭文字がI以降なら整数型と定義されたのが始まり
嘘書くなよ...
X, Y, Z が整数型とかあり得んわ

192:デフォルトの名無しさん
17/11/22 21:46:50.38 T8s4U7Y50.net
最近デザパタに凝っててイテレーターパターンやってるけどなかなかいいよ
まあいかに多重ループしないかは大事だわ

193:デフォルトの名無しさん
17/11/22 21:49:25.89 HR2X/8WF0.net
イテレータと多重ループ回避って関係あったっけ？

194:デフォルトの名無しさん
17/11/22 21:55:38.62 T8s4U7Y50.net
>>187
いやまあ、見た目上ループ変数は減るからw
よってるからよくわからんなってるわ
すまん

195:デフォルトの名無しさん
17/11/22 22:48:54.39 HR2X/8WF0.net
VBAでイテレータパターンて難しそうだ
ループをなくす、って方向の方が良さそうです。

196:デフォルトの名無しさん
17/11/22 22:51:49.31 HR2X/8WF0.net
方向の方ｗ

197:デフォルトの名無しさん
17/11/22 23:20:15.38 pTVfJfW70.net
Excel2010です。
文字列を引数に文字列を返すユーザ定義関数を作りました。
アドインにしてチーム内に配布しようと思ってます。
試しに新規ブックで使ってみたところ、開くたびに変更していないのに保存確認メッセージが出るようになってしまいました。
関数の中の処理を全て消しても保存確認メッセージがでます。
文字列を返すだけの関数なので、保存確認メッセージを出ないようにしたいのですが、どうすればよいでしょうか。

198:デフォルトの名無しさん
17/11/23 00:02:49.97 Kpe6aW6i0.net
>>191
中身を見ないとわからない
Function Foo(bar As Long)
Foo = bar * 2
End Function
と作ってみたけど
＞開くたびに変更していないのに保存確認メッセージが出るようになってしまいました。
この減少は起きなかったよ
何か別の所に原因があると思う

199:デフォルトの名無しさん
17/11/23 06:39:11.72 Y2T7cP8D0.net
>>191
それって要するにvlookupの事？

200:デフォルトの名無しさん
17/11/23 13:05:29.27 IQVJTYbd0.net
>>192
簡単に書くとこんな感じの関数です。
Function Kubun(code as string) as string
if (left(code,3) = "123") then Kubun = "A"
end function
if文が大量に続くので共通化してアドインで配布しようと思ってます。
これをKubun.xlbとしてアドインフォルダに保存しました。
新規BookでセルA1に123、セルB1に =Kubun(A1) と入力したところ
セルB1にAと表示され、関数は機能しました。
その後保存した新規Bookを開き何もせず閉じようとすると保存確認メッセージがでます。

201:デフォルトの名無しさん
17/11/23 13:22:13.30 fJlhhdGs0.net
>>194
再計算されてるから
値は変化しないけどセルの内容は更新されていると予想

202:デフォルトの名無しさん
17/11/23 13:42:02.49 UTTVtMan0.net
>>194
アトインって *.xla じゃなかったっけ？
*.xlb だとなんかいいことあるの？
（ツールバー設定とかを記憶するファイルだと思ってた）

203:デフォルトの名無しさん
17/11/23 14:06:43.11 1VQF43Qed.net
>>194
xlbってなんだっけ？
xlamじゃないの？

204:デフォルトの名無しさん
17/11/23 14:07:06.07 1VQF43Qed.net
かぶった

205:デフォルトの名無しさん
17/11/23 14:35:16.43 IQVJTYbd0.net
すいません。拡張子は違ったかもしれません。

206:デフォルトの名無しさん
17/11/23 15:49:16.74 AvEDQSYF0.net
>>194
ネットで検索してみると回答は>>195氏の「再計算」で正解だと思うよ
そのユーザー定義関数の中で使ってる関数の中に再計算が発生する関数が含まれているのでは？
簡単な例でいくと新規ブックのセルA1に=TODAY()と入力し確定、そのブックを保存し閉じる
そのブックを開くとTODAY関数による再計算が発生するため何もせずに閉じようとしても保存確認出る
それと同じことでは

207:デフォルトの名無しさん
17/11/23 17:02:33.93 IQVJTYbd0.net
>>200
192の通り使っているのはif文とLeft関数だけです。
試しに関数の中の処理を全て消してみたのですが、
状況は変わりませんでした。

208:デフォルトの名無しさん
17/11/23 17:02:38.88 mWIv05A8x.net
>>115
要らない

209:デフォルトの名無しさん
17/11/23 17:22:13.82 k3nQdCAx0.net
>>201
おそらく
A1が変わってないときに、=Kubun(A1) という式が必ず同じ値を返すという「保証」ができないので
B1セルが変更されている可能性を排除できない
ということで変更されている（可能性がある）と判断されてる
ユーザ定義関数は中身チェックしないで非決定的だって判断だな
シート開くときに再計算するかどうかのオプション設定なかったっけ？最悪手動かな

210:デフォルトの名無しさん
17/11/23 17:30:51.41 JDomtUrWp.net
>>201
その関数にDebug.print 文を仕込んでおいて
呼ばれたかどうかを確認してみたら？

211:デフォルトの名無しさん
17/11/23 19:42:47.05 IQVJTYbd0.net
>>203
保存確認メッセージを防ぐ方法はないですかね？
>>204
関数は呼ばれていますが、それだと何か方法ありますか？

212:デフォルトの名無しさん
17/11/23 20:00:32.08 fJlhhdGs0.net
>>205
関数が呼ばれると言うことは変更されると言うことだから
保存確認ダイアログが出るのが普通
savedプロパティを変更する方法とか
calculationプロパティをマニュアルにする方法とか
方法はあるかもしれないけど
他の問題が起きるようになるかもしれない

213:デフォルトの名無しさん
17/11/23 23:21:24.29 SB9DcOfL0.net
Application.DisplayAlerts = False
のこと？

214:デフォルトの名無しさん
17/11/24 11:41:27.83 h1FhSyIp0.net
質問です。Excel 2016で、Autofilerされたシートの内容を参照するために
（wsはワークシートオブジェクトです）
Debug.Print ws.AutoFilterMode　　　　　→この結果は True
Debug.Print ws.AutoFilter.FilterMode　 →この結果も True
Dim rgFilter As Range
Set rgFilter = ws.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible)
For Each e In rgFilter
　　Debug.Print e
Next e
こんな感じで参照しようとしてるんですが、
参照してるシートでフィルターが掛かっていても、いなくても
同じように全件（25行なら25行）がイミディエイトに表示されます。
絞り込まれた結果のみを表示するためにはどうしたら良いのでしょうか？

215:デフォルトの名無しさん
17/11/24 11:52:22.18 BOT2k7iW0.net
>>208
Set rgFilter = ws.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)

216:デフォルトの名無しさん
17/11/24 12:05:42.58 h1FhSyIp0.net
>>209
素早いご回答ありがとうございます。
修正してみましたが、今度は絞込みあり/なし何れも1行だけになりました
何だか難しい操作ですねえ…

217:デフォルトの名無しさん
17/11/24 12:12:04.66 h1FhSyIp0.net
Dim MaxRow As Long
MaxRow = ws.Range("A" & Rows.Count).End(xlUp).row
これを追加して、
Set rgFilter = ws.Range("A1:A" & MaxRow).CurrentRegion.SpecialCells(xlCellTypeVisible)
にしてみても、結果は>>208と同じになりました。
んー謎です

218:デフォルトの名無しさん
17/11/24 13:34:47.29 bxAooAvMa.net
>>205
あるにはあるけどクソめんどくさいぞ
すべてのセルの初期値保持しといて、閉じるときに確認して値に変更なければsavedをtrueにしてから閉じる、とかね

219:デフォルトの名無しさん
17/11/24 16:52:13.42 x6NJ51zce.net
Sheets("Sheet1").Columns(2).Insert Shift:=xlToLeft
Sheets("Sheet1").Columns(2).Insert Shift:=xlToRight
この二行の動作の差が分からないので
違いを教えてください

220:デフォルトの名無しさん
17/11/24 17:34:32.78 HKDmIDHRH.net
>>213
現在のcolumns(2)の中身が左にずれるか、そのままか、かな？
当てずっぽうだけど。

221:デフォルトの名無しさん
17/11/24 19:18:42.44 V+PY16OM0.net
>>206
>>212
アドインをあきらめます。
ありがとうございました。

222:デフォルトの名無しさん
17/11/25 12:49:09.41 roqaXNhOa.net
エクセルVBAですがあるシートで入力し別のシートに転記するというコードを記入しているのですが
For文でやろうとするとうまくいきません。元々のシートの行が11行目から始まり転記先のシートが2行目から始まるのでネストを使って以下のようにコードを組んでみたのですが2行目の入力データが転記先のデータに2行追加されてしまいました。
1行目と2行目はそれぞれ別のデータが記述されておりそのまま転記できるようなコードにしたいです。
もしかしたら、そもそもforだとだめなのかもしれません。ちなみに入力するデータが11行目から始まり終わりは20行目で終わります。
がとりあえず繰り返し構文でできればかまいません。下記のコードをどう変えればいいか教えてください。
Sub 登録()
Set syougai = Sheets("障害記録") 'シート名にて指定しているので変更しない事
Set itigi = Sheets("一時データ") 'シート名にて指定しているので変更しない事
Const hiduke As Long = 19 '日付列の定数
Const gouki As Long = 17 '号機の列の定数
Const era As Long = 18 'エラーコードの列の定数
Const hyou1 As Long = 11 '障害集計表上の定数
Const kisyu As Long = 21
Const syuukei1 As Long = 21
For i = 2 To 3
For j = 11 To 12
itigi.Cells(i, 1).Value = syougai.Cells(j, hiduke).Value '日付
itigi.Cells(i, 2).Value = syougai.Cells(j, gouki).Value '号機
itigi.Cells(i, 3).Value = syougai.Cells(j, kisyu).Value '機種
itigi.Cells(i, 4).Value = syougai.Cells(j, era).Value 'エラーコード
itigi.Cells(i, 5).Value = syougai.Cells(j, syuukei1).Value '集計データ
i = i + 1
j = j + 1
Next j
Next i
End Sub

223:デフォルトの名無しさん
17/11/25 13:36:20.17 fp6T8Ewd0.net
〉〉214
ネストの使い方間違ってると思うのですがどう直せばいいのかわかりません。

224:デフォルトの名無しさん
17/11/25 13:39:02.15 Sg1k8TV00.net
>>216
itigi　じゃなくて itiji にしろ
シート名「にて」はやめてシート名「で」にしろ
i = i + 1 と j = j + 1 は不要なので消せ

225:デフォルトの名無しさん
17/11/25 13:55:20.06 QhU2UVSF0.net
>>216
単純にシートで開始行がずれているだけなら
For i = 2 to 3
itigi.Cells(i, 1).Value = syougai.Cells(i +9, hiduke).Value
以下略
Next
でいいんじゃないでしょうか
ループはネストすると
内側のループだけ全部回して外に抜ける、を外のループの回数
だから、ネストでは意図した動作にならないでしょう
>>218も言っているけど、Nextで変数に勝手に+1されるから足さなくていい

226:デフォルトの名無しさん
17/11/25 14:08:02.51 fp6T8Ewd0.net
ありがとうございました。
できました。

227:デフォルトの名無しさん
17/11/25 15:25:06.65 P/RTUJJid.net
てか hiduke なんて変数名使うくらいなら「日付」のほうが10倍まし

228:デフォルトの名無しさん
17/11/25 17:03:29.39 dlgn0p0Vx.net
そもそもVBAでやることなのかな
転記先の一時データのシートのセルに障害記録シートのセルを参照する式を書くだけで良くない？

229:デフォルトの名無しさん
17/11/25 17:17:31.37 4suMRhlB0.net
変数名ぐらい自由にしてやれw

230:デフォルトの名無しさん
17/11/25 17:23:34.66 Yv0FOuti0.net
>>216
値を取得しながら転記しようとするから混乱する
コレクションなり配列なりに一回格納してから転記するようにすればネスト要らん

231:デフォルトの名無しさん
17/11/25 17:30:52.78 Yv0FOuti0.net
>>223
変数名は大事でしょ
こいつの変数の付け方は最悪に近いわ
代入の式見なかったらなんのことだかわからねー

232:デフォルトの名無しさん
17/11/25 17:32:47.09 +Jz8ZPqE0.net
本人できたって言ってるのにグダグダ言う奴ウザイわ

233:デフォルトの名無しさん
17/11/25 17:35:56.02 ISZ6M3sb0.net
hidukeと日付のどちらか選べと言われたら、hidikeを選ぶ。

234:デフォルトの名無しさん
17/11/25 17:37:28.74 S5e4mFeJd.net
仕事内容を記録するエクセルを作成したく、
シート名は各個人名でフォームを開くボタン設置。
登録用に必要項目をフォームで作り、転記するサンプルマクロを書いたんですが、今後必要項目が増えたり、減ったりしたときに人数分フォームを弄ったりマクロ書き換えるのは面倒ななんですけど、一個をものを共有し使用するにはどうしたらいいですか？
各個人のエクセルを開き、作ったボタンで共通のエクセルを開きフォームを開いて転記させるとか？
共通のエクセルを読み取り専用で開き書き込む時に自分のエクセルを開いて転記させるとか？
なんかうまいやり方ないですか？

235:デフォルトの名無しさん
17/11/25 17:42:32.82 Sg1k8TV00.net
>>227
何が言いたいんだW

236:デフォルトの名無しさん
17/11/25 17:52:49.62 M1jU9gED0.net
>>228
シート毎つまり人毎にボタンを作るなら
そのボタンをクリックした時にその人独自の値をグローバル変数とかに代入して
フォームは共通のものを呼び出す
フォームに入力されたものを書き込む時は
さっきのグローバル変数を見て
書き込み先のシートとかを特定する

237:デフォルトの名無しさん
17/11/25 17:53:40.22 M1jU9gED0.net
>>230
同時に複数の人がそのエクセルファイルを使わない事が前提だけど

238:デフォルトの名無しさん
17/11/25 18:31:33.42 S5e4mFeJd.net
>>231
同時に開くことがあるんですよ。

239:デフォルトの名無しさん
17/11/25 18:33:58.83 MqKvnHus0.net
>>228
一つのエクセルファイルを複数人で同時に使うのはいろいろ大変だと思う。
共有共通にせず個人毎に違うファイルを使ってもらって、
仕事内容記録フォルダに入ってるファイル全てをまとめて集計するマクロを作った方がよさそ。

240:デフォルトの名無しさん
17/11/25 18:34:51.02 Sg1k8TV00.net
>>232
データはなんでもいいからDBに書き込んでエクセルはインプット画面として割り切りなさい
マジで

241:デフォルトの名無しさん
17/11/25 18:38:42.16 Yv0FOuti0.net
エクセルの共有はマジで地雷
運用を見直した方がいい

242:デフォルトの名無しさん
17/11/25 19:34:05.10 PrfYax++p.net
>>232
入力するのが一人で他の人が見るだけなら問題ない
複数人が同時に書き込むならエクセルじゃなくて
ウェブアプリとかにした方が良いと思う

243:デフォルトの名無しさん
17/11/25 19:37:11.17 T5+qbkCf0.net
mdbを複数ユーザーで同時に掴めるなら、SQLでデータを投げれば動作するんじゃないの。
入力フォーム作りがクソ面倒くさいからエクセルでやるのは愚策中の愚策なのは確かだけど。

244:デフォルトの名無しさん
17/11/25 19:44:15.61 4suMRhlB0.net
>>225
健康のためなら死ねるタイプ？w
ごめんけど理解不能

245:デフォルトの名無しさん
17/11/25 19:46:52.39 4suMRhlB0.net
どうしてもエクセルだけでやりたいなら、フォームとデータでファイル別けるべきだね

246:デフォルトの名無しさん
17/11/25 20:15:23.25 Yv0FOuti0.net
>>238
いや、常識だろ
自分でメンテするにしたって嫌だわ

247:デフォルトの名無しさん
17/11/25 20:24:47.32 fZkth5mu0.net
フォームボタンをクリックした時に
グローバル変数とかに時刻なり、その人のIDなりを記録して
編集中である事が分かるようにしておく
書き込んだら�

248:Nリアする他の人がフォームボタンをクリックしたら編集中かどうかチェックして編集中なら後で再実行するようにダイアログを出す

249:デフォルトの名無しさん
17/11/25 20:38:06.48 4suMRhlB0.net
>>240
お前の常識とか知らんし興味もない。
他人の変数名にケチ付けるのは常識じゃなくてエゴだろ

250:デフォルトの名無しさん
17/11/25 20:40:07.39 99QBz+fh0.net
React では、データアクセス(CRUD)部分は、
Flux の、Store という部分で、 UI とは完全に分離させている
nmp の、immutable パッケージで、データを変更不能にしたり

251:デフォルトの名無しさん
17/11/25 20:41:41.46 4suMRhlB0.net
日本語でおk

252:デフォルトの名無しさん
17/11/25 21:19:48.45 d0mIe/tRa.net
変数名は結構考えるけどな。
普段なら辞書サイトでその意味の英単語から付けることが多い。
API使えば変数名の重要性が分かる。

253:デフォルトの名無しさん
17/11/25 21:53:57.63 Sg1k8TV00.net
>>245
それは変数名と言うより引数名でしょ？
それだったら確かに大事

254:デフォルトの名無しさん
17/11/25 22:00:33.02 T5+qbkCf0.net
個人的に引数含む変数名に半角英字は避けるように徹底してる。
予約語と被らなくなるし徹底すれば読みやすいしね。
一般的に、名前に半角英数使うのはコンパイラが2バイト文字対応していない事が理由なんで、
対応しているコンパイラには積極的に2バイト文字で投げた方がいい。

255:デフォルトの名無しさん
17/11/25 23:35:03.26 Yv0FOuti0.net
>>246
一年前に作ったコードの宣言部分と代入部分見ずになんの値か把握できる自信があるならどうぞ
まだシステムハンガリアンの方がポリシーあるだけマシ

256:デフォルトの名無しさん
17/11/25 23:36:51.22 Yv0FOuti0.net
レスの相手間違えたわ
>>242
に対するレスね

257:デフォルトの名無しさん
17/11/25 23:47:28.66 Sg1k8TV00.net
>>248
俺が>>246で言った意図は、「引数名は大事だがローカル変数名はたいして大事じゃない」という意味だ。
それに反論しているのかな？

258:デフォルトの名無しさん
17/11/26 09:00:43.39 /OBEl30Ad.net
大事じゃない変数なんてないんだよ
みんなそれぞれに役割があって、一生懸命に生きてるんだから

259:デフォルトの名無しさん
17/11/26 09:30:00.33 ci9PkC0t0.net
>>250
それは違うだろ
まあ、使い捨てのテストなんかは適当にやるけど
長い変数名が嫌なのは打つのが面倒だからなんだろうけど、そもそも同じ変数が何度も出てくる時点でリファクタリングの臭いがするわけでな

260:デフォルトの名無しさん
17/11/26 11:10:58.75 A1ZwwN/70.net
>>252
ローカル変数に限っていうなら、上の方がよくて下に行くにしたがって悪くなると思っている
・ローカル変数がない
・tmp とか a とか x とかいう名前で十分わかる
・適切な名前をつけることでよくわかる
・適切な名前がつけられていないことで混乱する
・適切な名前がつけられているにもかかわらず混乱する
そうだよね？

261:デフォルトの名無しさん
17/11/26 11:15:24.53 hep87Sd80.net
＞・適切な名前をつけることでよくわかる
＞・適切な名前がつけられていないことで混乱する
同じことじゃね？

262:デフォルトの名無しさん
17/11/26 11:16:38.23 KMInKg0R0.net
ソンタクして変数名にvarを採用

263:デフォルトの名無しさん
17/11/26 11:24:16.70 A1ZwwN/70.net
>>254
いや、
やれば改善する可能性があるのにやっていない状態、ということで下位になっている

264:デフォルトの名無しさん
17/11/26 11:44:51.98 DTyNodR2M.net
>>251
底辺のお前も頑張ってるもんな w

265:デフォルトの名無しさん
17/11/26 11:50:05.48 ApNVvKeX0.net
>>253
ローカル変数がないの意味がよくわからん
値渡しの引数はローカル変数なんだけど
それを除外したとしても、変数なしで書ける処理は限られてくるし

266:デフォルトの名無しさん
17/11/26 12:54:24.61 pGcZHtwF0.net
>>258
不要な変数を作るなってことだろ
そのまま代入すりゃいいのに>>224みたいにいったん変数に格納したがる奴は一定数いる

267:デフォルトの名無しさん
17/11/26 12:56:36.30 OTnHPyYR0.net
VBAからどんどん離れて公開オナニーになってきた

268:デフォルトの名無しさん
17/11/26 13:04:15.84 ci9PkC0t0.net
>>253
tmpとか、座標系の短い変数はきちっと関数化して処理の分断ができてるときに限るけどね
大体そんなもんじゃないかな
>>259
配列に格納してから云々はそれぞれの処理を独立させることであとから見通しがよくなるんだよ
たとえば、代入する値に条件付きで何らかの処理を加えなきゃいけなくなったときなんかにループしながら直接吐き出してるとネストが深くなって可読性が低くなる
それぞれ独立してれば関数化するのも楽だしな

269:デフォルトの名無しさん
17/11/26 13:33:08.74 pGcZHtwF0.net
>>261
> たとえば、代入する値に条件付きで何らかの処理を加えなきゃいけなくなったとき
その時にやればいいだけ

270:デフォルトの名無しさん
17/11/26 14:16:29.61 ci9PkC0t0.net
>>262
一回変数にいれることでそれがなんの値か、というのを明示するって意味もある
意味があるからやってんだよ

271:デフォルトの名無しさん
17/11/26 14:40:03.00 pGcZHtwF0.net
>>263
>>216ならコメントで十分

272:デフォルトの名無しさん
17/11/26 15:20:43.89 A1ZwwN/70.net
>>258
日付が変わっているからIDは違うが、元の俺の発言は>>250の
＞「引数名は大事だがローカル変数名はたいして大事じゃない」という意味だ。
なんだよね。
つまり引数は別として狭い意味のローカル変数について語っている。
それと、＞変数なしで書ける処理は限られてくるし
については、良い～悪いの序列の話なので、「変数なしで書けるくらいスコープが狭い方が良い」ということさ。

273:デフォルトの名無しさん
17/11/26 16:18:08.52 t/ZpdAAca.net
( ・ω・)∩ｼﾂﾓｰﾝ
範囲A1:C10の値をまとめてD1:F10に代入するときにさ
直接＝で結ぶと駄目で
一旦変数で
tmp=range(A1:C10).value
range(D1:F10)=tmp
とかいうふうにすればオッケーなのって何でなのん？

274:デフォルトの名無しさん
17/11/26 16:56:09.10 A1ZwwN/70.net
>>266
Range(A1:C10).Value = Range(D1:F10).Value
でいけると思うけど？

275:デフォルトの名無しさん
17/11/26 17:06:14.25 A1ZwwN/70.net
ごめん逆
>>266のやりたいことは
Range(D1:F10).Value = Range(A1:C10).Value
だね

276:デフォルトの名無しさん
17/11/26 17:18:28.93 ApNVvKeX0.net
値のコピーは
Range("D1:F10") = Range("A1:C10").Value

277:デフォルトの名無しさん
17/11/27 09:03:15.77 3l0DMD54a.net
範囲が同じなら
R1.Value=R2.Valueで行けるな、普通に
Set R1=R2はなんか無理
R1=R2でいけない理由はよくわからん
RangeオブジェクトのデフォルトプロパティってValueだよね？

278:デフォルトの名無しさん
17/11/27 12:39:02.79 Hzamsy590.net
>>270
Rangeの既定のプロパティは、ドキュメント上だとItem
実際はちょっとトリックがあって、_Defaultっていう隠しプロパティ
こいつがアドレス指定しない場合はValueを返す

279:デフォルトの名無しさん
17/11/27 22:21:45.18 HF1f2kGW0.net
>>270
Setを使うということはオブジェクトということだぞ。
それはRangeそのものを代入することを意味する。
A1セルにB1セルを代入など出来よう筈が無い。
A1セルのアドレスがB1?
意味不明だろ。

280:デフォルトの名無しさん
17/11/27 22:54:13.44 scsxtpuJM.net
indirectの悪口はそこまでだ

281:デフォルトの名無しさん
17/11/27 23:55:45.37 ++h0dxh80.net
indirectが未だに理解できない

282:デフォルトの名無しさん
17/11/27 23:58:34.84 VuuuCAGm0.net
>>272
rangeオブジェクトの実体はアドレス情報ってことか？

283:デフォルトの名無しさん
17/11/28 02:02:42.04 +NcnLu/Q0.net
>>275
???
それだけじゃねーだろ。
が、それも含むのは当然。

284:デフォルトの名無しさん
17/11/28 07:27:08.64 ZnyBsd4x0.net
indirectとかsumproductとか、便利なんだけどいまいちよく解らんよな。

285:デフォルトの名無しさん
17/11/28 09:30:34.94 PHeqRDr40.net
忘れちまえよindirectの事なんか

286:デフォルトの名無しさん
17/11/28 09:41:03.64 /j8R3q5Od.net
>>272
Set の左辺は変数だから当然と言えば当然
A1セル自体は変数じゃなくてオブジェクトだからな

287:デフォルトの名無しさん
17/11/28 10:01:09.63 mtOclWiza.net
>>276
いやまあ、セル同士を直接セットが無理っぽいのは何となく感覚でわかるんだが、どういう動きでそうなってんのかなーって気になるわけよ

288:デフォルトの名無しさん
17/11/28 12:43:56.96 ZLcA5r8L0.net
Range()みたいなのって返却値がRangeクラスなだけあってRange()自体は関数だから

289:デフォルトの名無しさん
17/11/28 14:06:44.13 WkhkCF1D0.net
Rangeオブジェクト
Rangeプロパティ
Range関数
Rangeでチン
これが区別できれば完璧

290:デフォルトの名無しさん
17/11/28 22:19:20.97 0EijvfTXM.net
ら...らんげ？

(´・ω・｀)b

291:デフォルトの名無しさん
17/11/29 19:36:16.84 vIwO7IkJ0.net
>>281
getRangeにしとけよな
紛らわしいわ

292:デフォルトの名無しさん
17/11/30 20:52:21.44 Acf/eaNYa.net
リストを絞り込み別のリストで１行だけを表示できるようにしたらどうしたらいいでしょうか？
わかりやすくいうと、sheet1にA1からZ１０００までのリスト置き、それを何らかの方法で絞込
sheet2のEの１にE列の絞り込んだ１行目をEの２にF列の１行目を表示し次へを押すと２行目を表示するようにしたい
オートフィルみたいなことですが表示したいセルが文文章で多くそのセルだけを表示できるようにしたいです。
１行だけならなんとなくわかるのですが次の行にコマンドボタンを押すことで表示する方法はイメージできません。
for文ならiを使えばいいんでしょうけどやりたいことと違う

293:デフォルトの名無しさん
17/11/30 21:50:06.23 ECoRVPVY0.net
>>285
Find関数使って検索してヒットした行数を返すようにして、
受け取った行数を元に情報を取得、次へボタンはFindNextにしておく。
というのが一番簡単かなぁ。本当はExcelじゃなくてAccessで扱う方がやりやすいんだけど。

294:デフォルトの名無しさん
17/12/01 14:32:31.35 4uYh51s/0.net
以下不明点を教えて
１なぜ変数を初期化するのか？
２なぜNextjでjだけループが終わるのか？
３If Hantei Then　(もしも変数の場合は。。。)　もはや意味がわからない
初心者にもわかりやすく答えよ
Sub CorrectCode()
Dim i As Long
Dim j As Long
Dim Hantei As Boolean
'変数の値を初期化する
Hantei = False
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 1) = Cells(j, 3) Then
'変数に"True"を代入する
Hantei = True
Exit For
End If
Next j
If Hantei Then
'変数の値を"False"に戻す
Hantei = False
Else
'セルの背景色を変える（チェックする）
Cells(i, 1).Interior.ColorIndex = 6
End If
Next i
End Sub

295:デフォルトの名無しさん
17/12/01 14:54:37.77 RC6w6Z/F0.net
>>287
Next j の捉え方からすると、そもそも実行の順番が分かっていないようなので基礎からやる事をおすすめする。

296:デフォルトの名無しさん
17/12/01 15:05:39.92 4uYh51s/0.net
俺なりに日本語訳してみた
間違っていたら教えてくれ
VBA初めて3日です
基礎は本読んでるからわかっている

変数宣言
変数に初期値を入れる　わかりやすいように
変数iは2から一番下からみて最初に値の入ってセルまでをループする
変数jも同様
もしもA列とC列にループする上で同じのが見つかったら
変数にTUREを入れる
そしてループを抜ける
そんでまたjのループを繰り返す
もしも変数がTUREをもっていたら
FALSEに変える　→　なぜ？
セルの

297:色を変えるそんでiのループを繰り返す

298:デフォルトの名無しさん
17/12/01 15:48:12.50 AGjDU3vg0.net
初期値をfalseにする理由
trueの時は色づけという流れにしたいので、予めfalseにしておく必要がある
boolean型の初期値はtrueなので。
途中でfalseを入れる理由
i=1 のままで j を最終行までループさせてチェック
その次に i=2 にして j を同じく最終行までループさせてチェックするのだが
i=1 でのチェックが終わった結果 true なら i=2 でのチェックに備えて false に初期化する必要がある
これは基本的に最初の初期化と同じ考え方

299:デフォルトの名無しさん
17/12/01 15:49:27.01 Mw452gW7E.net
Hanteiの初期化、j のループの直前に置けばIf文の後の変数初期化がいらなくなる気がする・・・

300:デフォルトの名無しさん
17/12/01 16:20:04.74 4uYh51s/0.net
>>290
なるほどわかりやすい
このプログラムを日本語化して

301:デフォルトの名無しさん
17/12/01 16:42:02.13 xc+Vk5Dr0.net
>>287
最初の変数初期化は全く必要無い。
そもそもこういうBooleanな変数を用意することに疑問。
こういう変数は、どうにもそれが無いとプログラムが組み立てられない時に使うべきで、出来るなら使わない方向で組み立てるべき。
そして、やってる内容を見ればこんなもの使わない方向で組み立てられる。
こういうコードはやりたいことを論理的につめられていない時に安易に書き出してしまった時になりやすい。
はっきり言ってクソコード。
全く参考にならん。
1.最初の初期化はいらん。
宣言後の初期値はFalseだから。
逆に初期値をTrueにする場合は初期化が必要。
途中の初期化については、jに関する1つの処理が終わった時にTrueになってたら次の処理の結果がおかしくなるから必要。
2.Exit Forのことを言ってるなら最も内側のFor Nextから抜けるからとしか言えん。仕様だね。
3.If～Thenは～がTrueかどうかを判定している。
If i=0 Thenはiが0だったらと考えがちだが正しくはi=0の文がTrueかどうかを判定している。
イミディエイトウィンドウに?(10=10)と入力してEnterキーを押すとTrueとなるし?(10=5)と入力してEnterキーを押すとFalseになる。

302:デフォルトの名無しさん
17/12/01 17:52:43.75 P9JEW6xna.net
>>287
同じこといってるかもしれんけどこの場合変数Hanteiが丸々要らない
if文の中にセルの色変更のコードを書けばいい
仮に、この変数がいるとしてもどんな値が入っててもどうせfalseにするんだからif分岐してる意味がわからない
もっと言うとHanteiとかいう変数名がクソ過ぎる
なんの判定かさっぱりわからん
canChangeColorとかnotMatchValueとかしとけば目的が分かりやすいのに

303:デフォルトの名無しさん
17/12/01 19:09:05.50 RC6w6Z/F0.net
A列の各セルの情報と合致するものが、C列に一件も無かった場合、
次に合致するデータが現れるまでA列の背景色を変え続ける
という処理なのでHanteiが要らない様に書き換えるって難しい気がするんだけど。

304:デフォルトの名無しさん
17/12/01 19:13:14.77 P9JEW6xna.net
>>295
ごめん、そこちゃんと読み込めてなかったわ
一致したら変えると勘違いした
なんにしてもフラグの初期化は頭かケツでいいと思うけど

305:デフォルトの名無しさん
17/12/01 19:49:15.65 4uYh51s/0.net
ちなみにこのコードはVBAエキスパート公式のだよ

306:デフォルトの名無しさん
17/12/01 20:08:56.93 4uYh51s/0.net
似たようなソースコードを作ってみました
なぜだかエラーがでます
Sub test()
Dim i As Long
Dim j As Long
Dim U As Long
For i = 1 To Cells(Rows.Count, 1).End(xUp).Row
For j = 1 To Cells(Rows.Count, 3).End(xUp).Row
If Cells(i, 1) = Cells(j, 3) Then
U = 1
End If
Next j
If U = 1 Then
U = 0
Else
Cells(j, 3).ColorIndex = 3
End If
Next i
End Sub

307:デフォルトの名無しさん
17/12/01 22:17:56.90 eRljVU/z0.net
xUp　→ xlUp

308:デフォルトの名無しさん
17/12/02 00:44:57.80 aL/u+cy30.net
>>295
確かに一致したものが無かったらだからBoolean使う方が自然か。
使わなくても簡単だけど自然なBoolean使うのが正しいわ。
俺も勘違いした。
ちなみに、一致せずに全てチェックしてjのループを終了した場合のjの値を調べればBooleanはいらんし、そもそもFind使ってループ1つにしてもいらん。
この仕様を見た場合、絶対こんなコード書かないけど、俺が書くとした場合の配列にぶちこむ方法はBoolean使うのが自然だな。
ちなみにランダムで10000行にデータ入れた場合、このコードで320秒、Find使う方法で22秒、配列入れる方法で9秒だった。

309:デフォルトの名無しさん
17/12/02 01:37:25.51 jpak6rxd0.net
小学生がなんで３×５が１５になるの？って聞いてるのに
俺なら電卓で答えだすぜ！って息巻いてる人のようにみえる
学習の初段階でつまずいてる人への的確な回答ではないわな

310:デフォルトの名無しさん
17/12/02 05:02:50.84 EvURnJTn0.net
なんつうか、これが俺の後輩なら、フローチャート書いてみって言いたくなるな
もうフローチャートなんて１０年以上見てないけどな
>１なぜ変数を初期化するのか？
あってもなくてもこのコードなら動くけど
すべての言語が変数を初期化してくれるわけではないので、変数は必ず自分で初期化しろって作法もある
自分で初期化すれば、初期値を間違えて覚えていたりしてもバグになりにくいしな(Booleanの初期値はFalse)
>２なぜNextjでjだけループが終わるのか？
ちょっと質問の真意がわからん
ForとNextは１対１で対応するんで、Next jならjのループ終端だぞ
>３If Hantei Then　(もしも変数の場合は。。。)　もはや意味がわからない
IfとThenの間に書くのは、条件式と呼ばれる式(文じゃないよ)
式の値がTrueかFlaseで条件分岐する
そして変数はそれだけで式として成り立つ。この場合は変数の内容そのものが式の値
If Hantei=True Thenって書いても良いんだけど、（とくにBooleanに対する=Trueは）冗長だと言って嫌う作法もある
VBAはExcelが現役だから、いつまでたっても入門者が一定数いるよなぁ
はっきり言えば、今どきのブログラムの勉強にはVBAは向かないよ

311:デフォルトの名無しさん
17/12/02 08:17:12.76 /lrBlva0M.net
ブック名 C:\book.xlsx
シート名データ
説明文パート 1～5行目
データパート
..ヘッダ A6～Z6
..データ A7～Z*
..データ件数不定
プロバイダ Microsoft.ACE.OleDB.12.0
このような設定でヘッダとデータをselect文で全件取得するにはどうすればいいですか？

312:デフォルトの名無しさん
17/12/02 08:26:37.96 aL/u+cy30.net
>>301-302
超初心者の話かよ。
VBAエキスパートの話じゃなかったんか？
あと、If Hantei Thenを分からないって言ってるのは感覚の話で、君の説明じゃ分からないと思うぜ。
Hantei=Trueという式自体に値があって、それが正しい場合にその値は(Hantei=True)=Trueという結果になっているということが感覚的に分からないと理解できんだろ。
初心者はHanteiとTrueが等しかった場合と感覚的に理解してるんだから。
その感覚ではIf Hantei Thenが理解出来ない。

313:デフォルトの名無しさん
17/12/02 08:27:57.05 cPyK88Sm0.net
>>303
SQLで任意のセル範囲を取得する場合はFROM文で取得出来たはず。
SELECT * FROM [ データ$A6:Z1000] みたいな形。
ただその条件だとデータベースに投げる前にエクセル上で整形した方が効率いいと思うけど。

314:デフォルトの名無しさん
17/12/02 08:31:27.69 7+Ics+9V0.net
if hentai = true then 変態は正義

315:デフォルトの名無しさん
17/12/02 09:32:03.18 1C3LInkCp.net
まず>>287のプログラムを動作順に日本語訳してくれよ

316:デフォルトの名無しさん
17/12/02 11:12:44.97 aL/u+cy30.net
>>307
簡単だろ。
A列のそれぞれのセルに対してC列に同じ値が無かったら色を付けてる。
1.A2からA列の最終セルまで1つ1つのセル(以下Aiとする)について以下を繰り返す。
2.C2からC列の最終セルまでにAiと同じ値が有ったときHanteiをTrueに設定。
3.HanteiがFalseの場合(C列にAiと等しい値はなかった場合)はAiに色を付ける。
4.HanteiがTrueの場合はFalseに設定。(どんな場合だろうがFalseに設定したいが、既にFalseなのにFalseに設定する必要は無い。単にFalseに初期化してるだけ。)
5.Aiの次のセルに対して繰り返し処理続行する。

317:デフォルトの名無しさん
17/12/02 11:17:14.58 tnWofmmQ0.net
>>304
「VBAエキスパート」という資格の勉強をしている超初心者の話だろ？
VBA始めて3日と書いてるし

318:デフォルトの名無しさん
17/12/02 11:45:34.19 cPyK88Sm0.net
エキスパート名乗ってる割にはバグくさいコードなんだよな。
If Not Hantei Then Cells(i, 1).Interior.ColorIndex = 6
Hantei = False
っていう書き方がたぶん本来意図した仕様に近いと思うんだけども。

319:デフォルトの名無しさん
17/12/02 11:46:30.49 ab3YxIeg0.net
Hantei が Hentai に見える

320:デフォルトの名無しさん
17/12/02 14:09:12.13 aL/u+cy30.net
>>309
勉強してる奴が質問してるんであって、
このコードはそいつが書いたもんじゃない。
VBAエキスパート公式ってんだから、
資格の参考書かなんかに載ってるんだろ。
>>310
いや、この書き方自体は良くあるよ。
あんたのも間違いじゃない。

321:デフォルトの名無しさん
17/12/02 14:24:58.47 fk+w59AEa.net
○○でもわかる
○○のすべて
○○エキスパート
○○完全ガイド
こういうタイトル付いてるのは初心者向け

322:デフォルトの名無しさん
17/12/02 14:38:18.30 zmHPgLHa0.net
>>312
だから初心者用の本に載ってるコードが分からないと言ってるんだからこその>>301のツッコミなわけだろ？
本に載ってるコードの評価をしてくれという質問ではない

323:デフォルトの名無しさん
17/12/03 08:02:30.09 Q2bt/ZXPa.net
エクセル相談所にあった質問で、とりあえずVBAなしじゃ出来ないって言っといったんだけど、VBAでリストの絞り込みって一度で出来る?
多分第1候補のリストを出したままその右には第2のリスト候補が表示されそれを第3候補までマウスの操作だけで選択させようって事だと思うんですけど。
インターネットの選択方式でそんなの見た事あるけど一から開発するの面倒くさそう。
ユーザーフォームと2次元配列でも使えばできるかな？
ちなみにこの機能の名称あれば教えて欲しいです。
自分も配列すら参考書でかじったくらいでその必要性がわかってない初心者です

324:デフォルトの名無しさん
17/12/03 08:42:40.14 U0ESQ6dD0.net
残念ながらVBAなしで実現可能

325:デフォルトの名無しさん
17/12/03 09:19:50.58 lwbJHU3ya.net
お力添えをお願いします
チェックボックスでチェック入れたら行の高さを0にし、チェック入れなかったら13.5にしたいのですがうまく動作してくれません
Sub チェック8_Click()
Dim A As Boolean
Dim B As Boolean
If A = True Then
A = Rows(43).RowHeight = 13.5
B = Rows(44).RowHeight = 13.5
Else
A = Rows(43).RowHeight = 0
B = Rows(44).RowHeight = 0
End If
End Sub
どこが間違っているのかご教示お願いします。

326:デフォルトの名無しさん
17/12/03 09:52:22.12 ObUuqjZI0.net
>>317
行は適当に変えてくれ
Private Sub CheckBox1_Click()
If CheckBox1.Value Then
Rows(3).RowHeight = 13.5
Rows(4).RowHeight = 13.5
Else
Rows(3).RowHeight = 0
Rows(4).RowHeight = 0
End If

End Sub

327:デフォルトの名無しさん
17/12/03 10:04:41.09 ObUuqjZI0.net
>>317
フォームコントロールならこっちだわ
コントロール名は適当に変えてくれ
Sub チェック2_Click()
If Sheet1.CheckBoxes("チェック 2").Value = 1 Then 'これでダメなら下を試そう
'If "Sheet1".Shapes("チェック 2").ControlFormat.Value = 1 Then
Rows(3).RowHeight = 13.5
Rows(4).RowHeight = 13.5
Else
Rows(3).RowHeight = 0
Rows(4).RowHeight = 0
End If
End Sub

328:デフォルトの名無しさん
17/12/03 10:11:57.07 lwbJHU3ya.net
>>319
ありがとうございます！！！こちらで動作しました！！本当に有難うございます！！！

329:デフォルトの名無しさん
17/12/03 10:42:36.13 HLUSF6su0.net
〉〉314
できるの？
入力規則の絞り込みじゃないよ？
階層化してリストから直接下層に移動（3段階くらい）して選択する方法だよ？ <

330:デフォルトの名無しさん
17/12/03 11:18:12.75 U0ESQ6dD0.net
おいおい急に条件増やすなよw
URLﾘﾝｸ(www.tschoolbank.com)
こういうことじゃないのかよ

331:デフォルトの名無しさん
17/12/03 11:24:14.71 pXIsIngK0.net
>>322
これの話だから知らないなら絡んでくるなよ
ｽﾚﾘﾝｸ(bsoft板:713番)

次ページ