VocExcel(単語帳) / VBA Tips


VocExcel(単語帳) / VBA TIPS
../../www.geocities.co.jp/SiliconValley-Bay/2717/
./index.html

<--- 戻る




   
 サンプルコードあり

 




[セルの選択]
・ A1を選択
・ C15を選択
・ 変数でC15を選択
・ C列の最終行を選択
・ C列の最終行を選択 (変数)
・ 行を選択
・ 複数行の選択
・ すべて選択
・ 四隅の選択
・ 四隅の選択 (変数) ・・・など


・ セルを左上に表示

・ 表示領域(スクロールエリア)を設定

[セルの移動で色を変える]
・ セルの移動で、色を変える / その1
・ セルの移動で、色を変える / その2 
  → *選択しているセルだけ  
・ セルの移動で、色を変える / その3 
  → * 行にフラッシュを当てる 



[セルの削除]
・ セルの値のみを削除
・ セルの値・書式すべてを削除
・ A1セルの削除  その1 / 選択して削除
・ A1セルの削除  その2 / 選択せずに削除
・ A2からC1の削除 その1 / 選択して削除
・ A2からC1の削除 その2 / 選択せずに削除
・ A2からC1の削除 その3 / 変数
・ A2からC列の最終行の削除 ・・・など



[セルの削除]
・ 選択している行の削除 (複数行) 

[セル (いろいろ)]
 セル内で改行する / chr(10) 10/08 UP

 アクティブセルの列番号を英文字に変換する
・ アクティブセルのアドレスを調べる


[読み上げ]

・ 読み上げ 1  ExcelのSpeech.Speak
・ 読み上げ 2  SAPI
・ 音声認識の人物名を取得

[入力画面]
・ 入力画面をつくる
・ 今日の日付を入力する (Date)
・ 連番を入力する (最大値を取得する。Max)




・ フォームを使わずに、連番・日付を自動的に入力


[検索画面を作る]
・ 検索画面の作成 
・ 入力と同時に検索結果を表示する


[詳細画面]
・ 詳細画面をつくる 1 (フォーム)
・ 詳細画面をつくる 2 (シート

[移動]
・ 行(セル)の移動 [先頭行・最終行、前へ・次へ]

[一行ずつ表示する(自動表示)]
・ 一行ずつ表示する (Auto)

[フィルタオプションで抽出 1 AdvancedFilter]
・ フィルタオプションの基本
・ 部分一致で抽出(シート)
・ 完全一致で抽出(シート)
・ 部分一致で抽出(フォーム)
・ 部分一致・完全一致検索(フォーム)
・ 抽出結果を別シートに表示させる
・ AND検索 (1つの項目から)
・ OR検索 (1つの項目から)
・ AND検索 (2つの項目から)
・ OR検索 (2つの項目から)

[フィルタオプションで抽出 2 AdvancedFilter]
・ 空白セルの抽出
・ 空白以外の抽出
・ 重複しないデータを抽出
・ 重複しないデータを抽出してコンボボックスに表示
・ 特定の文字を含まないデータを抽出
・ 今日の日付を抽出
・ 昨日の日付を抽出
・ 指定期間を抽出
・ 今月の日付を抽出
・ 先月の日付を抽出



[シートの操作]
・ シート名をリストボックスに表示

・ シートを削除
・ シート名を変更
・ シートを追加

[乱数 Int]

・ 乱数を発生させて単語リストを作成

[データの件数]
・ データの件数をカウント(今日の日付 / CountIf )
・ データの件数をカウント(総件数) 

・ データの件数をカウント(完全/部分一致)

[文字列操作]
・ 英文から単語を取り出してリストボックスに表示 
・ 英文から単語を取り出してシートに表示 
・ 「単語」「熟語」「文」を判別する
・ 文字列を「***」に置換する
・ 英文を半角空白に区切って「***」に置換する
・ 指定した文字列を「***」に置換する

・ 文字がアルファベットかどうかをチェックする

・ いろいろな文字列の変換(半角・全角・フリガナ・ひらがな・カタカナ) / StrConv

・ 文字列の置換 Replace / 「●」 を「◎」に置換する

[日付]
・ いろいろな日付パターンの表示(簡易カレンダー作成) 
・ 今月の最終日を取得 
・ 今週・先週・来週の日付を取得(期間)
・ 今週・先週・来週の日付をコンボボックスに追加
・ 今月・先月・来月の日付をコンボボックスに追加

[書式設定]
・ 日付の書式設定(一覧)
・ フォームから日付の書式設定する 


[色の指定]
・セル・テキストボックスの色の指定方法 
9/12 UP!
・色一覧 (サンプル)


[リストボックス/コンボボックス]
・ 複数列のリストボックスを作る 

・ A.複数列のコンボボックスの値をテキストボックスへ 
・ B.コンボボックスの値をシートに戻す 09/17 UP

・ 今週・先週・来週の日付をコンボボックスに追加

・ 今月・先月・来月の日付をコンボボックスに追加


[ VLookup ]
・ IDを入力して「名前」を表示 (VLookup) 
・ リストボックスの値をテキストボックスへ 


[テキストボックス]
・ テキストボックスの値をループ処理で削除 
・ テキストボックスのフォント色・背景色ををループ処理で変更 
  

[印刷]
・ 最終行を取得して印刷プレビュー

[印刷範囲の指定]
・ 四隅を印刷範囲に指定
・ 四隅を印刷範囲に指定 (変数1)
・ 四隅を印刷範囲に指定 (変数2)
   →最終行が不確定の場合
     


[外部ファイル]
・ テキストファイルを読み込む、保存する 


[フォルダ内のファイル名を取得]
・ フォルダ内のファイル名を取得しリンクを作成 


[CSV形式で保存]

・ CSV形式で保存する



[いろいろ]
・ REPT関数でグラフを作る

・ インプットボックスで分岐処理をする

--


   
 VBA Tips 一覧 ・ブログ


  ・ [trim] セルの前後空白を除去する
  ・ 5秒間フォームを非表示にする
  ・ Escキーでテキストボックスの値を消去・削除 / keycode
  ・ REPT関数でグラフを作る
  ・ アクティブセルのアドレスを調べる
  ・ アクティブセルの列番号を英文字に変換する
  ・ いろいろな文字列の変換(半角・全角・フリガナ・ひらがな・カタカナ) / StrConv
  ・ インプットボックスで分岐処理をする
  ・ ウィンドウを最大化・最小化・通常状態にする
  ・ エクセルの絶対パスを取得する
  ・ オートシェイプの型を調べる (オブジェクト名/コントロール名/タイプ)
  ・ オートシェイプの名前を取得する(オブジェクト名/コントロール名)
  ・ オートシェイプを選択状態にする (オブジェクト名/コントロール名)
  ・ オートシェイプを半透明にする
  ・ クリックしたオートシェイプの名前を取得する(オブジェクト名/コントロール名)
  ・ コンボボックスに1,10,20・・・100の値を入れる 
  ・ コンボボックスに今月の日付を追加する
  ・ コンボボックスに今週の日付を追加する
  ・ コンボボックスに先月の日付を追加する
  ・ コンボボックスに先週の日付を追加する
  ・ コンボボックスに来月の日付を追加する
  ・ コンボボックスに来週の日付を追加する
  ・ コンボボックスの値をシートに戻す
  ・ コンボボックスの値をテキストボックスに表示
  ・ シート名 / ブック名を取得する
  ・ シート名をリストボックス・コンボボックスに表示
  ・ すべてのコントロールを削除する (シート上)
  ・ セル・テキストボックスの色の指定方法  (色一覧)
  ・ セルに値を入力
  ・ セルの移動で、色を変える
  ・ セルの削除
  ・ セルの選択
  ・ セルを移動して、左上に表示する
  ・ セル内で改行する / chr(10) 
  ・ チェックボックスを全部 True / Falseにする (ループ処理)
  ・ テキストボックスで「キーコード」を取得する
  ・ テキストボックスで改行できるようにする / textbox 
  ・ テキストボックスに今日の日付を表示
  ・ テキストボックスの色をループ処理で変更
  ・ テキストボックスの前後空白を取り除く
  ・ テキストボックスの値を削除
  ・ バックアップファイルを作成する / コピーを作成
  ・ ファイル名と拡張子を分離する ( .xls )
  ・ フォームからシートを削除する
  ・ フォームからシートを新しく追加する
  ・ フォームからシート名を変更する
  ・ フォームのテキストボックスに値を入れて起動する
  ・ フォームをシートの左上に表示
  ・ フォームを解像度に応じて最大化する
  ・ フォームを非表示にする 
  ・ フォルダを作成する (ブックと同じ階層にディレクトリを作成)
  ・ ブックのパスを取得する / ディレクトリ・フォルダとファイル名
  ・ ブックの自動保存を無効にする
  ・ メッセージボックスで改行する
  ・ リスト・コンボボックスに1〜10の値を入れる
  ・ リストボックス・コンボボックスの基本用語
  ・ 印刷プレビュー
  ・ 印刷範囲の指定
  ・ 行の挿入・削除
  ・ 今月の最終日を取得
  ・ 今週・先週・来週の日付を取得(期間)
  ・ 子フォルダを作成する (複数)
  ・ 指定した時間でカウントダウンする
  ・ 書式を設定する
  ・ 小文字を大文字に変換する / StrConv
  ・ 詳細を別セルに表示
  ・ 前後・間の空白除去して隣のセルに転記 / (trim) (replace)
  ・ 前後・間の空白除去する、さらに半角に変換
  ・ 前後の空白を除去して隣のセルに転記 / trim
  ・ 全角を半角に変換する / StrConv
  ・ 大文字を小文字に変換する / StrConv
  ・ 半角を全角に変換する / StrConv
  ・ 表示領域(スクロールエリア)を設定
  ・ 複数列のコンボボックスの値をテキストボックスへ
  ・ 文字列の置換 Replace / 「.」を「。」に置換する
  ・ 文字列の置換 Replace / 「●」 を「◎」に置換する
  ・ 郵便番号をハイフンで分割する / 文字列分割 Split






デル

デル株式会社

富士通



[VBA TIPS の使用コード]
Application.WorksheetFunction.Max End(xlUp) ActiveCell.Row - 1 Cells(11,"B").Select Worksheet_SelectionChange
UserForm Application.Wait Now()
Application.Speech.Speak CreateObject("SAPI.SpVoice")
voice.getdescription() Do While  TimeValue
Len vbNarrow Replace trim Until  Exit Do Like Right UBound Split vbLf ActiveSheet.Hyperlinks.Add Anchor Range GetVoices.Count voice.getdescription Item ColumnCount ColumnWidths  ColumnCount ColumnWidths Cells(10, "IV").End(xlToLeft).Column .PageSetup.PrintArea Label ComboBox CheckBox OptionButton ListBox
vlookup NumberFormatLocal  Application.GoTo Reference:=Range("$B$4"), Scroll:=True ActiveSheet.ScrollArea = "A1:D65536"  Cells(1, "A").NumberFormatLocal = "yy/mm/dd" Selection.Delete Shift:=xlUp IsError Application.VLookup


DoEvents Loop CriteriaRange AdvancedFilter Action:=xlFilterInPlace .SaveAs , xlCSV
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address
Dir(ThisWorkbook.Path & "\*")
Set myRng = myData.Find(myWord, LookAt:=xlPart)
Application.WorksheetFunction.Match
InStr Left Mid Trim Replace StrConv vbNarrow ComboBox1.AddItem ListBox1.AddItem Like 'ActiveCell.Interior.ColorIndex = 37 Rows(ActiveCell.Row).Interior.ColorIndex = xlNone Selection.ClearContents Selection.Clear Range(Cells(myRow1, "A"), Cells(myRow2, "C")).ClearContents ActiveSheet.PageSetup.PrintArea = "$A$2:$C$10" vbCrLf Chr(10) Chr(13) Application.WorksheetFunction.Max End(xlUp) ActiveCell.Row - 1 Cells(11,"B").Select Worksheet_SelectionChange
UserForm Application.Wait Now()
Application.Speech.Speak CreateObject("SAPI.SpVoice")
voice.getdescription() Do While  TimeValue
Len vbNarrow Replace trim Until  Exit Do Like Right UBound Split vbLf ActiveSheet.Hyperlinks.Add Anchor Range GetVoices.Count voice.getdescription Item ColumnCount ColumnWidths  ColumnCount ColumnWidths Cells(10, "IV").End(xlToLeft).Column .PageSetup.PrintArea Label ComboBox CheckBox OptionButton ListBox
vlookup NumberFormatLocal  Application.GoTo Reference:=Range("$B$4"), Scroll:=True ActiveSheet.ScrollArea = "A1:D65536"  Cells(1, "A").NumberFormatLocal = "yy/mm/dd" Selection.Delete Shift:=xlUp IsError Application.VLookup DoEvents Loop CriteriaRange AdvancedFilter Action:=xlFilterInPlace .SaveAs , xlCSV
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address
Dir(ThisWorkbook.Path & "\*")
Set myRng = myData.Find(myWord, LookAt:=xlPart)
Application.WorksheetFunction.Match
InStr Left Mid Trim Replace StrConv vbNarrow ComboBox1.AddItem ListBox1.AddItem Like 'ActiveCell.Interior.ColorIndex = 37 Rows(ActiveCell.Row).Interior.ColorIndex = xlNone Selection.ClearContents Selection.Clear Range(Cells(myRow1, "A"), Cells(myRow2, "C")).ClearContents ActiveSheet.PageSetup.PrintArea = "$A$2:$C$10"