Excel VBA質問箱 IV

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

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


67803 / 76734 ←次へ | 前へ→

【13482】Re:行全体を削除する方法
質問  こっこ  - 04/5/6(木) 14:29 -

引用なし
パスワード
   ▼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
2 hits

【13301】行全体を削除する方法 こっこ 04/5/1(土) 11:59 質問
【13302】Re:行全体を削除する方法 かみちゃん 04/5/1(土) 12:43 発言
【13304】Re:行全体を削除する方法 こっこ 04/5/1(土) 13:13 質問
【13306】Re:行全体を削除する方法 Asaki 04/5/1(土) 13:29 回答
【13307】Re:行全体を削除する方法 こっこ 04/5/1(土) 13:47 お礼
【13308】Re:行全体を削除する方法 Asaki 04/5/1(土) 13:59 発言
【13310】Re:行全体を削除する方法 こっこ 04/5/1(土) 14:36 質問
【13311】Re:行全体を削除する方法 こっこ 04/5/1(土) 14:42 発言
【13313】Re:行全体を削除する方法 Asaki 04/5/1(土) 14:49 回答
【13312】Re:行全体を削除する方法 Asaki 04/5/1(土) 14:47 回答
【13315】Re:行全体を削除する方法 こっこ 04/5/1(土) 14:56 質問
【13316】Re:行全体を削除する方法 Asaki 04/5/1(土) 15:07 回答
【13319】Re:行全体を削除する方法 こっこ 04/5/1(土) 15:54 質問
【13328】Re:行全体を削除する方法 Asaki 04/5/1(土) 19:50 回答
【13482】Re:行全体を削除する方法 こっこ 04/5/6(木) 14:29 質問
【13488】Re:行全体を削除する方法 Asaki 04/5/6(木) 15:25 回答
【13490】Re:行全体を削除する方法 こっこ 04/5/6(木) 15:54 お礼

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