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

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


  スポンサーリンク


Amazonで『EXCEL VBA』を検索
今のページの関連ページのリストへ
ザ・覚書のトップページに戻る
全ページのリストへ

入門者のExcel VBA―初めての人にベストな学び方 (ブルーバックス)

Excel VBA 本格入門 ~日常業務の自動化からアプリケーション開発まで~

速効!ポケットマニュアルExcel VBA・マクロ 自動化ワザ 2016&2013&2010&2007

Excel VBA逆引き辞典パーフェクト 第3版

できる大事典 Excel VBA 2016/2013/2010/2007 対応 (できる大事典シリーズ)

VBAエキスパート公式テキスト Excel VBA ベーシック [模擬問題プログラム付き]
amazonで検索
商品更新日時:
2017/03/25 19:54:27

VBA and Macros for Microsoft Excel【電子書籍】[ Tracy Syrstad ]

Einstieg in VBA mit ExcelVBA-L?sungen f?r Excel 2007 bis 2016【電子書籍】[ Thomas Theis ]

いますぐExcel VBAが使えるようになる本【電子書籍】

Richtig einsteigen_ Excel VBA-Programmierung. F?r Microsoft Excel 2007 bis 2013【電子書籍】[ Bernd Held ]

Excel 2007 Power Programming with VBA【電子書籍】[ John Walkenbach ]

Excel-VBA-ReferenzObjekte, Eigenschaften, Methoden【電子書籍】[ Bernd Held ]
楽天ウェブサービスセンター
商品更新日時:
2017/03/26 08:30:34

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

(新機能)URLの書き込みも可能にしましたが、内容と関係のないリンクの表示はしないと思います。
また自サイトへのリンクURL書き込みの場合、相互リンクもお願い致します。
お名前

コメント






本日、よく見られるページ
「ソ連って今のロシア」は間違い
政治とはなんですか?
家庭用の普通のコンセントは、何Wまで使えるのか?
UFOスペシャルの宇宙人の効果音「チャララ~ チャラチャララー。ボーン」
LED電球と普通の電球と蛍光灯の違い
仮面ライダーの時系列と世界の推測
IEから印刷プレビューや印刷が出来ない場合の対処例
木材の引き戸の滑りを良くする方法
無線(Wi-Fi)の2.4GHzと5GHzの違い
ぶんぶんゴマの回し方・コツみたいな事
  スポンサーリンク

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