Office TANAKA - Excel VBA関数[IsNumeric]
構文 IsNumeric(expression) 引数expresionには、数式または文字列式を含むバリアント型の式を指定します。 解説 引数expresionが、数値として認識できる場合はTrueを返します。それ以外はFalseを返します。 IsNumeric関数は、引数expresionが日付式の場合はFalseを返します。 サンプル 次の例は、ユーザーが入力した値が数値かどうか判定します。 Sub Sample() Dim a As Variant a = InputBox("数値または文字を入力してください") If IsNumeric(a) Then MsgBox a & "は数値です" Else MsgBox a & "は文字です" End If End Sub
【VBA入門】Find、FindNextで検索(完全一致、部分一致、複数一致) | 侍エンジニアブログ
引数のWhatのみ必ず指定する必要があります。その他の指定は省略することができます。なお、FindメソッドはObjectで指定するセル範囲の2番目のセルから検索を始めますので、注意して使いましょう！ 完全一致の場合 全部が一致するセルを検索する場合は、Findメソッドの引数LookAtをxlWholeで指定します。 サンプルコードでみていきましょう。 Sub macro1() Dim myRange As Range Dim myObj As Range Dim keyWord As String Set myRange = Range("A1:A4") keyWord = "エンジニア" Set myObj = myRange.Find(keyWord, LookAt:=xlWhole) If myObj Is Nothing Then MsgBox "'" & keyWord & "'
セル/行/列を挿入する（Insertメソッド）：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug
引数Shiftを省略すると、挿入対象となるセル範囲の形に応じて自動的に移動する方向が決まります。 列が対象の場合は必ず右方向、行が対象の場合には必ず下方向に移動します。 セル範囲が縦長の場合は右方向、横長か正方形の場合は下方向に移動します。 対象が行/列以外の場合は特に、引数Shiftは省略しない方が良いでしょう。 次のサンプル1は、3行目以降の行に1行おきに空白行を挿入します。 ●サンプル1● Sub Sample1() Dim myLastRow As Long Dim i As Long 'データの最終行を取得 myLastRow = Cells(Rows.Count, 1).End(xlUp).Row '最終行から上方向にループ For i = myLastRow To 3 Step -1 Rows(i).Insert Shift:=xlDown Next i End Sub セル
色順に並べたXlRgbColor定数の一覧表 - You.Activate
説明 Excel2007以降、セルやフォントの色でフルカラーを扱えるようになりました。それに伴いVBAでの色指定もこれまでのColorIndexによる指定からRGB関数や色定数を使ったものが主流になっています。 このページではExcel2007以降利用できるXlRgbColor定数の一覧を紹介します。MSDNにも一応定数一覧はありますが、色名だけで実際の色が見られないのと色名順に並んでいるため色の系統や輝度で探したい場合に不便なので、こちらで作成しました。 参考：[MSDN]XlRgbColor 列挙 (Excel) 使用方法 選択セルの色を栗色にするには、以下のように書きます。 Selection.Interior.Color = XlRgbColor.rgbMaroon XlRgbColorを省略して単にrgbMaroonと書くこともできます。Ctrl+jキーで全ての入力候補が表示され
これだけはおさえるセル操作（２）－Resizeで自由自在：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug
これだけはおさえるセル操作（２）－Resizeで自由自在 (Excel 97/2000/2002/2003/2007/2010/2013/2016) ツイート セル（範囲）に関する基本事項で、RangeとCellsをマスターしたら、Offsetプロパティと一緒に、ぜひResizeプロパティの使い方をマスターしてください。 【基礎編】 Resizeプロパティはセル操作の重要基本テクニックの１つです。その名のとおり、リサイズ（セル範囲のサイズ変更）を行い、サイズ変更した後のセル範囲を返します。使い方は次のとおりです。 Rangeオブジェクト.Resize（変更後の行数, 変更後の列数） Offsetプロパティが現在の位置と移動後の位置との差分を引数で渡すのに対し、Resizeプロパティは差分ではなく変更後の行数・列数を渡します。 選択範囲を行・列ともに1ずつ拡張する場合は、次のように記述します
条件に当てはまるセルを検索する(Find/FindNext/FindPreviousメソッド) ：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug
条件に当てはまるセルを検索する(Find/FindNext/FindPreviousメソッド) (Excel 2000/2002/2003/2007/2010/2013/2016) ツイート セル範囲の中から指定した条件に当てはまるセルを検索します。条件に当てはまるセルが複数ある場合に、見つかったセルの次のセルを検索するのにFindNextメソッドとFindPreviousメソッドを使用します。 引数がたくさんありますが、[検索と置換]ダイアログボックスでセルを検索するときに指定する内容とほぼ同じです。なお、条件に当てはまるセルが存在しない場合には、Nothingを返します。 構文 Object.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat
【エクセルVBA】Dictionaryに格納したキーと要素をリストに書き出す方法
皆様こんにちは、ノグチです。 何度かに分けてDictionaryオブジェクトを使った、リストの重複を排除する方法をご紹介しています。 前回の記事では、複数のループを使ったコードとDictionaryオブジェクトを使ったコードでは、どちらが重複排除処理が速いのかを比較しました。
Electronで実装された「Windows 95 v2.0」が爆誕 - Netscape 2.0を同梱するビッグアップデート | ソフトアンテナ
昨年の夏、Electronアプリとして実装された「Windows 95」が公開されて話題となりましたが、そのバージョンアップ版となる「Windows 95 v2.0」がGitHubにて公開されています。 Windows 95 v2.0は「大きなアップデート」として、以下のような新機能が追加されています。 Electron v4.0.4へのアップデート 完全に新しくなったWindows 95ディスクイメージ Microsoft FrontPage、Netscape 2.0 FrontPage Serverの同梱 Doom、Wolfenstein3D、A10 Tank Killer、Grand Prix Circuitの同梱 マシンをリセットする機能の追加 High-DPIデバイスのサポートの改良 サウンドのサポート Electron版のWindows 95は、JavaScriptでv86仮想
私これからVBAでの改行は「vbNewLine」にします | KEYPOINT – キー・ポイント株式会社 開発日誌
こんにちは。 神戸は、あじさいが色づき始めました。 淡い色合いがキレイです。 ちなみに「あじさい」は、キー・ポイントがある「神戸市」の「市民の花」だそうです。 そういえば、名前にモチーフにと、ちょこちょこ使われてますね。 さて最近、私はAccessで、VBAを使いながら開発をしています。 操作の確認メッセージをダイアログで表示するとき、 「登録してよろしいですか？」「削除してよろしいですか？」 「○○が入力されていません。ご確認ください。」など一言なら良いですが、 長い文章になると、見やすいように改行をいれます。 今までの私なら、こういう改行には「Chr(13)」と「Chr(10)」を使っていたのですが、 正直、2つも書くの面倒だなと思っていました。 で、インターネットで検索しみると、パッと見つかりました。ありがたい。 定数「vbCrLf」なら、「Chr(13) + Chr(10)」の組み
Visual Studioを使わずにVBSをデバッグする方法 - 開発の風景 〜KKZのSE日記〜
個人的にはあまり好きじゃないですが、やむなくWindows Serverでサーバ環境を構築する場合、いろんなスクリプトを作らざるを得なくなるのが常というものですが、最大の難点はデバッグがしづらい！という事だと思います。 Visual Studioとか使えばデバッグ出来るんですが、もう少しシンプルなツールだけでデバッグする方法についてまとめてみました。 まずは、テスト用にVBSスクリプト LoopScript.vbsを作成。5秒おきにテキストに1行ログを書いていくだけのシンプルなスクリプトです。 Dim objFso Dim file Dim loopCount Wscript.Echo("ループ処理の開始") Set objFso = CreateObject("Scripting.FileSystemObject") Set file = objFso.OpenTextFile("Loo
文字列操作｜VBScript関数リファレンス
ASP の開発や SQLServer の DTS を作成する際、ど忘れしたVBScript関数を簡単に探せるように構成し直しました。 VBScript関数名は分かっていて、使い方や引数が思い出せない時などは普通のVBScriptヘルプで調べられますが、VBScript関数名が出てこない、○○をするVBScript関数ってあったっけ？、という場合はとても便利です。
ADODB.Stream で BOM なし UTF-8 のテキストファイルを書き出す - Corredor
前回、ADODB.Stream を使って UTF-8 でファイルの読み書きを行った。しかしこのとき書き出されるテキストファイルは BOM 付き UTF-8 になってしまう。 neos21.hatenablog.com そこで今回は、BOM なし UTF-8 のテキストファイルを書き出すよう、前回の VBScript を改善してみる。 ' 読み込みファイルの指定 (相対パスなのでこのスクリプトと同じフォルダに置いておくこと) Dim input Set input = CreateObject("ADODB.Stream") input.Type = 2 ' 1：バイナリ・2：テキスト input.Charset = "UTF-8" ' 文字コード指定 input.Open ' Stream オブジェクトを開く input.LoadFromFile "inputText.txt" ' ファイ
マクロについて
マクロファイルの文字コード (sakura:2.0.0.0以降) 通常のファイルはSJISとして読み込みます。 UTF-8BOM付きのファイルにすると、UTF-8として読み込みます。WSH、キーマクロではSJISにない文字列も直接扱うことができます。 キーマクロ例 【キーマクロ例1】 S_InsText("string"); // 文字列挿入 S_ExecCommand( "C:\\WINDOWS\\explorer .", 0 ); // コマンド実行 S_Up(); // 3行上に移動 S_Up(); S_Up(); S_GoLineTop(1); // 1: 空白に関係なく桁位置1に移動，8: 選択して移動
ADODB.Streamオブジェクトを使ってBOMなしUTF-8のファイルを作成する方法 - 小さい頃はエラ呼吸
はじめに ADODB.StreamオブジェクトのSaveToFileメソッドでUTF-8形式のファイルを作成した場合、ファイルの先頭にBOM(Byte Order Mark)が付加されてしまいます。 この記事では、BOMを付加せずに、UTF-8のファイルを作成する方法を紹介します。 2009.12.13追記 一時ファイルを作成しなくても、BOMなしのUTF-8ファイルを出力する方法が見つかりました。 BOMなしのUTF-8ファイルを作成するには、まずBOM付きの一時ファイルを作成します。そして、一時ファイルをバイナリモードで読み込み、BOMの部分(先頭3バイト)を読み飛ばした4バイト目からバイナリモードで目的のファイルに書き込むという手法を用います。 一応説明しておくと、一度Streamに対してUTF-8でデータを書き込みます。その後で、バイナリとして最初の3バイト(BOM分)を読み飛ばし
エクセルのすすめ データの絞り込み（オートフィルタ）
今日は所望のデータだけを表示するという機能を紹介します。 エクセルではこの機能をオートフィルタと呼ぶようです。 とても簡単かつ便利な機能ですので、 まだオートフィルタと出会ってない方は これを機に覚えちゃいましょう！ では説明しますね。 下図のように、氏名・趣味・住まいが記された名簿があったとします。 「趣味が音楽鑑賞の方だけ教えてくれない？」 なんて言われたら、オートフィルタを使っちゃいましょう。 まず、項目行を選択します。 次に、ツールバーから 「データ」→「フィルタ」→「オートフィルタ」 と選択します。 すると、下図のように、項目の横にボタンが表れます。 今回は、趣味が音楽鑑賞の方を表示したいので、 下図のように、趣味項目のボタンをクリックし、 一覧から「音楽鑑賞」を選択（クリック）します。 すると、下図のように趣味が音楽鑑賞の方だけ表示することが できます。 とても簡単ですよね♪
【エクセルVBA】シートで使用されているセルの範囲全てを取得する方法
CurrentRegionプロパティを使って表の範囲を取得 Sub 表の範囲を選択() Worksheets(1).Range("A1").CurrentRegion.Select End Sub A1セル～C5セルが選択されました。 このようにCurrentRegionプロパティを使うことで簡単に表全体の範囲を取得することができます。 表に空白行がある場合 しかし、CurrentRegionプロパティを使って表を取得する場合に気をつけなければならない点があります。 それが表に空白行がある場合です。 Sub 表の範囲を選択() Worksheets(1).Range("A1").CurrentRegion.Select End Sub 選択されたのはA1セル～D4セルで、E行以降は選択されません。 このように表に空白行があると、選択されるのは空白行の前までになります。 CurrentReg
VBA Val 関数：数字を数値に変換する
解説 引数「文字列」の先頭にある数字を数値に変換します。 123あいう456 なら 123 を返します。数字以外の文字が見つかったときは、その後ろの数字は無視されます。 引数「文字列」に空白が含まれているときは、それを削除してから変換します。1 2 3 なら 123 を返します。 引数「文字列」の先頭が変換できない文字のときは 0 を返します。エラーは発生しません。 &HFF のように &H を付けた 16進数の文字列は変換できます。 \100 や 1,234 のように「CInt 関数」では変換できる値でも、Val 関数は \ や , は数字ではないので、変換できません。 １２３ のような全角の数字も変換できません。 通常はどのような値でも Double 型に変換されます。 CInt 関数との違い 「CInt 関数」を使用しても、文字列を数値型に変換できます。 Val 関数： 数値に変換で
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Application.Calculate メソッド (Excel)
Excel VBAのFindメソッドでみつかったRangeの行番号を取得する:Excel VBA Rangeオブジェクト/セル検索
いつのまにかExcelでswitch文が使えるようになってた - Qiita
