Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


14510 / 76734 ←次へ | 前へ→

【67714】Re:列数の取得について
お礼  bakadeus E-MAIL  - 11/1/3(月) 10:41 -

引用なし
パスワード
   ▼かみちゃん さん:
早速のご教示ありがとうございます。

>ご自身が期待しているシートが、実行される時点でのアクティブシートになって
>いるかどうかも含めて確認してみてください。
このご指摘で、はた!と気づき、「msgbox レコード数取得」と追記して確認したところ、ちゃんと列数を表示したのですが、OKを押すとすぐに「0」と表示しました。その時のフォームの背景シートが別シートになっていたのでご教示いただいたコードに修正して、シートと特定したところ、バッチリうまく表示できました。
>Public Function レコード数取得() As Integer
> レコード数取得 = Worksheets("○○").Range("a1").CurrentRegion.Columns.Count - 1
>End Function
Worksheets("○○")で作業しているものだと思い込んでいたので気づきませんでした。
的確なご教示本当にありがとうございました。
この関係のコードで別件で質問させていただきますので、懲りずにまたご教示お願いします。

2 hits

【67712】列数の取得について bakadeus 11/1/3(月) 9:01 質問
【67713】Re:列数の取得について かみちゃん 11/1/3(月) 9:30 発言
【67714】Re:列数の取得について bakadeus 11/1/3(月) 10:41 お礼

14510 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free