Excel VBA質問箱 IV

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

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


42285 / 76732 ←次へ | 前へ→

【39518】Re:selectionのエラー
お礼  クマ  - 06/6/26(月) 0:00 -

引用なし
パスワード
   Sub test1()
Dim ws As Worksheet

 Set ws = Workbooks("book1").Sheets("Sheet1")
 If Not ws.Visible Then
  MsgBox ws.Name & "は非表示のため選択できません"
  ws.Activate
  MsgBox ActiveSheet.Name & "はアクティブですが非表示です"
  Range("A1").Value = "kuma"
 Else
  ws.Select
  Workbooks("book1").Sheets("Sheet1").Activate
  Range("A2").Value = "kuma" 
 End If
End Sub

これで「kuma」が書き込みされました
bookを非表示にしただけではsheetは非表示にならないみたいで
Elseに制御がうつってました

これでなんとかなりそうです
本当にありがとうございました

13 hits

【39505】selectionのエラー クマ 06/6/25(日) 21:32 質問
【39507】Re:selectionのエラー かみちゃん 06/6/25(日) 22:00 発言
【39510】Re:selectionのエラー クマ 06/6/25(日) 22:22 質問
【39513】Re:selectionのエラー クマ 06/6/25(日) 22:44 質問
【39514】Re:selectionのエラー かみちゃん 06/6/25(日) 22:57 発言
【39515】Re:selectionのエラー クマ 06/6/25(日) 23:22 お礼
【39516】Re:selectionのエラー かみちゃん 06/6/25(日) 23:29 発言
【39517】Re:selectionのエラー クマ 06/6/25(日) 23:38 発言
【39518】Re:selectionのエラー クマ 06/6/26(月) 0:00 お礼

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