忘れる前に覚書。優しい文章を目指します。
ザ・覚書 ザ・覚書
出来るだけ子供にも、わかりやすいように書いて行きたいと思います。

PCバージョンでサイトを表示しています。
【ザ・覚書 3クリックアンケート実施中】
暑さの一番の原因はなんだと思いますか?
あなたの支持する政党はどの党ですか?

VBA 基礎さえも忘れたとき 思い出す用

☆VBA 基礎さえも忘れたとき 思い出す用
今のページの関連ページのリストへ
ザ・覚書のトップページに戻る

以前は、VBAを適当に書けていたけど、
時間が経ってしまって、基礎すら忘れた場合用です。

多分、これを同じように作ってみて解析すれば
基礎くらい思い出せます。

・シート「シート1」に例えばこんな感じで書いておきます。


・シート「シート2」に例えばこんな感じで書いておきます。


・シート「結果」にVBAのボタンを置いて


・実行ボタンをクリックして、以下の内容をCommandButton1_Click()に書いてみたりします。

    '----------- 並べ替え遊び 1 ----------- ただ表示
    
    'シートをアクティブに
    Worksheets("結果").Activate
    
    'アクティブなシートのセル全範囲をクリア
    Cells.Clear
   
    Dim iGyou As Integer
    Dim iKGyou As Integer
    
    
    Dim is1MAX_Y As Integer '現在最大行"シート1"
    Dim is2MAX_Y As Integer '現在最大行"シート2"
    
    
    is1MAX_Y = Worksheets("シート1").UsedRange.Rows.Count
    iKGyou = 2
    
    For iGyou = 2 To is1MAX_Y + 2 Step 1
        Range("C" & iKGyou) = Worksheets("シート1").Range("B" & iGyou)
        iKGyou = iKGyou + 1
    Next
    
    is2MAX_Y = Worksheets("シート2").UsedRange.Rows.Count
    iKGyou = 2
    
    For iGyou = 2 To is2MAX_Y + 2 Step 1
        Range("D" & iKGyou) = Worksheets("シート2").Range("B" & iGyou)
        iKGyou = iKGyou + 1
    Next
    
    
    '----------- 並べ替え遊び 2 ----------- 関連表示
    Dim iGyouB As Integer
    
    iKGyou = 2
    For iGyou = 2 To is1MAX_Y + 2 Step 1
        For iGyouB = 2 To is2MAX_Y + 2 Step 1
            If Worksheets("シート1").Range("A" & iGyou) = _
               Worksheets("シート2").Range("A" & iGyouB) Then
                Range("F" & iKGyou) = Worksheets("シート1").Range("A" & iGyou)
                Range("G" & iKGyou) = Worksheets("シート1").Range("B" & iGyou)
                Range("H" & iKGyou) = Worksheets("シート2").Range("B" & iGyouB)
            End If
        Next
        iKGyou = iKGyou + 1
    Next


これを実行すると、きっと基礎ぐらい思い出せます。
わかりにくいですけど、思い出す為と言う事で。

実行結果は、これです。

記述:2011年03月頃
別サイトより移動:2012年1月頃





Twitter Facebook Google+ はてな Pocket LINE




一言掲示板です。なにかありましたら以下に書いて書き込みボタンを押して下さい。
管理人による書き込みの確認後、荒らし書き込みでない場合に表示させていただきます。
悪意ある書き込みや挑発的な書き込みと思われる内容は、表示させません。
その為、ちょっと書き込みから表示までに時間がかかってしまいます。ご了承下さい。

お名前

コメント




基礎
VBA 基礎さえも忘れたとき 思い出す用
VBA色々
VBA シートをアクティブにする
VBA アクティブなシートのセル全範囲をクリア
VBA 行の最大行数を求める
VBA 列の最大列数を求める
VBA メッセージボックスを表示
VBA コピペした漢字のカナ変換
【ザ・覚書 3クリックアンケート実施中】
暑さの一番の原因はなんだと思いますか?
あなたの支持する政党はどの党ですか?

今のページの関連ページのリストへ
ザ・覚書のトップページに戻る
全ページのリストへ