VBA
'周辺施設探索サンプル Sub sample_search_near_facility() Dim i As Integer Dim m_ListOfFacility() As String Dim address As String Dim Sheet As Object 'Excel.Worksheet Set Sheet = Worksheets("sheet1") 'ワークシートから住所を取得 Worksheets("s…
下記のサイトのコードを少し変えて シートにある住所から最寄駅等の情報を作ってみました。住所から最寄駅を検索する | ヴィーバ VeaBa! Excel VBA Tips http://veaba.keemoosoft.com/2013/02/488/コードを読むのに時間かかりました。。。 変更したのは直近…
VBA応用(フォルダ内のファイル一覧の取得) http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.htmlEXCEL VBA マクロで 応答なし を回避 http://d.hatena.ne.jp/umonist/20130826/p1上記をほとんど使わさせていただいて以下のように記述。 ほぼその…
他からダウンロードしたVBAのコードを開いたときに コンパイルエラー発生してしまいました。メッセージはこのプロジェクトのコードは、64 ビット システムで使用するために更新する必要があります。Declare ステートメントの確認および更新を行い、次に Decl…
すごく便利なサンプルコードがありました。参考サイト VBA応用(フォルダ内のファイル一覧の取得) http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html上記サイトより引用したコード Sub フォルダ内ファイル一覧出力() Const cnsTitle = "フォル…
配列とCoolectionオブジェクトでデータの配列 （書き方がおかしなことになっていますが・・）が処理できる。で配列、コレクションどちらを使うべきなのかはコレクションは キーという任意のユニークキーを 設定することでそのキーで値を取り出すことが可能。…
２つの指定した列の計算結果を一列に全部出力させる。 Sub 比較差抽出() 'ある対象の前後のデータの比較（２列の比較差）を抽出 Dim column As Integer '計算先の格納列（仮） Dim columnStr As String Dim beginCell As Range '初めに入力するセル Dim endC…
昨日の晩からはまっていたのですが、今なんとか解決。 Sub 上位抽出シート作成() Worksheets("Sheet1").Range("A1").AutoFilter Field:=17, Operator:=xlTop10Items '抽出したデータをすべて取得 Worksheets("Sheet1").Range("A1"). _ CurrentRegion.Special…
コレクションの作成 （Collectionオブジェクト） http://www.moug.net/tech/exvba/0150076.html配列よりコレクションを使うと良さそう。 addを使って追加するの簡単。値はfor eachで取り出そう。組み込もう。 複数行をまとめてコメントアウト http://www.rel…
参考URL 'http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_jyufuku.html Function 列一覧出力(str As String) '重複するデータを除いて指定した列一覧を抽出 '引数は列 '参考URL 'http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_jyufuku.html Dim…
特定のセルを２分探索で取得するのを書いたのでメモ。 （いらないのも交じってますが・・・） Sub キー値取得() '２分探索でキーのセルを探索 'オーダーは件数/ 2 Dim tempoCode As Long '店舗コード Dim kamokuCode As Long '科目コード Dim kamokuCount As…
VBAのお勉強 Excelで１行残して重複行を削除 simple blog http://www.simple-sys.com/blog/2008/04/07/314/重複データの削除 http://excel2007.officetanaka.com/?eid=404347Excelの機能で重複行を削除出来るの、そんなのあるの知らなかった・・・orz
set オブジェクト変数 = nothingの記述で 注意しなればいけないって思ったこと。 及びオブジェクト変数の参照周りについて。参考記事 「Set a = Nothing」のお話：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug http://www.moug.net/tech/exvba/01500…
RangeオブジェクトのプロパティについてRange.row で 対象セル範囲の最初の領域の先頭行の番号を返します。値の取得のみ可能です。 長整数型 (Long) の値を使用します。 Range.column で 指定されたセル範囲の最初の領域で、最初の列の番号を数値で返します…
数値などのデータを文字列に変換する時に cStr()str()では結果が違う。http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1013277405 Str()は、符号の1桁分が必ず確保されていて、 数値が正の時の戻り値の頭にはスペース（空白）が入ります。 Cstr(…
メモ。覚書き。VBA内でワークシート関数を使うときは WorkSheetFunctionオブジェクトを使用する。たとえば WorkSheetFunction.SUM(A1:B5)とか。以下のようなものを本で実際やってみたので残してみる。 Sub 請求書作成(kokyaku As String) '引数は請求書を作…
Excelについてのメモ、参考ページ。 VBA、関数とかいろいろわかっていなかったので今勉強中。備忘録。・チップ集 VBA - アプリケーションとしてのVBA http://www.k1simplify.com/index.html#tips_menu01 ・Excelマクロのための色番号表 number of colorIndex…
