Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

25771 / 76735

←次へ　｜　前へ→


	【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