質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

1500閲覧

VBA シートごとの列数とカラム数を取得できない

Chandler_Bing

総合スコア673

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

1グッド

0クリップ

投稿2020/04/11 06:06

編集2020/04/11 08:00

いつもお世話になっております。

表題の通りです。シートをForEachしているつもりなのですが、
実行時に選択されている、シートの行数とカラム数しか取得できません。

現在のエクセルのシート状態、VBAのコード、実行結果を貼ります。

エクセルの値

現在のコードは以下です。(シート名に意味はないのであまり気にしないでください)

VBA

1 2Sub makeSeeder() 3Dim Ws As Worksheet 4 For Each Ws In Worksheets 5 'カラム数と行数を格納 6 Dim clms_cnt As Integer 7 clms_cnt = Ws.Application.CountA(Range("1:1")) 8 9 Dim row_cnt As Integer 10 row_cnt = Ws.Application.CountA(Range("A:A")) 11 12 'ウィンドウに表示させる 13 Debug.Print Ws.Name 14 Debug.Print clms_cnt 15 Debug.Print row_cnt 16 Next Ws 17End Sub 18 19'実行結果 20't_abc_def 21'5 22'7 23't_ghi_jkl 24'5 25'7

実行する際は「イメージ」シートは削除した状態で行っています。
「Ws.Name」が動作しているのでシートはForEachで回せていると思うのですが。

ご教示よろしくお願いします。

m.ts10806👍を押しています

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

m.ts10806

2020/04/11 06:18

>VBA アクティブシートが選択されていない 質問内容と全く違うタイトルになってませんか。 >https://teratail.com/help/question-tips#questionTips3-1 もしタイトルをどのように書いていいのかがわからない場合は、先に質問の詳細を書いてみることをお勧めします。 先に詳細をまとめれば、あとはその要約をすればいいのでタイトルが書きやすくなります。
m.ts10806

2020/04/11 06:19

そもそもExcelからPHPコードを生成するということ自体がかなり難儀なことをやろうとしてるので、 もっとやり方考えた方がいいと思います。
Chandler_Bing

2020/04/11 07:47

ありがとうございます。 結局したいことはシートごとの列数とカラム数を取得することなので、 余計な情報が多すぎますね。少し後になりますが、書き直します。
guest

回答1

0

ベストアンサー

Range("1:1") というようにワークシートを省略すると、アクティブシートが対象になります。
Ws.Range("1:1") というようにワークシートを指定しましょう。

投稿2020/04/11 07:37

hatena19

総合スコア33620

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

Chandler_Bing

2020/04/11 08:01

ありがとうございます。試してみます。
Chandler_Bing

2020/04/11 08:07

うまく実行できました。ありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問