Excel VBA質問箱 IV

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

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


15909 / 76734 ←次へ | 前へ→

【66299】Re:エラーメッセージ
発言  めぐたん  - 10/8/19(木) 11:24 -

引用なし
パスワード
   ▼マジビスプレスリー さん:

>ご回答ありがとうございます。
>自分なりにも考えてこのように変えてみたのですが、
『Elseに対応するIfがありません』というエラーメッセージがでてしまいます。
なぜなのでしょうか?
自分なりには、このElseは必要なのですが・・・。
お分かりになる方、教えてください。

If ComboBox1 = "" Then
 intRet = MsgBox("区分を選択してください。", vbyesOnly + vbCritical, "区分選択")
  ComboBox1.SetFocus
Else
If (TextBox1 = "") Or (TextBox2 = "") Then
 intRet = MsgBox("ユーザー名を入力してください。", vbyesOnly + vbCritical, "ユーザー名入力")
  If (ComboBox1 = "JA") Or (ComboBox1 = "その他") Then
  TextBox2.SetFocus
  Else
  TextBox1.SetFocus
Else←ここの部分
 Dim x As Long
  Select Case ComboBox1.Value
   Case "MB": x = 1
   Case "BK": x = 2
   Case "2B": x = 3
   Case "信金": x = 4
   Case "信組": x = 5
   Case "JA": x = 6
   Case "労金": x = 7
   Case "その他": x = 8
  End Select
 
 If x <> 0 Then
 Cells(5, (x + 1)).End(xlDown).Offset(1).Value = (TextBox1.Value & TextBox2.Value)
 
 Unload UserForm1
 
 Cells(5, (x + 1)).End(xlDown).Select
 
  Dim mySheet As Worksheet
  Dim newSheet As Worksheet
  Dim myAddress As Range
  Dim myName As String
  Set mySheet = ActiveSheet
  Set myAddress = ActiveCell
  myName = myAddress.Value

  Sheets("m-20製品マスタ(売上)").Copy After:=Worksheets(Worksheets.Count)
  Set newSheet = ActiveSheet
  newSheet.Name = myName
  newSheet.Range("C2").Value = myName

  mySheet.Select
  mySheet.Hyperlinks.Add Anchor:=myAddress, Address:="", _
     SubAddress:=myName & "!d2", TextToDisplay:=myName

  myAddress.Hyperlinks(1).Follow NewWindow:=False, _
     AddHistory:=True
 
  mySheet.Select
  Cells(5, (x + 1)).End(xlDown).Select
   
  End If
  End If
  End If
  End If
   
End Sub

0 hits

【66292】エラーメッセージ めぐたん 10/8/18(水) 17:22 質問
【66293】Re:エラーメッセージ マジビスプレスリー 10/8/18(水) 18:53 回答
【66299】Re:エラーメッセージ めぐたん 10/8/19(木) 11:24 発言
【66300】Re:エラーメッセージ kanabun 10/8/19(木) 11:38 発言
【66301】Re:エラーメッセージ kanabun 10/8/19(木) 11:42 発言
【66309】Re:エラーメッセージ めぐたん 10/8/20(金) 9:52 発言
【66310】Re:エラーメッセージ kanabun 10/8/20(金) 10:30 発言
【66311】Re:エラーメッセージ kanabun 10/8/20(金) 10:49 発言
【66316】Re:エラーメッセージ めぐたん 10/8/20(金) 17:15 お礼

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