|
▼Asaki さん:こんにちは。
>>『MsgBox Target』で表示されているのに、削除できなかったりします。
>これは、例えば、コンボボックスで 5 を選択して、MsgBox でも 5 と表示されるのに、4行目が削除されてしまう、というような意味ですか?
→そうです。別のフォームから登録処理も出来るようにしているのですが、、、
その際にコンボボックスで選択する番号を入力しているのですが、
(NewData = Range("A65536").End(xlUp).Row + 1
With Worksheets("sheet1")
Cells(NewData, 1) = NewData - 1
UserForm1.ComboBox1.AddItem NewData - 1)
削除をする際に、途中を削除してしまうと、番号がズレてしまい、フォーム上で選択されている、データが削除できなかったりします。
((例えば、1〜20迄登録されている中の15を消すと、16以降がずれてしまい、削除できないということです。分かりにくくてすいません))
>該当のマクロが動いている間、対象とするシートは表示されていますか?
→表示されています。
>コンボボックスの中身は、どのようにして設定していますか?
→コンボオックスの中身です。
Private Sub ComboBox1_Change()
Dim Target As Long
Dim myDate As String '指定日付
Dim Days As String '間隔(日)
Dim today As String
today = Format(Now(), "ggge年m月d日")
Target = ComboBox1.ListIndex
If Worksheets("sheet1").Cells(Target + 2, 9) = "" Then '*免許を持っていない場合*
Label15 = "無期限" '*無期限と表示*
Label18 = "***日" '*残数を***日とする*
Else
myDate = Worksheets("sheet1").Cells(Target + 2, 9).Value
Label15 = Format(myDate, "ggge年m月d日")
Sheet1.Cells(Target + 2, 11) = DateDiff("d", Date, myDate) & "日"
Label18 = Format(Sheet1.Cells(Target + 2, 11), "d日")
End If
Label7 = Cells(Target + 2, 2) '*名前*
Label8 = Cells(Target + 2, 3) '*フリガナ*
Label9 = Cells(Target + 2, 4) '*現住所*
Label10 = Cells(Target + 2, 5) '*連絡先*
Label11 = Cells(Target + 2, 6) '*携帯*
Label12 = Cells(Target + 2, 7) '*アドレス*
Label16 = Format(Cells(Target + 2, 10), "ggge年m月d日") '*写真撮影日*
If Dir(Cells(Target + 2, 8)) <> "" Then '*if文。画像の有無*
Image1.Picture = LoadPicture(Cells(Target + 2, 8)) '*画像があるとき:指定ファイルを表示*
Else
Image1.Picture = LoadPicture() '*画像がないとき:無表示*
End If
End Sub
|
|