Excel VBA質問箱 IV

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

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


52420 / 76732 ←次へ | 前へ→

【29150】Re:フォームを利用したシートリンクについて
発言  LION  - 05/9/26(月) 18:46 -

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

おせっかいかもしれませんが
ComboBoxにシート名を登録したらいかがでしょうか?
CommandButtonも1つで済みますから。

UserFormにCommandButton1つと
ComboBox1つを配置して下さい。
ComboBoxのリストを選んでCommandButtonをクリック

Private Sub CommandButton1_Click()
Dim myShi As String

myShi = ComboBox1.Value

If myShi = "" Then
  Exit Sub
End If

Worksheets(myShi).Activate

End Sub

Private Sub UserForm_Initialize()

With ComboBox1
  .AddItem "Sheet1"
  .AddItem "Sheet2"
  .AddItem "Sheet3"
End With

End Sub

0 hits

【29145】フォームを利用したシートリンクについて sabu 05/9/26(月) 17:26 質問
【29147】Re:フォームを利用したシートリンクについて Foreach 05/9/26(月) 17:36 回答
【29150】Re:フォームを利用したシートリンクについて LION 05/9/26(月) 18:46 発言
【29166】Re:フォームを利用したシートリンクについて sabu 05/9/27(火) 8:19 お礼

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