Excel VBA質問箱 IV

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

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


5868 / 13646 ツリー ←次へ | 前へ→

【48459】コードの大文字がいつの間に小文字になってて かおピ 07/4/18(水) 14:32 質問[未読]
【48460】Re:コードの大文字がいつの間に小文字にな... Jaka 07/4/18(水) 14:46 発言[未読]
【48461】Re:コードの大文字がいつの間に小文字にな... ウッシ 07/4/18(水) 14:47 発言[未読]
【48466】Re:コードの大文字がいつの間に小文字にな... かおピ 07/4/18(水) 17:20 質問[未読]
【48469】Re:コードの大文字がいつの間に小文字にな... ウッシ 07/4/18(水) 17:30 発言[未読]
【48477】Re:コードの大文字がいつの間に小文字にな... かおピ 07/4/18(水) 18:26 お礼[未読]

【48459】コードの大文字がいつの間に小文字になっ...
質問  かおピ  - 07/4/18(水) 14:32 -

引用なし
パスワード
   こんにちは かおピです。

実は、いままで設定していたコードをよくみると、
Worksheets が worksheets なってます。
何度直しても、大文字になりません。はぁ・・困りました。
Dimで変数を宣言するときは、Worksheetと、大文字なります。
なぜこのようになったのでしょうか?
どうしたらよいでしょうか?

【48460】Re:コードの大文字がいつの間に小文字に...
発言  Jaka  - 07/4/18(水) 14:46 -

引用なし
パスワード
   参考
HTTP://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=16745;id=excel
 ↑
全角にしてあります。直してね。
下にある記事番号に
16745
を入力してもいけます。

【48461】Re:コードの大文字がいつの間に小文字に...
発言  ウッシ  - 07/4/18(水) 14:47 -

引用なし
パスワード
   こんにちは

どこかで、

Dim worksheets As worksheets
Sub test()
  Dim ws As Worksheet
  Set ws = worksheets("Sheet1")
End Sub

こんなふうになってないですか?

【48466】Re:コードの大文字がいつの間に小文字に...
質問  かおピ  - 07/4/18(水) 17:20 -

引用なし
パスワード
   ウッシさん こんにちは かおピ です。
>Dim worksheets As worksheets
>Sub test()
>  Dim ws As Worksheet
>  Set ws = worksheets("Sheet1")
>End Sub
>
>こんなふうになってないですか?

実は、結論をいいますと、直りました。
職場でも、家でも何度もやってみてもだめでしたが・・
今、家で一つのwをWにしてみたら、すべてが大文字に戻りました。不思議・・・だ

職場でも直るのでしょうか?
でも、下記の変数宣言は、使っています。

Dim ws1 As Worksheet, ws2 As Worksheet, r1 As Range
Dim s1 As String, s2 As String, RR As Long, Rmax As Long

 これは、問題はないですか?

【48469】Re:コードの大文字がいつの間に小文字に...
発言  ウッシ  - 07/4/18(水) 17:30 -

引用なし
パスワード
   こんにちは

Jakaさんのレスの通り、一度
>Dim WorkSheets
>Dim WorkSheet
のように先頭大文字で宣言し直せば直ります。
後勝ちみたいです。

職場でも同じファイルのコピーを使っているのでしたら、同様の処理で直ると思います。

【48477】Re:コードの大文字がいつの間に小文字に...
お礼  かおピ  - 07/4/18(水) 18:26 -

引用なし
パスワード
   ▼ウッシ さん:ありがとうございました。
Jakaさん ありがとうございました。

些細なことでしたが、
丁寧に回答をいただき感謝します。
 
 かおピ。

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