Excel VBA 質問スレ Part51

Excel VBA 質問スレ Part51 at TECH

[前50を表示]
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番)

332:デフォルトの名無しさん
17/12/03 11:39:56.54 JkBkmVnb0.net
>>314
違う。
そのコード書いた奴に向かって言ってるのと、躓いてる奴にはそのコードはよろしくないと言ってる。
何の例かは分からんが、もっと現実的なコードにすべきなんだぜ。

333:デフォルトの名無しさん
17/12/03 12:12:17.46 HLUSF6su0.net
>>322
しかも、わかりにくいかもしれないけど条件ちゃんと書いてあるんだけどね
入力規則の絞り込み検索じゃない。
階層ごとにクリック選択する事すらめんどくさいと言ってるんだよ。
一度の選択でリストの階層移動ができるかどうかを質問主は相談所で聞いていて
自分はVBAないとだめだよと回答したけどVBAだとどうなんだろうとこっち
で聞きなおしてみたんだけど、

334:デフォルトの名無しさん
17/12/03 12:58:31.51 A600L+iiM.net
>>325
さすがにそれは読み取れん

335:デフォルトの名無しさん
17/12/03 13:12:35.66 bN8T4SKTM.net
>>323
こういう糞レスがつくからスレが過疎るんだぞ

336:デフォルトの名無しさん
17/12/03 13:54:27.80 HLUSF6su0.net
ちゃんと、VBAでリストの絞り込みって一度で出来る? こう書いて
その下に
多分第1候補のリストを出したままその右には第2のリスト候補が表示されそれを第3候補までマウスの操作だけで選択させようって
こう書いてあるんだけど読み取れない？
しかも、前文にエクセル相談所にあった質問こうも書いてあるし。
で、わざわざVBAで聞いてるのにわからないかー

337:デフォルトの名無しさん
17/12/03 15:23:42.34 icSWQcwl0.net
具体的なコードが伴わない場合は外野がなんかゴチャゴチャ言っている程度に聞き流すべき。
>>323の質問はウィンドウズ標準のメニューバーみたいな形を想定しているみたいなので、
外部参照にMicrosoft Toolbarとかあれば、それを追加して解決するんじゃないかな。

338:デフォルトの名無しさん
17/12/03 15:57:02.43 pXIsIngK0.net
>>328
> 多分第1候補のリストを出したままその右には第2のリスト候補が表示されそれを第3候補までマウスの操作だけで選択させようって
マウス操作にはクリックも含むのが普通だと思うぞ
>>327
無駄なレスしてなにか楽しいのか？
>>329
あっちのスレ読めばわかるけどそもそも VBA 使わずにできるかどうかの問題になってるから Toolbar 云々の話ですらない
お前さんこそ聞き流すべき

339:デフォルトの名無しさん
17/12/03 16:12:49.11 icSWQcwl0.net
>>330
どちらかというと>>315の質問に答えた形だけど。
向こうの質問にこっちで答える義理もないし。

340:デフォルトの名無しさん
17/12/03 17:11:02.86 JkBkmVnb0.net
>>315
それは、VBAでも出来ないと思う。
というかWindowsの標準動作と違う。
似たようなのは出来るかもしれないけど。
コンボボックスじゃなくメニューなら出来るかな。
見ためが違うけど。
見ためをコンボボックスにしたいならコンボボックス使わずにフォ－ムに描画した方が楽じゃね?
コンボボックスだと選択しないとイベント発生させるのが難しいし、イベント発生時にブルダウンが閉じるのが通常動作だから。
サブクラスでHITTEST検出で出来るかどうか。
VBAではウルトラC級に難しい。

341:デフォルトの名無しさん
17/12/03 17:13:47.51 JkBkmVnb0.net
>>329
メニューバーの見ためは駄目なんじゃないの?
俺もメニューバーが現実的だとは思うけど。

342:デフォルトの名無しさん
17/12/03 18:36:56.64 RpLqv7Ag0.net
>>315
階層付きMenuで３項同時に入力するってこと？
自分だったらContextMenuの改造またはPopupでやるかな。
見た目悪いけど、最下層をデリミタ区切りのフルセットにすれば
Splitして投げ込むだけでいいでしょ？
CellのContextMenuだとあとで標準に戻すこと考えないと
いけないので最近はもっぱらPopupばかり使ってる。
Cellのプルダウンだと表示数に限りがあるけど、Popupだと
画面サイズいっぱいまでいけるし、、
あ、もちろんCommandBarsのアレのことです。

343:デフォルトの名無しさん
17/12/03 22:48:18.35 DUCKYmEka.net
>>315
いえ、１つ目のリストを表示して、マウスの位置をその位置まで持ってきて
２つ目のリストを表示してって３つ目のリストを最終的に表示するみたいな。
エクセルの旧表示みたいな感じで、ファイル→検索みたいな感じです。
多分

344:デフォルトの名無しさん
17/12/04 00:43:15.26 oPXdl+lm0.net
>>335
いやだからそれって、階層メニューのことでしょ？
手近なところでいうと、、、たとえばFireFoxだと、
　表示 > テキストエンコーディング > 自動判別 > 日本語
みたいな。この手のMenuって、onMouseOverイベントで
下層が勝手に開いていきますよね。
それで各階層の選択肢を全部入力値として使うことじゃないの？

345:デフォルトの名無しさん
17/12/04 02:58:02.92 Fxj9yJGL0.net
そう、これはメニューの動作なんだ。
コンボボックスで実現するのはとても難しい。
ほとんどの奴は上級者でも不可能と言うだろう。
それとも俺の知らない何かがあるかもしれないけど。

346:デフォルトの名無しさん
17/12/04 03:21:07.64 oPXdl+lm0.net
コンボの配下にメニュー作ろうとすると怒られた。
階層メニューによる一括入力、自分でも使うかもと思い作ってみたよ。
1) 前提：質問者のリンク先キャプチャを参考
　A2:C2が回答入力欄
　キャプチャにある凡例を登録するための矩形範囲を"R_Master"とする。
2)呼出部：キャプチャのA1セルにある "商品"の文字列を右クリックで発動。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
　
　If Target.Resize(1, 1).Value = "商品" Then
　　Cancel = True
　　Call Popup_FullPut(Range("R_Master"), " 個")
　End If
End Sub

347:デフォルトの名無しさん
17/12/04 03:23:18.02 oPXdl+lm0.net
3)Menu生成部
Sub Popup_FullPut(rngMst As Range, Optional strUnit As String)
　Dim r As Range
　Dim i As Long, j As Long, k As Long
　With CommandBars.Add(Position:=msoBarPopup)
　　For i = 0 To rngMst.Rows.Count - 1
　　　Set r = rngMst.Offset(0, 0).Resize(1, 1).Offset(i, 0)
　　　If r.Value = "" Then Exit For
　　　With .Controls.Add(msoControlPopup)
　　　　.Caption = r.Value
　　　　For j = 0 To rngMst.Rows.Count - 1
　　　　　Set r = rngMst.Offset(0, 1).Resize(1, 1).Offset(j, 0)
　　　　　If r.Value = "" Then Exit For
　　　　　With .Controls.Add(msoControlPopup)
　　　　　　.Caption = r.Value
　　　　　　For k = 0 To rngMst.Rows.Count - 1
　　　　　　　Set r = rngMst.Offset(0, 2).Resize(1, 1).Offset(k, 0)
　　　　　　　If r.Value = "" Then Exit For
　　　　　　　With .Controls.Add(msoControlButton)
　　　　　　　　.Caption = r.Value & strUnit
　　　　　　　　.OnAction = MkAction( "Popup_Input", rngMst.Address(external:=True),i & "|" & j & "|" & k )
　　　　　　　End With
　　　　　　Next
　　　　　End With
　　　　Next
　　　End With
　　Next
　　.ShowPopup
　　.Delete
　End With
End Sub

348:デフォルトの名無しさん
17/12/04 03:24:02.05 oPXdl+lm0.net
4)入力実行部
Sub Popup_Input(strMst As String, strAns As String)
　Dim rngR1 As Range: Set rngR1 = Range("A2")
　Dim rngR2 As Range: Set rngR2 = Range("B2")
　Dim rngR3 As Range: Set rngR3 = Range("C2")
　
　Dim rngMst As Range: Set rngMst = Range(strMst)
　Dim i As Long, j As Long, k As Long
　
　i = Split(strAns, "|")(0)
　j = Split(strAns, "|")(1)
　k = Split(strAns, "|")(2)
　
　rngR1.Value = rngMst(i + 1, 1).Value
　rngR2.Value = rngMst(j + 1, 2).Value
　rngR3.Value = rngMst(k + 1, 3).Value
End Sub

349:デフォルトの名無しさん
17/12/04 03:28:37.65 oPXdl+lm0.net
5)引数付きのOnActionコマンドの生成に普段使っている関数
ん？書き込めない、、なんで？
要は文字列生成がメンドーだから関数使ってるだけなんだけど、、

350:デフォルトの名無しさん
17/12/04 03:36:14.51 oPXdl+lm0.net
刻んでみる。
5)引数付きのOnActionコマンドの生成に普段使っている関数
Function MkAction( strCMD

351: As String, Optional arg1 As String, Optional arg2 As String )

352:デフォルトの名無しさん
17/12/04 03:41:24.99 oPXdl+lm0.net
Dim文のところではじかれるみたい、、
5)引数付きのOnActionコマンドの生成に普段使っている関数
Function MkAction( strCMD As String, Optional arg1 As String, Optional arg2 As String )
Dim DQ As String: DQ = Chr（３４）
Dim SQ As String: SQ = Chr（３９）
Dim buf As String
　buf = strCMD & " "
　If arg1 <> "" Then buf = buf & DQ & arg1 & DQ
　If arg2 <> "" Then buf = buf & "," & DQ & arg2 & DQ
　MkAction = SQ & buf & SQ
End Function
書き込めたかな？
Chr関数は禁則？

353:デフォルトの名無しさん
17/12/04 03:44:57.18 oPXdl+lm0.net
書き込めた。
Chr関数で引っかかっていたみたい。実際は半角です。
インデントは全角スペースになっているので変換が必要です。

354:デフォルトの名無しさん
17/12/04 07:27:39.63 65GoxPZl0.net
VBEにコピペすると、全角スペースは自動的に半角スペースに変換されるから意識する必要ない

355:デフォルトの名無しさん
17/12/04 07:55:50.52 oPXdl+lm0.net
>>345
本当ですね。 tnx!

356:デフォルトの名無しさん
17/12/05 20:57:29.50 dwGLun0F0.net
エクセルのVBAで、サーバー上にディレクトリを作成して、そこにファイルを移動させたいのですが、
MkDIRで作成できませんでした。どうすればよいでしょうか？

357:デフォルトの名無しさん
17/12/05 21:25:35.80 JPkeWfWn0.net
>>347
FileSystemObject使えばできますよ。
サーバー側の権限は大丈夫ですか？

358:デフォルトの名無しさん
17/12/05 21:34:50.27 dwGLun0F0.net
>>348　ありがとうございます！
dim myFSO as new filesystemobject
myFSO.CreateFolder (サーバー上のつくるディレクトリ名)でいけますか？
それともカレントドライブをサーバー上に移動すべきでしょうか？

359:デフォルトの名無しさん
17/12/06 00:43:40.01 D6s1mPo40.net
>>349
試してみたら？

360:デフォルトの名無しさん
17/12/06 11:15:00.00 8dpxpCOD0.net
質問です。
プロシージャの処理の途中でイミディエイトウィンドウをうまくクリアする方法はありますか？

361:デフォルトの名無しさん
17/12/06 11:39:53.74 MQk7+ulPa.net
あるかないかでいえば、
ないこともないアル
地道にセンドキーでキー送って
全選択してデリートしてって方法がな

362:デフォルトの名無しさん
17/12/06 11:46:45.28 vAzWmOhld.net
関係ないけどブックを開くとイミディエイトウィンドウ上の変数が消滅するの困る

363:デフォルトの名無しさん
17/12/06 13:39:40.38 yYTt94fN0.net
>>352
その際はFocusをVBEに移してイミディエイトPaneをアクティブにする操作を挟むのでしょうか？

364:デフォルトの名無しさん
17/12/06 16:07:50.81 ykbUk5IV0.net
エクセルのVBAで競馬予想ソフト作っている人っていますか？

365:デフォルトの名無しさん
17/12/06 19:37:25.77 sdGXOm2ja.net
>>354
デバッグクリア VBAで検索したら
幸せになれるかもよ

366:デフォルトの名無しさん
17/12/06 21:02:08.65 H8Zs2M1B0.net
VBAでコンボボックスのリストのみクリアってどうやってやるんですか？

367:デフォルトの名無しさん
17/12/06 23:12:55.48 ClwZMpdPa.net
>>357
正式にやるのは多分すごく難しい。
Win32APIでコンボボックス内のリストボックスに対してどうにかするということになると思う。
しかし、単純に
strCombo=ComboBox1.Text
ComboBox1.Clear
ComboBox1.Text=strCombo
でテキストが一瞬クリアされたのは見えないから現実的な案だと思う。

368:デフォルトの名無しさん
17/12/07 10:43:49.53 cGZzJnMw0.net
シートの非表示設定について
Sheets(”sheet1").Visible = False
でシート非表示設定をしたのですが元々非表示だとバグになってしまいます。
釦を押せば特定のシートのみを表示できるようにしたいんですけど表示時非表示時がランダムで
非表示時でもそのコード無視するかと思ったら非表示なのに非表示にするんじゃねぇと怒られた。

369:デフォルトの名無しさん
17/12/07 10:55:46.75 SgQPpSGG0.net
>>359
VisibleプロパティがBooleanで状態を返すのでIfで分岐させる
If Sheets("sheet1").Visible Then
Sheets("sheet1").Visible = False
Else
Sheets("sheet1").Visible = True
End If
こうすると実行するたびに表示/非表示が切り替えられる

370:デフォルトの名無しさん
17/12/07 11:24:06.29 cGZzJnMw0.net
>>35８
ありがとうございます。できました。
なんとなく、if文使うのかなと思ったのですがif文が思いつかなかった。
Elseの下を消すことで、非表示時は非表示のままのする思い通りの事が出来ました。

371:デフォルトの名無しさん
17/12/07 11:50:17.69 /U/N3RBoa.net
>>360
それだと非表示の時は表示されるからElseはいらねえだろ。
俺も
Sheets("sheet1").Visible=(Not Sheets("sheet1").Visible)
と最初考えたけどやっぱIf文にしないと駄目かと考えた。

372:デフォルトの名無しさん
17/12/07 12:06:28.65 SgQPpSGG0.net
>>361
たぶん他人にも使わせるのだと思いますが
シートをシート名じゃなくオブジェクト名で指定すると
誰かが勝手にシート名を変えても関係ないのでオススメ。
さらにわかりやすいオブジェクト名に書き換えると、尚良し。
オブジェクト名はVBEのプロパティウィンドウの(オブジェクト名)を見てね。
初期値はSheet1なので
Sheets("sheet1")をSheet1に置き換えてもうごくはず。
>>362
あとから余計なこと書いたかなーと思ったけど、本人が気づいてくれてよかった。

373:デフォルトの名無しさん
17/12/07 13:06:30.92 cGZzJnMw0.net
〉〉361
ど素人で何もわからないままマクロの記述させながら必要なところ
コピペしてとネットコピペでほとんどコード打ち込まず作ってるので
まだ、オブジェクトまで触ってません。
今度触ってみたいと思います。
標準モジュールは逆になんのモジュールかわからなくなるの必要なモジュールと区別するために名前つけてるけど
sheet名はそのままです。

374:デフォルトの名無しさん
17/12/07 21:42:15.17 F/BnOZfeM.net
>>287
ワシはティンコを２本もっている
２本目はとっておきだ(´・ω・｀)b

375:デフォルトの名無しさん
17/12/07 22:24:29.94 QxT2u2P9d.net
>>365
マジ気になるわー
V字になってるのか、真ん中で2段になってんのか、前後に生えてんのか？
1本は普通だが、もう1本はデコに生えてんのか？

376:デフォルトの名無しさん
17/12/08 00:07:26.11 8mEkhztWa.net
コードのコメントについて
どこまで記入してますか?
素人なもんで変数の内容から
変更前のコードまでコメント化してるからコード自体が長くなる。
社内のVBAコード見るとコメントほとんど書いてなくてf8で追っても、よくわからないからなにがいいか分からない

377:デフォルトの名無しさん
17/12/08 00:27:27.18 tPe4A27O0.net
設計さえキチンとしていれば大抵はコメント要らない。
Dim SLine As Long:SLine = 3 '読み込むファイルのヘッダーが二行ある為
みたいにプログラム依存でないパラメータを解説する時に使ったりはする。
ある程度の習熟が必要なので、ステップ実行でも何してるか分からない（正常に追えない原因が分からない）のであれば、
まだコメントの必要性について論ずる段階では無いので特に要らないんじゃないかな。
自分の昔書いたコードを改修しようとして訳分からないみたいなのを何度も経験して始めてコメントの要点が掴めると思う。

378:デフォルトの名無しさん
17/12/08 00:40:24.89 MH/bn/0fH.net
>>367
変数名からなるべく中身を類推できるようにつけてコメは最小限にしてる。
後で迷うくらいならつけたほうがいいと思う。コード記述して直後は完全にわかってるから迷うポイントに気づけない。一週間後とかに再レビューして、「コレなにやってんだろ？」と引っかかった所はポイントかな。
あとExcel本体の不具合、制限回避とかコメしてないと中々思い出せないことがある。

379:デフォルトの名無しさん
17/12/08 00:50:05.27 04xg1k3G0.net
コメントは書いた方が良いんだが、余計なのはいらない。
変数名で分かるものは必要ない。
むしろどういう処理かのコメントを書く場合が多い。
それもそこのメンバーのレベルによる。
書ける奴らが集まってるなら、こんなもん分かるだろと書かない場合も多い。

380:デフォルトの名無しさん
17/12/08 08:12:21.44 WX0K1LcLa.net
コメントは処理の内容についてはしない
なぜその処理をするのかつかみにくいとリッキーだったり使用上やむを得ないときに理由を簡潔に書く
変更履歴をコード上に書くのは愚の骨頂だけどVBAだとほかに方法が少ないから自分かチームでルール決めるしかないな

381:デフォルトの名無しさん
17/12/08 08:13:11.00 WX0K1LcLa.net
とリッキー→トリッキー
使用→仕様

382:デフォルトの名無しさん
17/12/08 18:16:29.95 3k7CQU1Hd.net
質問です。
シミュレータソフトをVBAを使って制御しています。順々にモデルを解析していき、逐次計算結果がエクセルに反映表示されるような動作をします。
ただそのとき、きちんと逐次結果が表示されていく場合と画面に全く結果が表示されずプログラムが終わった途端に一気に数値が表示される場合とがあります。
途中でも解析結果が分かるよう安定して逐次表示するようにしたいのですが解決策分かる方いたら教えてください。
なお画面更新はもちろんオンです。調べたところdo eventsというのでWindowsに制御を渡すやり方もあるようですが、途中の動作が割り込む可能性がありそれは避けたいです。

383:デフォルトの名無しさん
17/12/08 19:13:35.05 jJUgyerEM.net
自分も普段はほとんどコメント書かない。
適切な命名とコードの流れで処理は説明して、意図や補足説明にコメントを書くのが正しいと思ってる。
ただ、VBAではかなり細かく書いてる。理由は、VBAの時点でどうやっても読みづらいから。
勝手に行間調整するせいで
int n
WorkBook book
みたいな整列ができないし、Dim n As Integerって構文自体が無駄な単語多くて、数並んでいると読む気がなくなる。
スコープの区切りにEndを使うのも()よりコードに埋もれて見づらいしVBEの色設定は貧弱だし。
VBAに限ってはコメントで処理追った方が楽だって最近は思ってる。
早くエクセル操作に向いたもっとまともな言語出ないかな。

384:デフォルトの名無しさん
17/12/08 19:16:35.83 wpv6YuQca.net
そうか、ここもvba方式なんだった。
int__________a
WorkBook___book
みたいにタイプと変数名で表っぽく配置することね。

385:デフォルトの名無しさん
17/12/08 19:34:22.58 tPe4A27O0.net
>>374
VBAは宣言しないのがデフォなんだから、いちいちDimなんちゃらってやってたら、そりゃ不便だろ。

386:デフォルトの名無しさん
17/12/08 20:15:19.13 F+K0Jtko0.net
>>376
そうではなくて、変数の宣言構文がシンプルではないところを言っていると思うよ。

387:デフォルトの名無しさん
17/12/08 20:45:47.90 kuqPkTCcd.net
やれやれ、また長い関数を書いてしまった

388:デフォルトの名無しさん
17/12/09 01:25:45.78 naguWC2La.net
宣言しない奴のコードは読みたくないな。
宣言全部入れてから持って来いと言うかも。

389:デフォルトの名無しさん
17/12/09 01:27:01.02 vu3Y0INla.net
>>375
VBAに慣れてれば、そんなの違和感無いけどな。

390:デフォルトの名無しさん
17/12/09 01:39:08.64 vu3Y0INla.net
>>373
それじゃコメントのしようがない。
どんな風に制御しているのかとか、結果はそのシュミレータソフトから取ってきてるんだろうけど、そこから逐次結果が得られてるのかとかの詳細が分からんと何とも言えない。

391:デフォルトの名無しさん
17/12/09 11:52:36.39 oQ1pndO0d.net
Debug.Print もApplication.Statusbar もちょっと処理が重くなってくると表示が止まって役に立たない

392:デフォルトの名無しさん
17/12/09 13:26:29.70 Px3+LsGd0.net
>>382
Debug.Printの次にDoEventsを書けばすぐに出力される

393:デフォルトの名無しさん
17/12/09 20:32:20.11 uW7BpcjHa.net
コメント関連ありがとう。
もう、人には見せない用だけどくどいくらいコメント書きまくってるw

394:デフォルトの名無しさん
17/12/10 08:18:11.50 PzHPENwqa.net
VBAの開発環境について
デバッグ作業してると2画面欲しくなるんだけど皆さんどうしてる?
vBEの画面と通常の画面をフルスクリーンで見たいし、VBEもコード書き込む画面のほかに現在の変数が分かる画面と実行結果が分かる画面が欲しいからノート1台でやってると画面グチャグチャ

395:デフォルトの名無しさん
17/12/10 08:41:31.53 2VZ9i3vi0.net
ノートはUPS付きのデスクトップとして使ってる
24インチのモニタに繋いで
無線キーボードとマウスで操作

396:デフォルトの名無しさん
17/12/10 09:29:22.82 s+zBVK9X0.net
モニタ2枚でやってるけど
ツールボックスのウィンドウとかフォームが画面の境界に表示されたりして
地味に対応していない感を醸し出してる。
フルHD以上なら1枚でもVBEを端っこによけておけば窮屈じゃないと思う。
それよりエディタの貧弱ぶりをどうにかしてほしい。
今時のIDEを触ると、VBEはふた昔前のオマケ機能なんだなと思い知る。

397:デフォルトの名無しさん
17/12/10 12:22:00.56 w7IPLNC5r.net
まあデバッグが必要になる様なマクロなんかこさえんなっで事だ

398:デフォルトの名無しさん
17/12/10 13:02:23.44 rJurKCVR0.net
デバグが不要なマクロって相当短くないと無理だろ

399:デフォルトの名無しさん
17/12/10 19:23:33.18 RKQe6ZfS0.net
バグ発生に関与する要因としてコードの量のみを気にかけている
→ 初心者またはそれに準ずる低スキルのもち主
>>388を受けてバグが一切発生しない事を想定している
→ 0か100でしか物事を考えられないアスペ
デバッグをデバグと言っている
→ ガチのジジイか極端にセンスの悪い意識高い系
たった一言でここまでプロファイリング出来ました

400:デフォルトの名無しさん
17/12/10 20:54:53.56 DUp9AezHa.net
え？？コード書き書きしたら一度も動作チェックしないで実装するの?
すげー！
ほぼ途中で止まって黄色くなる身としては信じられない.
全ての動作の確認と変数の動作に変な所がないか見るの楽しい.
それに人が書いたコードで動作チェックするにもf8必要だし
ただ、F8連打も大変だから超ゆっくり動作する機能でもあればいいのに

401:デフォルトの名無しさん
17/12/10 21:56:00.33 tyDER63C0.net
虫見付けるたんびに「バッグだ！バッグだ！」言うんか　自分の発言に違和感無いんか

402:デフォルトの名無しさん
17/12/10 22:02:23.86 UfhTQ4hV0.net
プログラムがおかしい以上バグはバグだ
開発中に個人で見つけてるから影響が小さいというに過ぎないが
べつにいいじゃんバグでも

403:デフォルトの名無しさん
17/12/10 22:28:29.51 rJurKCVR0.net
リリース版を出すかどうかをデバグ作業と呼ぶかどうかの境界線にしてるって事なのかな？
バグまみれでリリースして、ネット経由でパッチを当てるのが当たり前になった事が原因で、
そういう感覚が生まれたって考えるとなかなか興味深い現象だな。

404:デフォルトの名無しさん
17/12/10 22:54:03.35 5raOMeRU0.net
お前、リアルで嫌われ者だろ
たった一文でここまでプロファイリング出来ました

405:デフォルトの名無しさん
17/12/10 23:42:33.59 05lOR9eq0.net
質問です。（スレチかもだけど、他よりここの人たちのほうがLevel高そうなので）
Excel2013 @Win10 64bit Core i7 Mem8GB
ここ数日でAutoFilterのパフォーマンスが急に悪くなったと感じています。
テーブルは2000行*50列程度。
症状としてはフィルタリング済みのシートをSelectする際にタイムラグが発生します。
最初原因が分からなかったのですが、設計を少しずつ切り落としていった結果、
フィルタ範囲に入力規則が設定されていたのが原因でした。
その内容はIMEOffのみ。
フィルタがかかってない場合は瞬時にシート切替できるのに、フィルタリングされていると
切替に数秒待たされます。
フィルタ列が増えるとラグが倍増します。
また、列要素の先頭行付近の要素でフィルタされている場合の方が影響が大きいです。
２～３日前までこのようなことはなかったのに、、何かExcel環境自体がかわったのかと
思いくまなく調べるのですが、原因が掴めません。
（つづく）

406:デフォルトの名無しさん
17/12/10 23:43:42.33 05lOR9eq0.net
>>396
（つづき）
マクロやシート上の把握できていない設計要素の影響を除外するために新規xlsxファイル
で試しました。
前提：評価ブック以外のブックは開かない。
シート１：2000行*50列の表を作成、A-Zの１文字をランダムに埋め、AutoFilter設置。
　　　　書式設定、条件付き書式等は一切行わない。
　　　　入力規則は評価条件とする。(IME制御なしの場合とIME-Offの場合)
　　　　フィルタ実施時は、２列絞り込む。
シート２：空シート
評価用Macro（シート１）
Option Explicit
Dim st As Single, ed As Single
Private Sub Worksheet_Deactivate()
st = Timer
End Sub
Private Sub Worksheet_Activate()
ed = Timer: Debug.Print ed - st
End Sub
（つづく）

407:デフォルトの名無しさん
17/12/10 23:44:00.59 05lOR9eq0.net
>>396
（つづき）
評価方法：
１）フィルタ設置のシート１を表示
２）Ctrlキーを押しながら、PgDn→PgUpを連続して押下。
３）Immediateウィンドウで計測時間を確認。
上記を５回程度実施
条件と結果：
Case IME制御なし＋フィルタなし　▼平均時間：約70msec
Case IME制御なし＋フィルタ-On　▼平均時間：約70msec
Case IME-Off＋フィルタなし　▼平均時間：約70msec
Case IME-Off＋フィルタ-On　▼平均時間：約7000msec
ちなみに１列フィルタリングした場合は、約1400msec程度でした。
対症療法としては「入力規則使うな」となりそうですが、２～３日前までは上記
現象は発生していなかったので、、原因療法が知りたいです。
どなたか上記現象分かるかたいらっしゃいませんか？

408:デフォルトの名無しさん
17/12/10 23:47:36.15 VPQqZskd0.net
>>398
思い当たるのは、FCUでIMEの挙動がおかしくなったという報告多数な件

409:デフォルトの名無しさん
17/12/11 03:47:36.99 /hRyHJmR0.net
>>399
Version1703なのでまだFallは当たってないようです。

410:デフォルトの名無しさん
17/12/11 11:20:26.75 TIu41blJ0.net
ホントMSはアップデートなのかウイルスなのか分からんことするよな・・・

411:デフォルトの名無しさん
17/12/11 13:06:28.39 NoGJiqM0H.net
>>401
ちなみに職場の環境
　Excel2010 @Win7
　Excel2013 @Win8
では再現しませんでした。
やっぱりなんらかのUpdateが当たったのか、それとも自分でなんかやらかしてるのか、、、

412:デフォルトの名無しさん
17/12/11 13:32:28.01 pEROMoD00.net
午前中にメッセージが出てアプデするか？　とか聞きゃあがったから「あいよ」ってんで気軽に再起動した
90％ぐらい完了した後で Cannot だってやんの　しょーもないから電源落として午後

413:再起動したらまた「アプデするか？」って　もうね、アホかと

414:デフォルトの名無しさん
17/12/12 01:03:48.16 vtwEo9S/0.net
Windows
押しつけがましいアップデートメッセージが出て
いいえしまくってたんだけど
ちょっと目を離して風呂入ってたら勝手に合意したことにしてＯＳインストールされてた
そんな俺が客先で作らされてるのは顧客が一日黙ってたら契約に合意したことになるシステム

415:デフォルトの名無しさん
17/12/12 04:17:56.67 VGkGFTOK0.net
質問です。
LastCellって簡単に取得できるのにHomePositionってこれといった決定打がないんですかね？
SendKeys以外で簡単に安定して取得する方法ってありますか？
できればSelectしなくてよい方法で。

416:デフォルトの名無しさん
17/12/12 11:56:45.28 R9+tEHmjd.net
ADODB.Streamで大きめのテキストファイルを読むときLoadFromFileが重いので、Openの引数でファイル指定してから
ReadTextするようにしたいんですがうまくいきません。
パスをそのまま書いても、"file://C:temp/data.txt"のような書き方をしてもことごとくOpenのところで落ちてしまいます。
どう書けばいいんでしょうか？
ちなみに先頭100行を試し読みするときとかに使いたいです。

417:名無し
17/12/12 12:18:28.61 KlMiw57eM.net
>>406
それならコード貼ったほうが早い
使い方云々が知りたいだけならググればいいし

418:デフォルトの名無しさん
17/12/12 12:50:26.86 R9+tEHmjd.net
>>407
スマホなのでちょっと待ってて

419:デフォルトの名無しさん
17/12/13 11:40:21.94 5F7kXiJk0.net
名前を付けて保存する際
最近使った“アイテム”が
今週～，先週～，しばらく前，という順番で使用履歴の各ファイル名が表示されます。
これを表示させない設定を教えてください。
よろしくお願いいたします。

スペック
↓
OS=Win10
Excel2016
Officeﾊﾞｰｼﾞｮﾝ=1710

420:デフォルトの名無しさん
17/12/13 14:40:49.78 5F7kXiJk0.net
↑すいません、質問するべき板を間違えました。ここはVBAでしたね。
他で聞いてみます。

421:デフォルトの名無しさん
17/12/13 22:03:05.49 lbNGI0B20.net
チョイ前に変数の宣言が話題になってたから俺も一ネタ言いたい
「redim で変数の宣言が出来る仕様はやめて欲しい」
変数名を間違えた時にエラーで気付けるように普段から変数の宣言を強制してるんだけど、
redim で配列を変更する時に変数名を間違えても
新たな別の変数扱いされてエラーにならないから気付かないことがある
配列変数でも宣言は dim 、要素変更は redim っていう風にしといてくれたらと願ってやまない

422:デフォルトの名無しさん
17/12/13 23:22:51.89 b+I23nON0.net
Application.GetOpenFilename　でファイルのパスを求められることが分かった
Application.GetOpenFilename
Workbooks.Open.Filename:=Application.GetOpenFilename
ってできないことが意味がわらない

あと
Workbooks(Application.GetOpenFilename)ってやるとパス付のでエラーになってしまうこともわかった
Workbookオブジェクトに適当な変数を宣言して iとする
i = Application.GetOpenFilename
i.worksheet()ってできない意味がわからない
i = Workbooks.Open(filename:= ApplicationGetOpenFilename)
i.worksheets()
これならできる意味がわからない
()で戻り値をくくるのはわかる
でもこの場合の戻り値はパス付戻り値であるから　Applcation.GetOpen....
はいらないのでは？パス付戻り値ならば
i = Application.GetOpenFilename
でもできるのでは？WorkBookオブジェクト変数だから
誰か答えられる？

423:デフォルトの名無しさん
17/12/13 23:34:03.63 fRI8/I3E0.net
そういう言語仕様なので

424:デフォルトの名無しさん
17/12/13 23:49:56.82 b+I23nON0.net
わりと真面目に答えてくれ
オブジェクト変数に直接パス付のファイル名をぶち込んでエラーになるのが意味わからない
なんのためのオブジェクト変数なんだ
Workbooks.Open(filename:= ApplicationGetOpenFilename)
これもパス付のファイル名なのになんで格納できるんだ？

425:デフォルトの名無しさん
17/12/14 00:01:33.96 iqnmwrCv0.net
まず型というものを理解してください
つぎに、プロパティというものを理解してください
つぎに、オブジェクトにはデフォルトプロパティというものがあるのを理解してください
あと名前付き引数に対する理解も必要ですね
VBAではSetでの代入とLet(を省略した)代入では意味が違うので、それもちゃんと区別してください
いちいち全部ここで解説はせんが
このぐらい理解すればたぶん答えはわかるだろ

426:デフォルトの名無しさん
17/12/14 00:13:48.84 iqnmwrCv0.net
まじめに答えといてやるけど
>オブジェクト変数に直接パス付のファイル名をぶち込んでエラーになるのが意味わからない
たぶんお前がやってるのは、そのオブジェクト変数のデフォルトプロパティに代入しようとした
で、そのオブジェクトがそれを受け入れないからエラーがでたんだろうな
>Workbooks.Open(filename:= ApplicationGetOpenFilename)
>これもパス付のファイル名なのになんで格納できるんだ？
格納の意味が分からん
ApplicationGetOpenFilename（の結果）をたんにOpenの(filename)引数として渡してるだけ
ApplicationGetOpenFilenameの結果がOpenのfilename引数として適当だからエラーが出なかっただけ

427:デフォルトの名無しさん
17/12/14 00:14:33.99 FrwGQASIx.net
パス付戻り値っていう表現が凄い
Application.GetOpenFilenameの戻り値は、パス文字列か、パス文字列の配列か、ダイアログがキャンセルされたときに返されるFalseかのいずれかしかない
パス付って、何にパスがくっついてると理解してるんだろう
パスが戻り値そのものだろう

428:デフォルトの名無しさん
17/12/14 00:18:35.88 oVDd8Fug0.net
>>416
意味がわからん
初心者相手に専門用語で勝った気になるなよ

429:デフォルトの名無しさん
17/12/14 00:21:23.88 oVDd8Fug0.net
>>417
パスってのは
¥C:のことだろ？
openメゾットの戻り値も¥C:ついてるのに
WBオブジェクト変数に格納できる意味がわからない
専門用語でこたえるなわかりやすく答えろ
外人相手に口喧嘩して勝ち誇ってるやつと同じだわ

430:デフォルトの名無しさん
17/12/14 00:23:38.19 oVDd8Fug0.net
workbookのオブジェクト変数のデフォルトプロパティってなんだよ
そこを答えろ
答えろって言わないと答え出て来ねえのかよ

431:デフォルトの名無しさん
17/12/14 00:24:22.55 oVDd8Fug0.net
ちなみにおれはVBA初めて3時間
ここまでの疑問が出るだけすごいと思うけど

432:デフォルトの名無しさん
17/12/14 00:24:26.11 0XKK4N9O0.net
>>412
>Workbooks.Open.Filename:=Application.GetOpenFilename
>ってできないことが意味がわ「か」らない
Workbooks.Open Filename:=Application.GetOpenFilename
なら動くんだが、それではダメ？(open と filename の間は半角スペース)
何故かと言えば言語の仕様として
引数はピリオドで繋ぐものではないからとしか言いようがない
(workbooks はオブジェクト、open はメソッド、filename:=~ はその引数)
>i = Application.GetOpenFilename
>i.worksheet「s」()ってできない意味がわからない
変数i が workbook型だとして、Application.GetOpenFilename の戻り値はworkbook型ではない。
戻り値はvariant型なんだけど、キャンセル時に false になるだけで、ファイルが選択されていれば文字列が返される
複数ファイルが選択されてても文字列が配列で帰るだけ
それに、i がworkbook型変数なので set を付けないとダメ
i が variant型変数なら文字列か false が帰るだけでヤッパリ workbook としての挙動はしない
i.worksheet「s」() っていうのも、worksheetオブジェクトは
既に開いているブックのシートしか指定出来ないから、i がブックとしてオープンしてなきゃ当然ダメ
>i = Workbooks.Open(filename:= ApplicationGetOpenFilename)
>i.worksheets()
>これならできる意味がわからない
set i = Workbooks.Open(filename:= ApplicationGetOpenFilename)
じゃないと動かないよ
理由は前述のとおり

433:デフォルトの名無しさん
17/12/14 00:32:01.43 FrwGQASIx.net
>>419
Openメソッドの戻り値はパスではなく、Workbookオブジェクトそのものだ
開いているブックの集まりであるWorkbooksコレクションオブジェクトに、引数Filenameで指定したブックを追加して、戻り値としてそのブックそのものを返す処理だ

何か根本的に勘違いしてるだろ君

434:デフォルトの名無しさん
17/12/14 00:33:36.37 oVDd8Fug0.net
>>422
お前がまだわかりやすいな
ただし
おれはすでに開いているファイルじゃないと操作できないとかは全部知っている
オブジェクト型変数の前にsetステートメントを置くことも知っている
つまり
Application.GetOpenfilename ＝ファイルを開いた時は文字列が返される
workbook型に返せないのか？
答えはパス付きの文字列で帰って来るためにノーだ
これも知ってる
Workbooks.Open filename:=Application.GetOpenfilename
これも知っている
しかし結果としては
ファイルを選択で開いたパス付き文字列を開く
という命令なはず
同じパス付き文字列なのにworkbook型に格納できないのが意味がわからない

435:デフォルトの名無しさん
17/12/14 00:35:42.03 oVDd8Fug0.net
>>423
ん？なんで？
msgboxで表示されてもパス付きになるよ？

436:デフォルトの名無しさん
17/12/14 00:41:28.15 oVDd8Fug0.net
またも意味不明な現象が起きた
拡張子を指定しなかったのに開いた
拡張子を指定したらなぜかエラーが出た
なんでだ？

URLﾘﾝｸ(i.imgur.com)

437:デフォルトの名無しさん
17/12/14 00:42:52.81 FrwGQASIx.net
>>420
オブジェクトには、特にプロパティ名を指定しないでアクセスする場合に、優先的に参照されるプロパティが決められていて、それをデフォルトプロパティと呼ぶ
オブジェクト型に合わないデータを代入してしまう構文になっているときでも、データの型がデフォルトプロパティの型に適合していればVBAはデフォルトプロパティへの代入として解釈して処理を受け付ける

次ページ