Office TANAKA - Excel VBA Tips[正規表現のようなマッチング]
一般的な正規表現に比べると使用できるメタキャラクタの種類は少ないですが、いくつも条件分岐を重ねるよりは効率的にパターンマッチングできるでしょう。いくつか使用例をご紹介します。 上のような住所録で「東京、横浜、千葉ではない住所を赤字」にするには、次のようにします。 Sub Sample1() Dim i As Long For i = 1 To 8 If Cells(i, 1).Value Like "[!東京,横浜,千葉]*" Then Cells(i, 1).Font.ColorIndex = 3 Next i End Sub Like演算子を使わないなら、次のようになりますね。 Sub Sample2() Dim i As Long For i = 1 To 8 If Left(Cells(i, 1), 2) <> "東京" And _ Left(Cells(i, 1), 2) <>
COUNTIF 関数 - Microsoft サポート
COUNTIF 関数 (統計関数の 1 つ) は、1 つの検索条件に一致するセルの個数を返します。たとえば、特定の市が顧客リストに表示される回数を返します。 最も単純な形式では、COUNTIF は次のように指定します。 = COUNTIF(どこを参照しますか?, 何を探しますか?) 次に例を示します。 =COUNTIF(A2:A5,"London") =COUNTIF(A2:A5,A4)
Office TANAKA - Excel VBA Tips[ファイルを検索する]
Excelは表計算ソフトですから表だけ計算してればいいんですが、ときには「何でExcelでそんなことまでするの？」ということもあります。まあ、Excelでゲーム作ったりしてる私が言えるセリフではありませんけど…。 それでも、Excelでちゃんとしたシステムを作ろうとしたら、表の計算以外にもたくさんの機能が必要になります。ここでは、ファイルを検索するテクをご紹介しましょう。きっと何かのときに役立つと思いますよ。 ファイルを検索するにはFileSearchオブジェクトを使います。厳密に言うとFileSearchオブジェクトはExcelのオブジェクトではなく、Officeシステム全体のオブジェクトです。ここでは、検索した結果をシートに出力していますが、UserFormを使っても便利ですね。 【追記】 Excel 2007からは、FileSearchオブジェクトが使えなくなりました。Excel 2
いつのまにかExcelでswitch文が使えるようになってた - Qiita
前提 いつのまにかExcelでswitch文が使えるようになってた。 詳しくはOfficeサポート見てください！ https://support.office.com/ja-jp/article/switch-%E9%96%A2%E6%95%B0-47ab33c0-28ce-4530-8a45-d532ec4aa25e いつから使える？ Excel 2016（for Mac）以降 常に最新版を使わされるような下記のExcelはもちろん使えるようです。 for Office 365（for Mac）、for iPhone、for Android、etc. 書式 式の結果＝値1 の場合、結果1を返却 [式の結果＝値2 の場合、結果2を返却（以降、値127,結果127まで）] [式の結果が上記に含まれない場合、既定を返却] 例 =SWITCH(A1,1,"壱",2,"弐",3,"参",4,"四"
Office TANAKA - Excel VBA Tips[複数選択可能なリストボックス]
リストボックスで複数の項目を選択可能にするには、リストボックスのMultiSelectプロパティを設定します。標準では「fmMultiSelectSingle」が設定されています。 fmMultiSelectSingle fmMultiSelectMulti fmMultiSelectExtended 標準のfmMultiSelectSingleは、単一選択です。fmMultiSelectMultiまたはfmMultiSelectExtendedを設定すると、複数の項目を選択可能になります。両者は複数の項目を選択する方法が異なります。 【fmMultiSelectMulti】 項目をクリックすると選択できます 別の項目を選択するときもクリックだけです CtrlキーやShiftキーは必要ありません すでに選択している項目を再度クリックすると 選択状態が解除されます 【fmMultiSelec
![Office TANAKA - Excel VBA Tips[複数選択可能なリストボックス]](https://cdn-ak-scissors.b.st-hatena.com/image/square/4e7ceb4da166b7fcb942edcca8605544f749d5af/height=288;version=1;width=512/http%3A%2F%2Fofficetanaka.net%2Fexcel%2Fvba%2Ftips%2F144-01.png)
Office TANAKA - Excel VBA Tips[入力されているデータの最終セルを取得する]
これは基本的なテクニックだと思って今まで解説しませんでしたが、セミナーなどで質問が多かったので、簡単に書いておきます。たとえば、下図のようなリストがあったとします。 この、現在入力されている最終セル(あるいは最終行)を取得するには、どうしたらいいでしょう。 Excelに詳しくない、VBAのプログラミング的なことしか知らないような方でしたら、次のように考えるかもしれませんね。「A列を上から順番に見ていって、空欄セルが見つかったら、その直前が最終セル」だと。その方法でやってみましょうか。 Sub Sample1() Dim i As Long, r As Long For i = 1 To 10000 Range("A" & i).Select If Selection = "" Then r = i - 1 Exit For End If Next i Range("A" & r).Sele
Office TANAKA - Excel VBA Tips[Excel 2007のSortオブジェクト]
Add2メソッドについて(2019年1月 追記) 2018年10月18日にExcel 2016は機能拡張されて、バージョン1810(ビルド 11001.20074)になりました。このとき実装された機能拡張のひとつに、"新しいデータ型"があります。追加されたのは「株式型」と「地理型」です。両者の型に関しては、下記Microsoftのページをご覧ください。 Excel データ型: 株価と地理 この「株式型」と「地理型」の追加に伴って、セルの並べ替えで条件を指定するSortFieldsコレクションに、新しくAdd2メソッドが追加されました。ちなみに、いままではAddメソッドでした。両者の働きに大きな違いはありませんが、Add2メソッドは、新しい「株式型」と「地理型」のサブフィールドを並べ替えることが可能です。Add2メソッドをヘルプで調べると、次のように記載されています。 この API には、地
Office TANAKA - Excel VBA関数[VarType]
引数varnameにユーザー定義型を指定することはできません。 サンプル 次の例は、バリアント型変数の内部処理形式を表示します。 Sub Sample() Dim var As Variant var = "ABC" MsgBox VarType(var) '８を表示します var = 123 MsgBox VarType(var) '２を表示します var = 123.456 MsgBox VarType(var) '５を表示します var = Array("A", "B", "C") MsgBox VarType(var) '8204を表示します End Sub
Office TANAKA - Excel VBA Tips[メニューバーに独自のメニューを追加する]
VBA でシステムを作ったとき、機能をメニューから選択できると便利ですね。独自のメニューをメニューバーに登録する方法をご紹介しましょう。 Sub AddMenu() Dim NewM As Variant, NewC As Variant ''新しいメニューを追加する Set NewM = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup) NewM.Caption = "新しいメニュー(&C)" ''オリジナルコマンドを追加する(1) Set NewC = NewM.Controls.Add With NewC .Caption = "保護解除(&U)" .OnAction = "UnProtectSheet" .BeginGroup = False .FaceId = 277
Office アプリケーションのオートメーションでエラー 429 が発生する
概要 Microsoft Visual Basic で New 演算子または CreateObject 関数を使用して Microsoft Office アプリケーションのインスタンスを作成すると、次のエラー メッセージが表示されることがあります。 このエラーは、コンポーネント オブジェクト モデル (COM) が要求された Automation オブジェクトを作成できず、Automation オブジェクトが Visual Basic では使用できない場合に発生します。 このエラーは、すべてのコンピューターで発生するわけではありません。 この記事では、このエラーの原因となる可能性がある一般的な問題を診断して解決する方法について説明します。 詳細情報 Visual Basic では、エラー 429 の原因がいくつかあります。 エラーは、次のいずれかの条件に該当する場合に発生します。 アプリケ
Office TANAKA - Excel VBA Tips[.NET Frameworkを使う]
私は勘違いをしていました。いえ、確かな根拠を調べずに「できないに違いない」と思いこんでいたのかもしれません。 今までずっと、VBAから.NET Frameworkを使うことはできないと思っていたのですが、実はできたんですね。知りませんでした。 たとえば、.NET Frameworkには「System.Collections名前空間のArrayListクラス」というクラスがあります。 ArrayListクラスに関する詳細は、MSDNの下記ページをご覧ください。 ■ArrayList クラス (System.Collections) このArrayListクラスを使って、配列を操作してみましょう。次のコードは、.NET FrameworkのArrayListクラスを利用して、ランダムな数値を配列に格納します。さらに、配列のソートや複製の作成、配列の逆順などを行います。 Sub Sample1(
Office TANAKA - Excel VBA Tips[ブック・シートが存在するか調べる]
サイトをご覧になった方からリクエストをいただきました。「特定のブックを開いているか、どうやってチェックしたらいいですか？」と。また、別の方から「'合計'という名前のシートがあるかどうか調べたい」というメールもちょうだいしました。これらは同じ考え方で実現できますので、一緒に解説しましょう。 ブックが開いているか調べる このテクニックは、実は「ファイルの操作」の「現在開いているブックの一覧を取得する」で解説しています。念のため同じコードを再度ご紹介します。 Sub Sample01() Dim wb As Workbook, flag As Boolean For Each wb In Workbooks If wb.Name = "Book1.xlsx" Then flag = True Next wb If flag = True Then MsgBox "Book1 を開いています。",
Office TANAKA - セルの操作[セル範囲の取得]
操作の対象セル範囲が不定の場合 ここまでの解説では、操作の対象を「セルA1に」とか「セル範囲A1:C3に」などと簡単に決めてきました。もちろん解説なのですから、それは勘弁していただきたいのですけど、実際のマクロ作成では操作の対象を特定することに苦労するものです。操作の対象セルを、どう的確に特定するかが、VBAのビギナーとベテランで差が出るところでもあります。たとえば、次のようなデータを考えてみましょう。 このデータをマクロでクリアします。ただし、データが何行何列あるかは、そのときによって異なります。セルをクリアするにはRangeオブジェクトのClearContentsメソッドを使います。次のコードはセル範囲A1:D5をクリアします。 Sub Sample1() Range("A1:D5").ClearContents End Sub クリアすべきセル範囲の左上はセルA1です。したがって、セ
仕事が10倍捗るスプレッドシート神関数10 | Tokyo Otaku Mode Blog
こんにちは。Tokyo Otaku Modeの安宅です。先日から、とあるプロジェクトにジョインして、久々にGoogleスプレッドシートをゴリゴリ活用して仕事をしています。そんな中、これは惚れた！というスプレッドシートの神関数を紹介したいと思います。 ARRAYFORMULA関数 これを活用し始めてから、関数をいちいち全部の行に埋め込んでいくことが、なんだかカッコ悪く感じるくらい、スマートでオシャレな関数です。例えば、100行のVLOOKUP関数を行うときには、これまではVLOOKUP関数を1つ作って、それを残り99個の行にVLOOKUP関数をコピーしていたと思いますが、ARRAYFORMULA関数を使うと、なんと1個の関数で100行分の値が出力されます。実際に動作も軽くなるのでカッコよさと実用性を兼ね備えた関数です。配列に対応する関数であれば、ほぼなんでも利用できるのも好感度が高いです。
最初のn文字を削除－区切り位置指定ウィザード:Excel(エクセル)の使い方/データベース・検索
最初のn文字を削除するために、ワークシート関数のMID関数・LEN関数を使う方法、RIGHT関数・LEN関数を使う方法、それと、最初の一文字を削除するマクロをご紹介しました。 他にもExcelの機能を使った、最初のn文字を削除する方法がありますのでご紹介しておきます。 ▼操作概要：最初のn文字でデータを分割する ※A1:A10セルに入力されているデータの、先頭の3文字を削除する例 A1:A10セルを選択 ↓ 区切り位置指定ウィザードを起動 ↓ ［区切り位置指定ウィザード-1/3］ダイアログ －［元のデータの形式］欄で 「スペースによって右または左に揃えられた固定長フィールドのデータ」オプションを選択 ↓ ［区切り位置指定ウィザード-2/3］ダイアログ －［データのプレビュー］欄で 削除したい位置を指定 ↓ ［区切り位置指定ウィザード-2/3］ダイアログ －［完了］ボタンをクリック 上記の操
第三回 「IF関数」の空白処理を知らないとExcelの便利さ半減！？
無駄を省けるはずのExcelの便利な機能も、その活かし方を知らなければ、逆に手間とリスクが増えてしまうという怖いお話です。 請求書や納品書を作成するとき、あらかじめ金額の欄に「＝単価×数量」という数式を入力しておくのが一般的です。 しかし、その式だけを入力していると、単価や数量を入力していない列に「エラー値」が表示されてしまいます。 こうなると、いちいちエラー値を消す作業をしなければならないので、無駄な作業が増えてしまいます。 Excel関数の大御所「IF関数」を使った空白処理を行なっておけば、こんな問題は簡単に回避できます。 「IF関数」を使った空白処理をしていないと・・・ 下の例のように、「金額」のセルに「単価×数量」の結果を表示させるように数式を入力しただけのセルをフィルコピーしておいた状態では、データが入力されていない行の「金額」のセルにエラー値が出てしまいます。 しかも、右図のよ
知っているようで意外と知らない『Word』を使いこなすためのテク10選 : ライフハッカー［日本版］
モバイルバッテリーとは呼べない。「ほぼポタ電」なコレ1台で有事の時もアウトドアも大活躍!【AmazonスマイルSALE】
Excelのいろいろなペースト方法 | コリス
コピーしたセルの書式をペーストするには、[Alt]+[E]の後に、[S]、[T]、[Enter]をします。 3. エクセルで数式をペースト コピーしたセルの数式をペーストするには、[Alt]+[E]の後に、[S]、[F]、[Enter]をします。 4. エクセルで入力規則をペースト コピーしたセルの入力規則をペーストするには、[Alt]+[E]の後に、[S]、[N]、[Enter]をします。 5. エクセルでセル幅をペースト コピーしたセルのセル幅をペーストするには、[Alt]+[E]の後に、[S]、[W]、[Enter]をします。 6. エクセルでコメントをペースト コピーしたセルのコメントをペーストするには、[Alt]+[E]の後に、[S]、 、[Enter]をします。 7. エクセルで全てをペースト
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Page not found
PC
