Excel VBA質問箱 IV

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

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


14108 / 76734 ←次へ | 前へ→

【68126】Re:フォームに表示するシートを固定する
回答  UO3  - 11/2/3(木) 15:22 -

引用なし
パスワード
   ▼ケイ さん:

やりたいことを誤解しているかもしれませんが以下のようなことでしょうか?

Option Explicit

Private Sht As Worksheet
Private データ行 As Long

Private Sub UserForm_Initialize()
  Set Sht = Sheets("Sheet1")
End Sub

Private Sub cmdButton次_Click()
  If ActiveSheet.Name <> Sht.Name Then
   MsgBox "このシートでは、このボタンはおせません"
  Else
   データ行 = データ行 + 1
   Sht.Cells(データ行, 3).Select
  End If
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  Set Sht = Nothing
End Sub
3 hits

【68105】フォームに表示するシートを固定する ケイ 11/2/2(水) 16:41 質問
【68107】Re:フォームに表示するシートを固定する [名前なし] 11/2/2(水) 20:20 発言
【68115】Re:フォームに表示するシートを固定する ケイ 11/2/3(木) 10:06 質問
【68119】Re:フォームに表示するシートを固定する UO3 11/2/3(木) 11:13 回答
【68123】Re:フォームに表示するシートを固定する とおりすがり 11/2/3(木) 13:55 回答
【68124】Re:フォームに表示するシートを固定する UO3 11/2/3(木) 14:21 発言
【68125】Re:フォームに表示するシートを固定する ケイ 11/2/3(木) 14:22 質問
【68126】Re:フォームに表示するシートを固定する UO3 11/2/3(木) 15:22 回答

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