|
Sub bunki()
Select Case MsgBox("本当にいいですか?", vbYesNo)
Case vbYes
MsgBox "はいがクリックされました"
Case vbNo
MsgBox "いいえがクリックされました"
End Select
End Sub
Private Sub 登録_Click()
bunki
Range("a65536").End(xlUp).Offset(1).Select
Selection = テキスト名前
With Selection.Borders(xlEdgeLeft) '外枠左罫線
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom) '外枠下罫線
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight) '外枠右罫線
LineStyle = xlContinuous
.Weight = xlThin
End With
Selection.Offset(, 1) = テキストふりがな
Range("a65536").End(xlUp).Offset(, 1).Select
With Selection.Borders(xlEdgeBottom) '外枠下罫線
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight) '外枠右罫線
LineStyle = xlContinuous
.Weight = xlThin
End With
Selection.Offset(, 1) = テキスト番号
Range("a65536").End(xlUp).Offset(, 2).Select
With Selection.Borders(xlEdgeBottom) '外枠下罫線
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight) '外枠右罫線
LineStyle = xlContinuous
.Weight = xlThin
End With
テキスト名前 = ""
テキストふりがな = ""
テキスト番号 = ""
テキスト名前.SetFocus
End Sub
|
|