- Excel VBA 質問スレ Part43 [無断転載禁止]©2ch.net
923 ：デフォルトの名無しさん[sage]：2016/11/15(火) 08:14:24.73 ID:I1rOpQ0I - >>915
>管理番号、販売月と前行管理番号、前行販売月と比較
この部分で引っかかっています。
手元に残っている、Do Loop文を設定する前の式ですが、どこを修正するべきでしょうか？
Sub Main_Make()
Dim DataFileName, strFileName As String
'DataFileName = データファイル名、strFileName = 様式ファイル名
Dim Data_GYO As Integer
Dim KANRI,NONYU,BUNRUI,MONTH,BASYO,JURYO As String
Dim MaxRow_Data2 As Integer
Workbooks(DataFileName).Worksheets(1).Activate
Workbooks(DataFileName).Worksheets(1).Range(
| - Excel VBA 質問スレ Part43 [無断転載禁止]©2ch.net
924 ：923[sage]：2016/11/15(火) 08:17:50.12 ID:I1rOpQ0I - 途中で切れてしまいました。
Sub Main_Make()
Dim DataFileName, strFileName As String
'DataFileName = データファイル名、strFileName = 様式ファイル名
Dim Data_GYO As Integer
Dim KANRI,NONYU,BUNRUI,MONTH,BASYO,JURYO As String
Dim MaxRow_Data2 As Integer
Workbooks(DataFileName).Worksheets(1).Activate
Workbooks(DataFileName).Worksheets(1).Range("A1").Select
MaxRow_Data2 = Workbooks(DataFileName).Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
| - Excel VBA 質問スレ Part43 [無断転載禁止]©2ch.net
925 ：923[sage]：2016/11/15(火) 08:19:17.53 ID:I1rOpQ0I - Workbooks(strFileName).Worksheets(1).Activate
Workbooks(strFileName).Worksheets(1).Range("C10").Select
For Data_GYO = 1 To MaxRow_Data2
'//転記データを変数として取得
KANRI = Workbooks(DataFileName).Worksheets(1).Cells(Data_GYO, 1).Value
NONYU = Workbooks(DataFileName).Worksheets(1).Cells(Data_GYO, 4).Value
MONTH = Workbooks(DataFileName).Worksheets(1).Cells(Data_GYO, 6).Value
BASYO = Workbooks(DataFileName).Worksheets(1).Cells(Data_GYO, 8).Value
JURYO = Workbooks(DataFileName).Worksheets(1).Cells(Data_GYO, 9).Value
'//管理番号と納入先を入力する。
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 1) = KANRI
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 3) = NONYU
BUNRUI = Workbooks(DataFileName).Worksheets(1).Cells(Tmp_GYO2, 5).Value
| - Excel VBA 質問スレ Part43 [無断転載禁止]©2ch.net
926 ：923[sage]：2016/11/15(火) 08:20:19.39 ID:I1rOpQ0I - Select Case BUNRUI
Case 1
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 3).Value = MONTH
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 3).Value = BASYO
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 3).Value = JURYO
Case 2
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 4).Value = MONTH
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 4).Value = BASYO
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 4).Value = JURYO
Case 3
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 5).Value = MONTH
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 5).Value = BASYO
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 5).Value = JURYO
Case Else
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 6).Value = MONTH
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 6).Value = BASYO
Workbooks(strFileName).Worksheets(1).Cells((4 * str_GYO -1), 6).Value = JURYO
End Select
Next Tmp_GYO2
End Sub
| - Excel VBA 質問スレ Part43 [無断転載禁止]©2ch.net
927 ：923[sage]：2016/11/15(火) 08:21:39.53 ID:I1rOpQ0I - あ゛ー、str_GYOの変数宣言忘れてた…
| - Excel VBA 質問スレ Part43 [無断転載禁止]©2ch.net
940 ：923[sage]：2016/11/15(火) 13:00:16.35 ID:I1rOpQ0I - >>915
>cells(a,b)とcells(a-1,b)を比較すればいいんですよ。
こんな単純な事に気が付いていませんでした。。。
ご指摘ありがとうございます。
残る原因は、ループ処理させるポイントが間違っている事ですが、
こちらについては自分で虱潰しに調べて直してみます。
本当にありがとうございました！
|
|