Excel VBA 質問スレ Part14

Excel VBA 質問スレ Part14at TECH

Excel VBA 質問スレ Part14 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

800:デフォルトの名無しさん
 10/03/22 09:42:47 
もう一個言い訳しとくと、>>672で 
> 知ってるのか知らないのかわからないが 
とつけたのは、1にならない理由がわからないのか、わざと定義されてない引数を指定したら 
変な文字列になったけど、その変な文字列に変換されるロジックをしりたいのかわからなかった 
から。 
多分前者だろうと判断して、こう書いた。 
> Formatの第二引数の指定方法が間違ってる。

801:デフォルトの名無しさん
 10/03/22 09:50:36 
あと、>>675でちょっとカチンときてしまった。ヘルプも見ない奴に言われたくないって。 
 
愚痴ばかりですまん。しばらくこのスレの書き込み自重する。

802:デフォルトの名無しさん
 10/03/22 11:52:04 
>>798　CellsにもSheetを指定しなきゃダメ 
 
Worksheets("Page1").Range(Worksheets("Page1").Cells(cnt, 1), Worksheets("Page1").Cells(cnt, 8)).Copy _ 
Destination:=Worksheets("data").Range(Worksheets("data").Cells(k, 1), Worksheets("data").Cells(k, 8)) 
     
    With Worksheets("Page1") 
        .Range(.Cells(cnt, 1), .Cells(cnt, 8)).Copy _ 
        Destination:=Worksheets("data").Range(Worksheets("data").Cells(k, 1), Worksheets("data").Cells(k, 8)) 
    End With 
     
    Dim Ws1 As Worksheet, Ws2 As Worksheet 
    Set Ws1 = Worksheets("Page1") 
    Set Ws2 = Worksheets("date") 
    Ws1.Range(Ws1.Cells(cnt, 1), Ws1.Cells(cnt, 8)).Copy _ 
    Destination:=Ws2.Range(Ws2.Cells(k, 1), Ws2.Cells(k, 8)) 
 
好きな書き方でどうぞ

次ページ