|
▼マジビスプレスリー さん:
>ご回答ありがとうございます。
>自分なりにも考えてこのように変えてみたのですが、
『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
|
|