Excel VBA 質問スレ Part61

2019/04/25(木) 23:41:03.61

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part60
https://mevius.5ch.net/test/read.cgi/tech/1552736349/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

2019/04/25(木) 23:47:29.76

>>998
>おっさん、それじゃ値が二つできてしまう

出来て良いんだよ。
どうせ2つあっても上の値しか拾わないし。

2019/04/26(金) 00:13:53.35

まだやってるのか

2019/04/26(金) 00:22:08.10

番兵の方を拾った場合は？

2019/04/26(金) 10:15:59.90

usedrange.columns.count は多用しますが
これを列番号ではなく
アルファベットで(AX列、というように)
取得することはできますか？

2019/04/26(金) 10:30:14.79

>>5
あ、addressメソッドがありました。
自己解決しました。

2019/04/26(金) 18:56:37.31

よっぽど自己矛盾について触れて欲しく無かったようだな。

>>973で>>857はその後だと言ってるのに。

2019/04/26(金) 19:59:27.77

ネットワーク上のMDBファイルにADOで接続して取ってきたデータを帳票に表示→印刷というマクロを作りました
しかし1件なら問題ないものの、ループ実行すると正常終了で終わるのですが
実際に印刷すると2件目以降のデータが反映されず、全て1件目のデータが印字されます
どうもMDBから取ってくる部分のタイミングの問題に見える（その部分に差し掛かると画面が固まる。DoEventsを入れずに重い処理をさせたときの感じ）のですが、SleepやDoEventsを適宜挟んだり、印刷ではなく別ブックやpdfに書き出しなどに変更しても効果が見えません

この現象の解消方法をご存知の方いませんか？

2019/04/26(金) 20:55:16.93

>>7
まだやってるのかよ
悔しがりすぎww

2019/04/26(金) 22:32:55.22

>>8
言ってることがよくわからんけど、adoで直結してデータとってきてるなら、doevents挟んでも意味ない
なので、そもそもバグってると思われる。

doeveが効果あるのは、間接的に（と言って伝わるかわからんけど）何か処理するとか表示を反映させるとかの場合

**デフォルトの名無しさん** (ｱﾒ MM79-GA32) · 2019/04/27(土) 00:36:16.19

>>8
俺も単なるプログラムミスだと思う
謎々シテナイデソース貼れよ

2019/04/27(土) 07:20:56.42

movenextが無いとかループカウンタが加算されていないとか

2019/04/27(土) 09:50:04.14

ブレイクポイント置いたり、debug.print挟んだりするのは、
基本のキ

2019/04/27(土) 12:20:27.60

Sheet1, Sheet2, Sheet3 がある状態で
A1 =fnEnumSheetName() と入力すると
A1 シート名一覧
A2 Sheet1
A3 Sheet2
A4 Sheet3
と表示されるようにしたいのですが
A1に#VALUE!と表示されDebug.PrintがSheet1しか表示しません
期待通りにするにはどう修正すればいいですか？
For文3行目のコメントアウトを外すとDebug.PrintとA1の表示は期待通りです

'シート名列挙
Public Function fnEnumSheetName() As String

Dim iIndex As Integer

For iIndex = 1 To Worksheets.Count
Debug.Print Worksheets(iIndex).Name
' ActiveCell.Offset(iIndex, 0).Value = Worksheets(iIndex).Name
Next iIndex

fnEnumSheetName = "シート名一覧"

End Function

2019/04/27(土) 12:25:43.11

訂正です
×　For文3行目のコメントアウトを外すとDebug.PrintとA1の表示は期待通りです
○　For文3行目をコメントアウトするとDebug.PrintとA1の表示は期待通りです

2019/04/27(土) 12:34:38.52

ブック名を入れてみたら

2019/04/27(土) 12:41:15.22

for iIndex=1 to workbooks("xxx.xls").sheets.count
workbooks("xxx.xls").sheets(iIndex).name

2019/04/27(土) 12:54:30.18

>>9
悔しいから反応してるんだろww

2019/04/27(土) 13:03:37.89

>>14
それ、前スレで言われてた副作用のある操作は難しいってのに該当する。

セルに入力中はVBAの実行が普通は出来ないから。

2019/04/27(土) 13:09:43.12

ActiveSheet.Cells(1, 1) = "シート名一覧"
Dim iIndex As Integer

For iIndex = 1 To Worksheets.Count
ActiveSheet.Cells(iIndex + 1, 1) = Worksheets(iIndex).Name
Next iIndex

全く何がしたいのかわからない

2019/04/27(土) 13:11:56.45

>>20
それをfunctionにしてセルの中からよび出そうとしてる。

それでは動かない筈。

2019/04/27(土) 13:15:34.87

>>14
ActiveCellが悪さしてそう
シート名を二次元配列に格納してセルにペーストした方が速いだろう

2019/04/27(土) 13:19:58.15

sheet1と表示されるなら、sheet2がないためエラーが発生してるんじゃない
関数は個人用マクロブックとかに書いてあるとか

2019/04/27(土) 13:20:05.54

>>21
そんなの単純に
A1 =fnEnumSheetName() と入力すると
このファンクション内で最初に書き換えるから？最初でなくても矛盾が生じる
から、動かなくても問題ない、そこに居れた式を書き換えたらなりたたない

当然だろ、何か考える必要あるのか？

2019/04/27(土) 13:25:15.46

>>24
いや、だから元々の質問は成り立たせたいわけだろ。

2019/04/27(土) 13:28:49.05

あと、シート自体にロックが掛かってるから入力中は動かないよ。

2019/04/27(土) 13:36:42.57

>>25
単純に考えても成り立たないだろ、ってかセキュリティもあったもんじゃなくなる
式を「A1」に入れて「A1」を書き換えたら

2019/04/27(土) 13:38:26.20

ありがとうございます

ブック名を指定しても
A1にシート名一覧を表示しないようにしても
同じ結果でした

2019/04/27(土) 13:42:36.94

>>28
すまないけど、人に分かるように書き込みできんのかな？

2019/04/27(土) 13:42:59.47

混乱してるみたいなのでまとめます

>>14の状態(コメントアウト有り)では
A1のシート名一覧は表示され
Debug.PrintもSheet1～Sheet3まで表示されます
コメントアウトしている部分で書き換えているのはA2～A4です

2019/04/27(土) 13:44:30.42

>>18
>>18ww

2019/04/27(土) 13:47:01.70

>>29
fnEnumSheetName = "シート名一覧" 'ここはコメントアウトしなくても問題無い

という事です

2019/04/27(土) 13:47:02.53

すまんかった
>19が正解っぽい
sheet1だけなら
fn～=application.thiscell.parent.nameで拾える
A1を書き換えようとすると2016では循環参照の警告がでる

2019/04/27(土) 13:52:49.27

>>33
そうなんですね

ではA1には式を入力するだけという事にしておいてください
ですがそれでも解決はしません

ActiveCellの部分を他の方法でやってみます

2019/04/27(土) 14:02:54.56

>>34
独自関数は、自分のセルを計算するだけにしておけよ
それ以外を許すと全く分からなくなる
その程度のことも判断しないとな

2019/04/27(土) 14:16:52.17

>>35
失礼ですがあなたの指摘(A1が云々)は本題とは関係無いんです
コメントアウトしても同じ結果だったので

2019/04/27(土) 14:42:51.99

>>31
その反応が面白いwww