Excel VBA質問箱 IV

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

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


25768 / 76732 ←次へ | 前へ→

【56301】Re:新規入力行を選択して、データを代入していく方法
発言  roxy  - 08/6/12(木) 17:21 -

引用なし
パスワード
   んー分かりません・・・・・・。

>コード全体を見てみないとなんとも。
以下、コードです。分かりにくくて申し訳ないです。

'納品管理台帳の番号がなくなるまで
  Y = I_START_Y

'出力開始設定
 Dim Kaishi As Range
 Set Kaishi = Worksheets("出力").Range("A65536").End(xlUp).Offset(1)
  
  Do Until IRAIws.Cells(Y, I_KEY_x).Value = ""
    If Trim(IRAIws.Cells(Y, I_TANTODAY_x).Value) = "" And _
      Trim(IRAIws.Cells(Y, I_UNOHINJISEKI_x).Value) <> "" Then
      If IRAIws.Cells(Y, I_UNOHINJISEKI_x).Value < Date - 6 Then
      

  '出力に出す
  
       Kaishi = Trim(IRAIws.Cells(Y, I_HYOKIKBN_x).Value)    
       Kaishi.Offset(, 1) = Trim(IRAIws.Cells(Y, I_NO_x).Value) & "-" & Trim(IRAIws.Cells(Y, I_EDA_x).Value)                                       
        Kaishi.Offset(, 2) = Trim(IRAIws.Cells(Y, I_ANKEN_x).Value)     
        Kaishi.Offset(, 3) = Trim(IRAIws.Cells(Y, I_TYUSYUTUTANTO_x).Value)     
       
      Kaishi.Offset(, 4) = Trim(IRAIws.Cells(Y, I_KANRYOU_x).Value)


  End If
 End If
      
    Y = Y + 1


    DoEvents
  Loop
0 hits

【56279】新規入力行を選択して、データを代入していく方法 roxy 08/6/12(木) 14:59 質問
【56280】Re:新規入力行を選択して、データを代入し... マクロマン 08/6/12(木) 15:04 発言
【56282】Re:新規入力行を選択して、データを代入し... roxy 08/6/12(木) 15:10 発言
【56283】Re:新規入力行を選択して、データを代入し... roxy 08/6/12(木) 15:16 質問
【56285】Re:新規入力行を選択して、データを代入し... マクロマン 08/6/12(木) 15:19 発言
【56286】Re:新規入力行を選択して、データを代入し... roxy 08/6/12(木) 15:21 発言
【56287】Re:新規入力行を選択して、データを代入し... マクロマン 08/6/12(木) 15:26 発言
【56288】Re:新規入力行を選択して、データを代入し... roxy 08/6/12(木) 15:31 お礼
【56289】Re:新規入力行を選択して、データを代入し... roxy 08/6/12(木) 15:37 質問
【56290】Re:新規入力行を選択して、データを代入し... マクロマン 08/6/12(木) 15:43 発言
【56291】Re:新規入力行を選択して、データを代入し... roxy 08/6/12(木) 16:10 お礼
【56293】Re:新規入力行を選択して、データを代入し... roxy 08/6/12(木) 16:32 質問
【56294】Re:新規入力行を選択して、データを代入し... マクロマン 08/6/12(木) 16:37 発言
【56296】Re:新規入力行を選択して、データを代入し... roxy 08/6/12(木) 17:05 発言
【56299】Re:新規入力行を選択して、データを代入し... マクロマン 08/6/12(木) 17:12 発言
【56301】Re:新規入力行を選択して、データを代入し... roxy 08/6/12(木) 17:21 発言
【56306】Re:新規入力行を選択して、データを代入し... じゅんじゅん 08/6/12(木) 18:40 発言
【56315】Re:新規入力行を選択して、データを代入し... roxy 08/6/13(金) 9:31 質問
【56318】Re:新規入力行を選択して、データを代入し... roxy 08/6/13(金) 9:41 発言
【56324】Re:新規入力行を選択して、データを代入し... じゅんじゅん 08/6/13(金) 11:32 発言
【56326】Re:新規入力行を選択して、データを代入し... roxy 08/6/13(金) 11:53 回答

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