Excel VBA質問箱 IV

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

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


73799 / 76732 ←次へ | 前へ→

【7407】Re:シートの名前を取り出す
回答  INA  - 03/9/4(木) 12:28 -

引用なし
パスワード
   こんな感じかな?

Private Sub CommandButton1_Click()
  Call shtsel
End Sub

−−−−−−−−−−−−−−−−−−
<標準M>
Public Sub shtsel()
Dim ShtNo As String

  If Left(ActiveSheet.Name, 1) = "食" Then
    ShtNo = CInt(Mid(ActiveSheet.Name, 3))
    
    If ShtNo = 1 Then
      ShtNo = 12
    Else
      ShtNo = ShtNo - 1
    End If
    
    Worksheets("食費" & ShtNo).Select
  
  ElseIf Left(ActiveSheet.Name, 1) = "光" Then
    ShtNo = CInt(Mid(ActiveSheet.Name, 4))
    
    If ShtNo = 1 Then
      ShtNo = 12
    Else
      ShtNo = ShtNo - 1
    End If
    
    Worksheets("光熱費" & ShtNo).Select
  
  End If

End Sub
1 hits

【7402】シートの名前を取り出す 03/9/4(木) 11:01 質問
【7407】Re:シートの名前を取り出す INA 03/9/4(木) 12:28 回答
【7418】Re:シートの名前を取り出す 03/9/4(木) 14:57 質問
【7419】Re:シートの名前を取り出す INA 03/9/4(木) 15:01 回答
【7421】Re:シートの名前を取り出す 03/9/4(木) 16:13 質問
【7423】Re:シートの名前を取り出す INA 03/9/4(木) 16:40 回答
【7432】Re:シートの名前を取り出す ゆと 03/9/4(木) 23:03 発言
【7451】Re:シートの名前を取り出す 03/9/5(金) 10:44 発言
【7450】Re:シートの名前を取り出す 03/9/5(金) 10:43 質問
【7453】Re:シートの名前を取り出す INA 03/9/5(金) 10:57 回答
【7486】Re:シートの名前を取り出す 03/9/5(金) 16:54 質問
【7487】Re:シートの名前を取り出す INA 03/9/5(金) 16:59 発言
【7488】Re:シートの名前を取り出す Jカーター 03/9/5(金) 17:01 回答
【7489】Re:シートの名前を取り出す INA 03/9/5(金) 17:05 回答
【7491】Re:シートの名前を取り出す 03/9/5(金) 17:13 質問
【7493】Re:シートの名前を取り出す INA 03/9/5(金) 17:17 発言
【7496】Re:シートの名前を取り出す 03/9/5(金) 17:21 質問
【7499】Re:シートの名前を取り出す 03/9/5(金) 17:49 発言
【7605】Re:シートの名前を取り出す 03/9/9(火) 15:40 お礼

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