お勉強コミュのフォームのアドレス表示

Private Sub CommandButton1_Click() '画像を表示
Worksheets(1).Select 'シート1を選ぶ

Range("A2:F2").ClearContents 'シート1のA2〜F2を削除

Range("A2").Value = ComboBox1.Text 'コンボボックスからセルへ入力して
Range("B2").Value = ComboBox2.Text 'フォルダー名のアドレスを作る
Range("C2").Value = ComboBox3.Text
Range("D2").Value = ComboBox4.Text
Range("E2").Value = ComboBox5.Text
Range("F2").Value = ComboBox6.Text
Range("G2").Value = ComboBox7.Text
Range("H2").Value = ComboBox8.Text
Range("I2").Value = ComboBox9.Text

TextBox1.Value = Range("A5") '画像の参照ファイル名をテキストボックス1に書き出す


Image2.Picture = LoadPicture(Range("A5").Value) 'フォームへ画像を表示する

TextBox2.Value = Range("A7") '画像の参照ファイル名をテキストボックス2に書き出す

End Sub
Private Sub SetComboBox3() 'コンボボックスの分岐選択する
With ComboBox3
.Clear
.Font.Size = 12
If ComboBox2 = "サイクル" Then
.AddItem "-1〜10"
.AddItem "-1〜20"
.AddItem "-1〜30"
ElseIf ComboBox2 = "連続" Then
.AddItem "-1〜10"
.AddItem "-1〜20"
.AddItem "-1〜30"
End If
End With
End Sub
Private Sub SetComboBox4() 'コンボボックスの分岐選択する
With ComboBox4
.Clear
.Font.Size = 12
'If ComboBox3 = "-1〜10" Then
.AddItem "鉛"
.AddItem "鉛フリー"
'ElseIf ComboBox3 = "-1〜20" Then
' .AddItem "鉛"
' .AddItem "鉛フリー"
'ElseIf ComboBox3 = "-1〜30" Then
' .AddItem "鉛"
' .AddItem "鉛フリー"
'End If
End With
End Sub
Private Sub SetComboBox5() 'コンボボックスの分岐選択する
With ComboBox5
.Clear
.Font.Size = 12
If ComboBox4 = "鉛" Then
.AddItem "ガラエポ"
.AddItem "紙フェ"
ElseIf ComboBox4 = "鉛フリー" Then
.AddItem "ガラエポ"
.AddItem "紙フェ"
End If
End With
End Sub
Private Sub SetComboBox6() 'コンボボックスの分岐選択する
With ComboBox6
.Clear
.Font.Size = 12
If ComboBox5 = "ガラエポ" Then
.AddItem "100"
.AddItem "500"
.AddItem "1000"
.AddItem "1500"
.AddItem "2000"
ElseIf ComboBox5 = "紙フェ" Then
.AddItem "100"
.AddItem "500"
.AddItem "1000"
.AddItem "1500"
.AddItem "2000"
End If
End With
End Sub

Private Sub SetComboBox7() 'コンボボックスの分岐選択する
With ComboBox7
.Clear
.Font.Size = 12
If ComboBox2 = "サイクル" & ComboBox3 = "-1〜10" & ComboBox6 = "100" Then

.AddItem "pbf22"

ElseIf ComboBox6 = "500" Then
.AddItem "pb25"
ElseIf ComboBox6 = "1000" Then
.AddItem "pb26"
ElseIf ComboBox6 = "1500" Then
.AddItem "pb27"
ElseIf ComboBox6 = "2000" Then
.AddItem "pb28"

End If
End With
End Sub

Private Sub CommandButton2_Click() '終了ボタンで終了する
Dim myend As Integer
myend = MsgBox("終了しますか？", vbQuestion + vbYesNo)
If myend = vbYes Then
Unload Me
End If
End Sub

Private Sub CommandButton3_Click()

Dim strFind As Variant
Dim msg As String
Dim 行 As String '行の宣言
Dim 列 As String '列の宣言
Dim 最終行 As String
Dim i As String
Dim 検索行 As Range
Sheets(3).Select
Range("A2").Select

最終行 = Range("A2").End(xlDown).Offset(1).Select 'A列の最終入力セルを選択
検索行 = Range("A2").End(xlDown).Select



strFind = UserForm1.TextBox2.Value '検索語

If Not ActiveSheet.UsedRange.Find(strFind, , xlValues, xlWhole) Is Nothing Then
'xlPart 部分, xlWhole 全部
msg = "データがあります。上書き保存します。"

ActiveCell = UserForm1.TextBox2.Value 'sheet3に検索コードを入力


Cells(ActiveCell + 1) = UserForm1.ComboBox7.Value '評価をB列の検索行に入力



Else
msg = "データがありません。新規コード入力します。"



Cells(行, 列 + 0) = UserForm1.TextBox2.Value 'sheet3に検索コードを入力

Cells(行, 列 + 1) = UserForm1.ComboBox7.Value '評価をB列の検索行に入力


End If
MsgBox msg
End Sub


Private Sub CommandButton4_Click() '入力ボタン

'変更前　Dim 行 As String
Dim 行 As Integer
'変更前　Dim 列 As String
Dim 列 As Integer
Dim 最終行 As String
Dim 検索行 As String
Dim メッセージ As Integer
Dim 一致 As Range
Dim myNO As Variant
'変更前　Dim i As Long
Dim i As Variant

Sheets(3).Select
最終行 = Range("A2").End(xlDown).Offset(1).Select
行 = ActiveCell.Row
列 = ActiveCell.Column
myNO = TextBox1.Value
'A2から、データのあるところまでを選択するように変更しました
検索行 = Range(Cells(2, 1), Cells(行 - 1, 列)).Select
'選択しているセルを検索するように変更しました
Set 一致 = Selection.Find(what:=TextBox2.Text, lookat:=xlWhole)
If 一致 Is Nothing Then
MsgBox "データがありません。新規コード入力します。"
Else
i = Cells(行 - 1, 1).Value
End If
End Sub





Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub userform_initialize()

With ComboBox1 'コンボボックス1に選択を入れる
.Font.Size = 12

.AddItem "C"
.AddItem "Y"
.AddItem "X"
End With

With ComboBox2
.Font.Size = 12
.AddItem "サイクル"
.AddItem "連続"

End With

'SetComboBox3


With ComboBox8
.Font.Size = 12

.AddItem "A"
.AddItem "B"
.AddItem "C"
.AddItem "D"
.AddItem "E"

End With

With ComboBox9
.Font.Size = 12

.AddItem "01"
.AddItem "02"
.AddItem "03"
.AddItem "04"
.AddItem "05"
.AddItem "06"
.AddItem "07"
.AddItem "08"
.AddItem "09"
.AddItem "10"
.AddItem "11"
.AddItem "12"
.AddItem "13"
.AddItem "14"
.AddItem "15"
.AddItem "16"
End With

With ComboBox9
.Font.Size = 12

.AddItem "01"
.AddItem "02"
.AddItem "03"
.AddItem "04"
.AddItem "05"
End With

End Sub

Private Sub ComboBox2_Change()
SetComboBox3 'コンボボックスにセットする
End Sub

Private Sub ComboBox3_Change()
SetComboBox4 'コンボボックスにセットする
End Sub

Private Sub ComboBox4_Change()
SetComboBox5 'コンボボックスにセットする
End Sub

Private Sub ComboBox5_Change()
SetComboBox6 'コンボボックスにセットする
End Sub

Private Sub ComboBox6_Change()
SetComboBox7 'コンボボックスにセットする
End Sub