Excelでオートシェイプのテキストボックス内の文字列を検索するマクロ
とりあえず作成してみました。 アクティブシートに対してのみ有効で、対象はオートシェープのみです。 検索にヒットしたものが選択された状態になります。 適当にアレンジしてご利用ください。 Sub test() Dim se As Shapes, sh() As Variant, key As String Dim i As Integer, n As Integer, total As Integer key = Application.InputBox(prompt:="検索する文字を入力してください。", Type:=2) If (key = "False") Or (key = "") Then Exit Sub Set se = ActiveSheet.Shapes ReDim sh(0 To se.Count) total = 0 n = 0 For i = 1 To se.Coun
Office TANAKA - ファイルの操作[ブックを開く]
ブックを開くには、WorkbooksコレクションのOpenメソッドを使います。 Excelでは、同時に複数のブックを開くことができます。開いているそれぞれのブックはWorkbookオブジェクトとして操作できます。このWorkbookオブジェクトの集合体がWorkbooksコレクションです。新しいブックを開くということは、この集合体に、新しいメンバーを加えるということです。だからWorkbooksコレクションのOpenメソッドです。 次のコードは、C:\Book1.xlsxを開きます。 Sub Sample1 Workbooks.Open "C:\Book1.xlsx" End Sub Workbooks.Open Filename:="C:\Book1.xlsx" という書き方もできます。 「Filename:=」の意味や、つけるのとつけないのとでは何が違うかについては、下記ページを参考に
#12 配列を使ってみよう | Excel VBA入門 - プログラミングならドットインストール
動画の読み込みに失敗しました。しばらく待ってからリロードしてみてください。解決しない場合は ヘルプ「動画が見られない場合について」 もご覧ください。
イミディエイト ウインドウ (Ctrl+G) と Debug.Print
[三流君(ken3.org)]/ [VBA(TOP)]/ [F1でヘルプを見る]/ [Debug.Printを使い値の確認]/ [ウォッチ式とSTOP]/ [デバッグ方法ほか] イミディエイト ウインドウ(Ctrl+G) と Debug.Print デバッグ時によく使う、イミディエイト ウインドウ を 少々さわってみたいと思います。 Debug.Print と 組み合わせて使うと便利です なんて偉そうに言ってますが、単なる値の表示だったり、その場で軽めの実行して確認したりするだけです。。 私は確認のMsgBoxを入れまくるのと Sub aaa() とか短い関数を作って、確認をするのが好きですが、 イミディエイト ウインドウ(Ctrl+G) と Debug.Print 使い慣れると便利ですよ。 イミディエイト ウインドウ を 使ってみる 今回は、 イミディエイト ウインドウ と Debug.
また一つ、新しい花の名前を覚えました。~出戻りプログラマの備忘録~ 「RangeクラスのSelectメソッドが失敗しました」エラーを回避する。
Excelマクロを作っているとき、うっかりすると遭遇するのがこのエラー。 「RangeクラスのSelectメソッドが失敗しました」 これ、回避するのは簡単といえば簡単です。 Selectの前に対象シートをActivateしとけばいいんですよね。 ただし。 事前にActivateしなくてもエラーが出ないときもあるので、なんか不思議なんです。
Clojureの->マクロと->>マクロ - CLOVER🍀
今回もきっかけは「実践プログラミングDSL」からだったりしますが、ClojureDocsとかでもたまに見かけて気になっていた表現があります。 Clojureのこれ -> とこれ ->> です。 何だろ？と思っていたのですが、書籍にも出てきたので調べてみることにしました。 -> >はマクロで、->のすぐ次に書いた値を、続く関数呼び出しの最初の引数として適用できます。関数呼び出しが続く場合は、直前の関数呼び出しの結果が次の関数呼び出しの最初の引数となります。 …書いた方がわかりやすいかも。 (println (-> "test" .toUpperCase)) ;; => TEST (println (-> "t e s t" .toUpperCase (.split " ") seq)) ;; => (T E S T) 最初の例は、文字列「test」にString#toUpperCaseをかけ
Clojure のマクロって Groovy で書くとこんな感じじゃないの？ - 倭マン's BLOG
Clojure やっててマクロのあたりの構文クォート、アンクォート、スプライシング・アンクォートあたりが全然分かんなかったので、無理矢理 Groovy っぽく解釈してみました。 サンプルの Groovy コードはかなり力ずくで、（動作はするけど）実際に使えるコードではありませんが、Clojure マクロの理解の助けになれば幸いです。 構文クォート、アンクォート とりあえず簡単なマクロから。 『プログラミング Clojure』に載っているマクロ「unless」を拝借： (defmacro unless [expr form] `(if ~expr nil ~form)) ; マクロの本体 (unless false (println "this should print")) ; 使用例1 (unless true (println "this should not print")) ; 使
Excelマクロ/VBAマクロのモジュールをエクスポート - DoldoWorkz
保護・うぷぷぷ どんなページ？ 色々な所から見たり聞いたりした事を実際にやってみよう！という私の雑記帳ページです。 PukiWikiを使ってますが私しか編集できません…すみませんです。 ↑ 名前: ムーンドルド MoonDoldo 瑠川 菜月 るかわ なつき 自己紹介: 妖精なので性別はありません、中の人なんていません、色々安心で安全で合法です 性格は天使にも悪魔にもなれるハイブリット 種族: 緑の妖精 エルフだったり、 ニューマンだったり、 なで魔族だったり… 属性: ✓エルフ耳 ✓羽 ✓亜人種 ✓モコモコ ✓ょぅι゛ょ ↑ 使用上の注意 用法・容量を守って正しくお使い下さい 情報が間違ってる事による副作用が見られた場合は服用をお止め下さい ブックマーク迷子防止として必ず移転先ﾘﾝｸを設置しますので、安全・安心してお使いいただけます 成分の半分は優しさで出来ています ぴんぽーん♪ ↑
はじめてのユーザー定義関数 - 色のついたセルを合計
このページでは、ワークシートでユーザー定義関数を利用する手順をご紹介します。 今、ワークシートに以下のようなデータがあり、目印としてセルに赤い色がつけてあります。この色のついたセルだけを合計するにはどうすれば良いのでしょうか？ 実は、ワークシート関数の中にはセルの色を取得できる関数はありません。しかし、マクロを使えば可能です。そこで、今回は VBA でユーザー定義関数を作り、色を取得するようにしてみましょう。 （色の認識には個人差があるため、色に重要な意味を持たせることは、一般的には避けるようにしてください） Visual Basic Editorを起動します。 アクティブブックのプロジェクトに標準モジュールを挿入します。ユーザー定義ワークシート関数は標準モジュールに作成する必要があります。 標準モジュール Module1 が挿入され、コードのウィンドウが開きます。 このコードのウィンドウ
1GBレンタルサーバー・プロバイダー Amusement BiG-NET | www18.big.or.jp/~fujiwara/ikki/hidemaru/
こちらは独自ドメインからレンタルサーバー、フレッツ接続専用会員までトータルサポートのプロバイダー、BiG-NETです。 いつも弊社ユーザーのページにアクセスをして頂きましてありがとうございます。 http://www18.big.or.jp/~fujiwara/ikki/hidemaru/ 404 Not Found (ファイルが見つかりません) 申し訳ございませんが、お客様がアクセス要求されました上記ページは、現在アクセスが出来ません。 弊社では、なぜアクセスできないのかと言う第三者からのお問い合わせにはお答えすることが出来ません。 もしこのページの関係者をご存知でしたら、連絡を取ってみることをお薦め致します。 何卒ご容赦下さい。
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Array関数を使って配列に一度に値を格納する
OOoSF - ...?
サービス終了のお知らせ
Sakura Editor Macro リファレンス
M. Sugiura Personal Web Page [HIDEMARU/LESSON/OMAKE]