Excel VBA質問箱 IV

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

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


7203 / 13644 ツリー ←次へ | 前へ→

【40481】検索して一致したらデータ入力 06/7/14(金) 15:33 質問[未読]
【40486】Re:検索して一致したらデータ入力 ichinose 06/7/14(金) 18:45 発言[未読]
【40512】Re:検索して一致したらデータ入力 06/7/15(土) 12:48 質問[未読]
【40517】Re:検索して一致したらデータ入力 ichinose 06/7/15(土) 15:10 発言[未読]
【40534】Re:検索して一致したらデータ入力 06/7/15(土) 22:37 お礼[未読]
【40544】Re:検索して一致したらデータ入力 ichinose 06/7/16(日) 8:56 発言[未読]
【40564】Re:検索して一致したらデータ入力 06/7/17(月) 22:14 お礼[未読]
【40515】Re:検索して一致したらデータ入力 Kein 06/7/15(土) 13:35 回答[未読]
【40520】Re:検索して一致したらデータ入力 06/7/15(土) 18:01 質問[未読]
【40562】Re:検索して一致したらデータ入力 kobasan 06/7/17(月) 16:20 発言[未読]
【40563】Re:検索して一致したらデータ入力 kobasan 06/7/17(月) 20:53 発言[未読]
【40565】Re:検索して一致したらデータ入力 06/7/17(月) 22:26 お礼[未読]

【40481】検索して一致したらデータ入力
質問    - 06/7/14(金) 15:33 -

引用なし
パスワード
   いつもお世話になっています。
今回も処理方法が分からず苦労しています。
どうしたらいいか教えてください。

以下のようなシートが2枚あります。
シートAにリストがあって、シートBに
データが無い場合はシートBには
(日付は入れず、)D列に1000と表示させ
たいと思っています。

シートAのC列値を検索キーとして
Findメソッドを使いたいと思っています。
尚、サンプルではDDDは一つですが、実データ
ではいくつもあります。


シートA(リスト)

    A    B    C
1      ID1    ID2      氏名
2       AAA    111      中田
3    BBB    222      宮本
4    CCC    333     中村
5    DDD    444     川口


シートB
    A    B    C    D    
1  年月日    ID1    ID2  料金
2   6/1    AAA     111    6300    
3   6/3    BBB     222    3000
4   6/5    CCC     333    4000
5   6/7    AAA     111    9000
6   6/10    CCC     333    4000
4   6/12    BBB     222    8000
8   6/20    AAA     111    7000

<ほしい結果>
シートB
    A    B    C    D    
1  年月日    ID1    ID2  料金
2   6/1    AAA     111    6300    
3   6/3    BBB     222    3000
4   6/5    CCC     333    4000
5   6/7    AAA     111    9000
6   6/10    CCC     333    4000
4   6/12    BBB     222    8000
8   6/20    AAA     111    7000
8        DDD     444    1000

過去ログから参考になるコードを探して
以下のように改良してみましたが、全く動きません。

Sub 見つけたら1000円()

Dim adrs As String, addr As Range
Dim theadd As String, R As Range

'Application.ScreenUpdating = False

For i = 2 To Lastrow = Rows.Count
adrs = Sheets("シートA").Cells(i, 1).Value
With Worksheets("シートB")
   Set addr = .Range("B1:B35000").Find(adrs, , xlValues, xlPart)
   If Not addr Is Nothing Then
    theadd = addr.Address
    Set R = addr
    Do
     Set addr = .Range("B1:B35000").FindNext(addr)
     Set R = Union(R, addr)
    Loop Until theadd = addr.Address
     theadd.Offset(, 5).Value = "1000"
    .Activate
    R.Activate
   Else
    Exit For
    
   End If
End With
Application.ScreenUpdating = True
Set R = Nothing: Set addr = Nothing
Next

End Sub

【40486】Re:検索して一致したらデータ入力
発言  ichinose  - 06/7/14(金) 18:45 -

引用なし
パスワード
   ▼涙 さん:
こんばんは。

>>シートA(リスト)
>
>    A    B    C
>1      ID1    ID2      氏名
>2       AAA    111      中田
>3    BBB    222      宮本
>4    CCC    333     中村
>5    DDD    444     川口
>
>
>シートB
>    A    B    C    D    
>1  年月日    ID1    ID2  料金
>2   6/1    AAA     111    6300    
>3   6/3    BBB     222    3000
>4   6/5    CCC     333    4000
>5   6/7    AAA     111    9000
>6   6/10    CCC     333    4000
>4   6/12    BBB     222    8000
>8   6/20    AAA     111    7000
>
><ほしい結果>
>シートB
>    A    B    C    D    
>1  年月日    ID1    ID2  料金
>2   6/1    AAA     111    6300    
>3   6/3    BBB     222    3000
>4   6/5    CCC     333    4000
>5   6/7    AAA     111    9000
>6   6/10    CCC     333    4000
>4   6/12    BBB     222    8000
>8   6/20    AAA     111    7000
>8        DDD     444    1000
>
標準モジュールに
'===============================================================
Sub main()
  Dim rng1 As Range
  Dim rng2 As Range
  Dim crng As Range
  Dim nrw As Long
  With Worksheets("シートA")
    Set rng1 = .Range("a2", .Cells(.Rows.Count, "a").End(xlUp))
    End With
  With Worksheets("シートB")
    Set rng2 = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp))
    End With
  If rng1.Row > 1 Then
    If rng2.Row > 1 Then
     nrw = 0
     For Each crng In rng1
       If Evaluate("=SUM(EXACT(" & rng2.Address(, , , True) & "," & crng.Address(, , , True) & ")*1)") = 0 Then
        With rng2
          .Cells(.Rows.Count + 1 + nrw, 1).Resize(, 2).Value = crng.Resize(, 2).Value
          .Cells(.Rows.Count + 1 + nrw, 3).Value = 1000
          End With
        nrw = nrw + 1
        End If
       Next
    Else
     With rng2
       .Cells(2, 1).Resize(rng1.Rows.Count, 2).Value = rng1.Resize(, 2).Value
       .Cells(2, 3).Resize(rng1.Rows.Count).Value = 1000
       End With
     End If
    End If
End Sub

で試してみてください

【40512】Re:検索して一致したらデータ入力
質問    - 06/7/15(土) 12:48 -

引用なし
パスワード
   ▼ichinose さん:
有難うございました。

質問の内容が分かりにくくて申し訳ないです。
試してみましたところ、DDDだけではなく
リストにあった全てのデータが以下のように
表示されてしまいました。

年月日    ID1    ID2    料金
6月1日    AAA    111    6300
6月3日    BBB    222    3000
6月5日    CCC    333    4000
6月7日    AAA    111    9000
6月10日    CCC    333    4000
6月12日    BBB    222    8000
6月20日    AAA    111    7000
    AAA      111    1000
    BBB      222    1000
    CCC     333    1000
    DDD     444    1000

いろいろ試して見ます。


>▼涙 さん:
>こんばんは。
>
>>>シートA(リスト)
>>
>>    A    B    C
>>1      ID1    ID2      氏名
>>2       AAA    111      中田
>>3    BBB    222      宮本
>>4    CCC    333     中村
>>5    DDD    444     川口
>>
>>
>>シートB
>>    A    B    C    D    
>>1  年月日    ID1    ID2  料金
>>2   6/1    AAA     111    6300    
>>3   6/3    BBB     222    3000
>>4   6/5    CCC     333    4000
>>5   6/7    AAA     111    9000
>>6   6/10    CCC     333    4000
>>4   6/12    BBB     222    8000
>>8   6/20    AAA     111    7000
>>
>><ほしい結果>
>>シートB
>>    A    B    C    D    
>>1  年月日    ID1    ID2  料金
>>2   6/1    AAA     111    6300    
>>3   6/3    BBB     222    3000
>>4   6/5    CCC     333    4000
>>5   6/7    AAA     111    9000
>>6   6/10    CCC     333    4000
>>4   6/12    BBB     222    8000
>>8   6/20    AAA     111    7000
>>8        DDD     444    1000
>>
>標準モジュールに
>'===============================================================
>Sub main()
>  Dim rng1 As Range
>  Dim rng2 As Range
>  Dim crng As Range
>  Dim nrw As Long
>  With Worksheets("シートA")
>    Set rng1 = .Range("a2", .Cells(.Rows.Count, "a").End(xlUp))
>    End With
>  With Worksheets("シートB")
>    Set rng2 = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp))
>    End With
>  If rng1.Row > 1 Then
>    If rng2.Row > 1 Then
>     nrw = 0
>     For Each crng In rng1
>       If Evaluate("=SUM(EXACT(" & rng2.Address(, , , True) & "," & crng.Address(, , , True) & ")*1)") = 0 Then
>        With rng2
>          .Cells(.Rows.Count + 1 + nrw, 1).Resize(, 2).Value = crng.Resize(, 2).Value
>          .Cells(.Rows.Count + 1 + nrw, 3).Value = 1000
>          End With
>        nrw = nrw + 1
>        End If
>       Next
>    Else
>     With rng2
>       .Cells(2, 1).Resize(rng1.Rows.Count, 2).Value = rng1.Resize(, 2).Value
>       .Cells(2, 3).Resize(rng1.Rows.Count).Value = 1000
>       End With
>     End If
>    End If
>End Sub
>
>で試してみてください

【40515】Re:検索して一致したらデータ入力
回答  Kein  - 06/7/15(土) 13:35 -

引用なし
パスワード
   Sub Test_Match()
  Dim MyR As Range, C As Range
  Dim CkS As String
  Dim x As Variant
  Dim Ary1() As Variant, Ary2() As Variant
  Dim i As Long

  With Sheets("B")
   With .Range("B2", .Range("B65536").End(xlUp)).Offset(, 26)
     .Formula = "=$B2&$C2"
     .Value = .Value
   End With
  End With
  With Sheets("A")
   Set MyR = .Range("A2", .Range("A65536").End(xlUp))
  End With
  For Each C In MyR
   CkS = C.Value & C.Offset(, 1).Value
   x = Application.Match(CkS, Sheets("B").Range("AB:AB"), 0)
   If IsError(x) Then
     ReDim Preserve Ary1(i): ReDim Preserve Ary2(i)
     Ary1(i) = C.Value, Ary2(i) = C.Offset(, 1).Value
     i = i + 1
   End If
  Next
  If i = 0 Then
   MsgBox "Bシート に見つからないデータはありません", 48
   Set MyR = Nothing: Exit Sub
  End If
  With WorksheetFunction
   Ary1 = .Transpose(Ary1)
   Ary2 = .Transpose(Ary2)
  End With
  With Sheets("B")
   With .Range("B65536").End(xlUp)
     .Offset(1).Resize(UBound(Ary1) + 1).Value = Ary1
     .Offset(1, 1).Resize(UBound(Ary2) + 1).Value = Ary2
   End With
   .Range("AB:AB").ClearContents
   .Activate
  End With
  Set MyR = Nothing: Erase Ary1, Ary2
End Sub

で、どうかな・・?

【40517】Re:検索して一致したらデータ入力
発言  ichinose  - 06/7/15(土) 15:10 -

引用なし
パスワード
   ▼涙 さん:
こんにちは。

>
>質問の内容が分かりにくくて申し訳ないです。
いえ、内容は入力データと出力データ例を記述して頂きましたから
わかったつもりですが・・・。

>試してみましたところ、DDDだけではなく
>リストにあった全てのデータが以下のように
私の方では、DDDだけの追加になっていますが・・・。


では、新規ブックに以下のコードで実行してみて下さい。
涙 さんが提示されたサンプルデータもコードで作成しました。

標準モジュールに

'========================================================
Option Explicit
Sub main()
  Dim rng1 As Range
  Dim rng2 As Range
  Dim crng As Range
  Dim nrw As Long
  Call mk_sample_data
  MsgBox "サンプルを Sheet1、Sheet2に作成しました。ここから、処理実行です。"
'Sheet1がシートASheet2がシートBに相当します

  With Worksheets("sheet1")
    Set rng1 = .Range("a2", .Cells(.Rows.Count, "a").End(xlUp))
    End With
  With Worksheets("sheet2")
    Set rng2 = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp))
    End With
  If rng1.Row > 1 Then
    If rng2.Row > 1 Then
     nrw = 0
     For Each crng In rng1
       If Evaluate("=SUM(EXACT(" & rng2.Address(, , , True) & "," & crng.Address(, , , True) & ")*1)") = 0 Then
        With rng2
          .Cells(.Rows.Count + 1 + nrw, 1).Resize(, 2).Value = crng.Resize(, 2).Value
          .Cells(.Rows.Count + 1 + nrw, 3).Value = 1000
          End With
        nrw = nrw + 1
        End If
       Next
    Else
     With rng2
       .Cells(2, 1).Resize(rng1.Rows.Count, 2).Value = rng1.Resize(, 2).Value
       .Cells(2, 3).Resize(rng1.Rows.Count).Value = 1000
       End With
     End If
    End If
End Sub
'=============================================================
Sub mk_sample_data()
  With Worksheets("sheet1")
    .Range("a1:c5").Value = _
     [={"ID1","ID2","氏名";"AAA",111,"中田";"BBB", 222,"宮本";"CCC",333,"中村";"DDD",444,"川口"}]
    End With
  With Worksheets("sheet2")
    .Range("a1:d4").Value = _
     [={"年月日","ID1","ID2","料金";"6月1日","AAA",111,6300;"6月3日","BBB",222,3000;"6月5日","CCC",333,4000}]
    .Range("a5:d8").Value = _
     [={"6月7日","AAA",111,9000;"6月10日","CCC",333,4000;"6月12日","BBB",222,8000;"6月20日","AAA",111,7000}]
    End With
End Sub

これで結果を確認してみて下さい。
あくまでも新規ブックで確認して下さい

【40520】Re:検索して一致したらデータ入力
質問    - 06/7/15(土) 18:01 -

引用なし
パスワード
   ▼Kein さん:
有難うございます!
早速試してみました。

コピペをしてみたのですが、以下のところでがエラー表示されたので
カンマをとって改行してみましたところ、今度はDDDが2回表示される
ようになりました。

>     Ary1(i) = C.Value, Ary2(i) = C.Offset(, 1).Value

初心者で、コードの解読が難しいのですが、改行しては
いけなかったのでしょうか?

勉強不足で大変申し訳ないです。

【40534】Re:検索して一致したらデータ入力
お礼    - 06/7/15(土) 22:37 -

引用なし
パスワード
   ▼ichinose さん:
有難うございます!!
完璧に出来ました。

サンプルまで作って頂いて、大変お手数お掛けしました。
私が入力したものと、ichinoseさんのサンプルを実行
した結果と見た目は同じなんですが、なぜ結果が違う
のか不思議です。。
確認したいと思います。

本当に有難うございました。
大変助かりました。

ichinoseさんのコードで、何故求めている結果が出せるのか
分からないのが情けないです。
ヘルプで調べてコツコツ勉強していくことが上達する一番の
近道でしょうか?
始めてから2年くらいになりますが、なかなか上達しないので
悩んでいます。
勉強法等をアドバイス頂けると助かります<m(__)m>


>▼涙 さん:
>こんにちは。
>
>>
>>質問の内容が分かりにくくて申し訳ないです。
>いえ、内容は入力データと出力データ例を記述して頂きましたから
>わかったつもりですが・・・。
>
>>試してみましたところ、DDDだけではなく
>>リストにあった全てのデータが以下のように
>私の方では、DDDだけの追加になっていますが・・・。
>
>
>では、新規ブックに以下のコードで実行してみて下さい。
>涙 さんが提示されたサンプルデータもコードで作成しました。
>
>標準モジュールに
>
>'========================================================
>Option Explicit
>Sub main()
>  Dim rng1 As Range
>  Dim rng2 As Range
>  Dim crng As Range
>  Dim nrw As Long
>  Call mk_sample_data
>  MsgBox "サンプルを Sheet1、Sheet2に作成しました。ここから、処理実行です。"
>'Sheet1がシートASheet2がシートBに相当します
>
>  With Worksheets("sheet1")
>    Set rng1 = .Range("a2", .Cells(.Rows.Count, "a").End(xlUp))
>    End With
>  With Worksheets("sheet2")
>    Set rng2 = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp))
>    End With
>  If rng1.Row > 1 Then
>    If rng2.Row > 1 Then
>     nrw = 0
>     For Each crng In rng1
>       If Evaluate("=SUM(EXACT(" & rng2.Address(, , , True) & "," & crng.Address(, , , True) & ")*1)") = 0 Then
>        With rng2
>          .Cells(.Rows.Count + 1 + nrw, 1).Resize(, 2).Value = crng.Resize(, 2).Value
>          .Cells(.Rows.Count + 1 + nrw, 3).Value = 1000
>          End With
>        nrw = nrw + 1
>        End If
>       Next
>    Else
>     With rng2
>       .Cells(2, 1).Resize(rng1.Rows.Count, 2).Value = rng1.Resize(, 2).Value
>       .Cells(2, 3).Resize(rng1.Rows.Count).Value = 1000
>       End With
>     End If
>    End If
>End Sub
>'=============================================================
>Sub mk_sample_data()
>  With Worksheets("sheet1")
>    .Range("a1:c5").Value = _
>     [={"ID1","ID2","氏名";"AAA",111,"中田";"BBB", 222,"宮本";"CCC",333,"中村";"DDD",444,"川口"}]
>    End With
>  With Worksheets("sheet2")
>    .Range("a1:d4").Value = _
>     [={"年月日","ID1","ID2","料金";"6月1日","AAA",111,6300;"6月3日","BBB",222,3000;"6月5日","CCC",333,4000}]
>    .Range("a5:d8").Value = _
>     [={"6月7日","AAA",111,9000;"6月10日","CCC",333,4000;"6月12日","BBB",222,8000;"6月20日","AAA",111,7000}]
>    End With
>End Sub
>
>これで結果を確認してみて下さい。
>あくまでも新規ブックで確認して下さい

【40544】Re:検索して一致したらデータ入力
発言  ichinose  - 06/7/16(日) 8:56 -

引用なし
パスワード
   ▼涙 さん:
おはようございます。

>サンプルまで作って頂いて、大変お手数お掛けしました。
>私が入力したものと、ichinoseさんのサンプルを実行
>した結果と見た目は同じなんですが、なぜ結果が違う
>のか不思議です。。
>確認したいと思います。
よく調べてみて頂くのが一番ですが、

実物見て見ないとわかりませんが、
私のサンプルデータで作動して、涙さんの本データで作動しないとなると、

1 シートAでは、"AAA"が配置されていて
  シートBには、"AAA "と最後に空白が入っている

2 表示は、書式設定で"AAA"と表示されているが、実は数値が入っている。

なんてことが想像出来ますが、特に「1」は有りがちなので確認してみて下さい。

結果、最後に空白が入っている場合も一致していると見なして処理したい場合は
以下のように評価数式に「Trim」関数を追加します。

>>
>>標準モジュールに
>>
>>'========================================================
>>Option Explicit
>>Sub main()
>>  Dim rng1 As Range
>>  Dim rng2 As Range
>>  Dim crng As Range
>>  Dim nrw As Long
'  Call mk_sample_data
'  MsgBox "サンプルを Sheet1、Sheet2に作成しました。ここから、処理実行です。"
>>'Sheet1がシートASheet2がシートBに相当します
>>
>>  With Worksheets("sheet1")
>>    Set rng1 = .Range("a2", .Cells(.Rows.Count, "a").End(xlUp))
>>    End With
>>  With Worksheets("sheet2")
>>    Set rng2 = .Range("b2", .Cells(.Rows.Count, "b").End(xlUp))
>>    End With
>>  If rng1.Row > 1 Then
>>    If rng2.Row > 1 Then
>>     nrw = 0
>>     For Each crng In rng1
'       msgbox "=SUM(EXACT(trim(" & rng2.Address(, , , True) & "),trim(" & crng.Address(, , , True) & "))*1)"
'上記の配列数式を評価します。コメント「’」を取って実行してみて下さい
'このコードは、Evaluate()内の配列数式が理解できれば9割がたOKだと思います。
 
        If Evaluate("=SUM(EXACT(trim(" & rng2.Address(, , , True) & "),trim(" & crng.Address(, , , True) & "))*1)") = 0 Then
>>        With rng2
>>          .Cells(.Rows.Count + 1 + nrw, 1).Resize(, 2).Value = crng.Resize(, 2).Value
>>          .Cells(.Rows.Count + 1 + nrw, 3).Value = 1000
>>          End With
>>        nrw = nrw + 1
>>        End If
>>       Next
>>    Else
>>     With rng2
>>       .Cells(2, 1).Resize(rng1.Rows.Count, 2).Value = rng1.Resize(, 2).Value
>>       .Cells(2, 3).Resize(rng1.Rows.Count).Value = 1000
>>       End With
>>     End If
>>    End If
>>End Sub


>ヘルプで調べてコツコツ勉強していくことが上達する一番の
>近道でしょうか?

そうだと思います。「急がば・・・」ですかねえ・・。

>始めてから2年くらいになりますが、なかなか上達しないので
>悩んでいます。
>勉強法等をアドバイス頂けると助かります<m(__)m>
勉強方法は、個人差が大きいし、試行錯誤の末、
自分にとって最良な方法を見つけることだと思いますが、

私のことを言えば、このサイトのご質問に回答投稿を行うことは
VBAが上達するのにかなり有益です。
一日、最低1問は投稿するを目標にしています。
(あくまでも目標ですが)

また、他の方の回答投稿を自分で検証してみたりもしています。
その中にこれは。。というものがあれば、
保存していくことで自分用のノートが作成されます。
それを定期的に読み返したりしています。

Q&Aサイトで勉強されたことを公開されている方もいますね。
http://park11.wakwak.com/~miko/index.htm

自分用ノートを作るのは良いことですよね?

Q&Aサイトに参加する前と後では上達スピードは
明らかに違ったことは確信出来ますよ。

今度は、回答者として参加されてみては?

【40562】Re:検索して一致したらデータ入力
発言  kobasan  - 06/7/17(月) 16:20 -

引用なし
パスワード
   ▼涙 さん 今日は。
横から失礼します。

>コピペをしてみたのですが、以下のところでがエラー表示されたので
>カンマをとって改行してみましたところ、今度はDDDが2回表示される
>ようになりました。

>>     Ary1(i) = C.Value, Ary2(i) = C.Offset(, 1).Value
     'は
     Ary1(i) = C.Value
     Ary2(i) = C.Offset(, 1).Value
     'でいいです。

>     i = i + 1  '<===[A]
>   End If


>   With .Range("B65536").End(xlUp)
>     .Offset(1).Resize(UBound(Ary1) + 1).Value = Ary1
>     .Offset(1, 1).Resize(UBound(Ary2) + 1).Value = Ary2
     'を
     .Offset(1).Resize(UBound(Ary1)).Value = Ary1
     .Offset(1, 1).Resize(UBound(Ary2)).Value = Ary2
     .Offset(1, 2).Resize(UBound(Ary2)).Value = 1000
     'にしてください。
     '[A]で1つ余分にカウントしているから
>   End With

【40563】Re:検索して一致したらデータ入力
発言  kobasan  - 06/7/17(月) 20:53 -

引用なし
パスワード
   訂正。

>     '[A]で1つ余分にカウントしているから

は不要でした。

【40564】Re:検索して一致したらデータ入力
お礼    - 06/7/17(月) 22:14 -

引用なし
パスワード
   ▼ichinose さん:
ご丁寧に回答頂き、本当に有難うございました。
プログラムというのは、センスと粘り強さがないと
上達が難しいですね。。

>勉強方法は、個人差が大きいし、試行錯誤の末、
>自分にとって最良な方法を見つけることだと思いますが、

仰るとおりだと思います。
コードを教えていただいて、そのまま使用するだけでは
いつまでたっても上達しないことが良く分かっております。
書いていただいたコードの意味をなんとか理解できるように
と努めておりますが、、、
変数がたくさん入っているだけで、あぁもう分からん!!という
気持ちになってしまいます。
それでも一年前より少しは分かるようになってきたので、
千里の道も一歩からという言葉をいつも呪文のように唱えながら
辞書を引き引き努力していく所存ですので、これからもお力を
お貸し頂けると助かります。

>私のことを言えば、このサイトのご質問に回答投稿を行うことは
>VBAが上達するのにかなり有益です。
>一日、最低1問は投稿するを目標にしています。

ichinose さんのような、高度なスキルをお持ちの方でもそうやって
精進されているのですね。
感動します。

>自分用ノートを作るのは良いことですよね?

はい。今まではテキストファイルで保存し一つのフォルダに纏めて
おりましたが、ノートにして調べやすくしてみます。
アドバイス有難うございます。


>今度は、回答者として参加されてみては?

そうなれるように努力いたします。

本当に有難うございました。

【40565】Re:検索して一致したらデータ入力
お礼    - 06/7/17(月) 22:26 -

引用なし
パスワード
   ▼kobasan さん:

出来ました!!
Transpose,Resize,UBoundなど、ヘルプや辞書で調べても
意味が良く分からない、私のとって難解なコードばかり
で、凹みそうですが、あるときパッと視界が開けるように
理解できることを信じて努力していきたいと思います。

有難うございました<m(__)m>

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