VBAに関するAUDCADのブックマーク (73)

  • (456)矢印キーを動かしたいときの簡単な方法 | Excel (エクセル) コーヒー ブレイク

    Excel (エクセル) コーヒー ブレイク EXCELを普段よくお使いになっている皆様に、 ちょっと知りたい! と思われる 機能、関数など、小技を、 連載でご紹介しています。 みなさま、こんにちは。 モカです。 お元気ですか? 日に日に春めいて来ています。 卒業シーズン。 無事な成長が何よりも嬉しい、嬉し涙の時期ですね^^ 毎日、平穏に過ごせること、それを守ってくれている方々がいることを、忘れずに、 世界でそんな当たり前の生活が出来ない方々が一日も早く、安心して過ごすことが出来る日が来ますように願ってやみません。 まだまだ冷え込む日がありますね。風邪などひかないように気をつけてお過ごしくださいね。 矢印キーを動かしたいときの簡単な方法 Excelを使用しているとき、たまに、矢印キーが動かない、という時があった場合、 結構、困りますよね。 そこで今回は、矢印キーが動かないとき、簡単に動くよ

    (456)矢印キーを動かしたいときの簡単な方法 | Excel (エクセル) コーヒー ブレイク
    AUDCAD
    AUDCAD 2024/03/18
  • Excel VBA の使い方

    Excel VBA の初学者が 10 日間で Excel VBA の基礎を学ぶときの資料です。10 日は目安です。実際はそれより多くの日数がかかっても良いですし、短くても良いです。各自のペースで学んでいただければと思います。

    Excel VBA の使い方
    AUDCAD
    AUDCAD 2023/10/24
    “Excel VBA の初学者が 10 日間で Excel VBA の基礎を学ぶときの資料です。10 日は目安です。”
  • excel vba で2つの日付時刻(文字列で取得)間の秒数を取得する方法

    AUDCAD
    AUDCAD 2023/10/21
    保有時間の算出
  • 【ExcelVBA】末尾の特定文字を除去または付与:文字列操作 | Binary Star

    末尾に \記号があれば除去する。 ※下のソースコード内で \ 記号は \ で表示上されていますが、そのままコピペで使用可能です。 Sub Sample() Dim 基準パス As String 基準パス = "Z:\2019年度\学期末テスト\問題集\3年生\英語\" 基準パス = IIf(Right(基準パス, 1) = "\", Left(基準パス, Len(基準パス) - 1), 基準パス) MsgBox 基準パス End Sub 結果

    AUDCAD
    AUDCAD 2023/10/21
  • 【ExcelVBA】文字列の右側(末尾)をn文字削除する - 和風スパゲティのレシピ

    文字列の右側をn文字削除するコードを解説します。 基の書き方 実行サンプル 解説 Len関数の恐ろしい罠 おまけ:文字列処理は関数化しておくと便利 基の書き方 右から3文字消した文字列 = Left(元の文字列, Len(元の文字列) - 3) 実行サンプル 商品名 = "愛媛みかん" 産地 = Left(商品名, Len(商品名) - 3) MsgBox 産地 ' ← 「愛媛」が表示されます。 解説 解説がなくても読めそうですが一応。 右から3文字消す = 左から(文字数-3)文字取ってくる です。 ちなみに元の文字列が2文字しかない場合はエラーで止まってしまいますので、 それを回避したい場合は If Len(商品名) >= 3 Then 産地 = Left(商品名, Len(商品名) - 3) Else 産地 = "" End If のように、最初に文字数を調べてIf文で分岐してく

    【ExcelVBA】文字列の右側(末尾)をn文字削除する - 和風スパゲティのレシピ
    AUDCAD
    AUDCAD 2023/10/21
  • 【EXCEL VBA】最後の1文字を削除したい

    LeftとLenで解決する Left関数は文字列(str)と数字(N)を引数として、strの左からN文字を返却する関数です。Len関数は文字列(str)の文字数を返却する関数となります。LeftとLenを組み合わせて、文字列長-1をLeft関数へ渡すことにより最後の1文字を削除することを実現しています。 サンプルプログラムを確認する(コピペOK) Option Explicit Sub sample() Dim str As String str = "ABCDEFG" Debug.Print str ' ABCDEFG ' 最後の1文字を削除 Dim str1 As String str1 = Left(str, Len(str) - 1) Debug.Print str1 ' ABCDEF ' 最後の2文字を削除 Dim str2 As String str2 = Left(str,

    【EXCEL VBA】最後の1文字を削除したい
    AUDCAD
    AUDCAD 2023/10/21
  • 平均値,中央値,最頻値の求め方といくつかの例 | 高校数学の美しい物語

    平均値とは,「合計」÷「個数」 中央値とは,「大きさ順に並べた真ん中」 最頻値とは,「一番たくさんある数」 例えば,3,2,6,6,43,2,6,6,43,2,6,6,4 というデータの場合, 平均値は,合計=3+2+6+6+4=21=3+2+6+6+4=21=3+2+6+6+4=21,個数は 555 なので 21÷5=4.221\div 5=4.221÷5=4.2 です。 中央値は,大きさ順に並べると 2,3,4,6,62,3,4,6,62,3,4,6,6 なので真ん中の 444 です。 最頻値は,一番たくさんある 666 です。 以下では,平均値,中央値,最頻値の意味や計算方法について,より詳しく説明していきます。

    平均値,中央値,最頻値の求め方といくつかの例 | 高校数学の美しい物語
    AUDCAD
    AUDCAD 2023/10/16
  • chatgpt vba プログラミング - Google 検索

    2023/07/24 · 話題のChatGPT(チャットGPT)を使うと、プログラミングが分からなくても、ExcelマクロのVBAコードを簡単に作成できます。社員名簿に記載されたデータ ...

    AUDCAD
    AUDCAD 2023/10/16
  • プラスのみ合計する-SUMIF・SUMIFS:Excel(エクセル)の関数・数式の使い方/統計

    ▼操作概要:プラスの値だけを合計する ※A1:A10セルに入力されている数値のうち正の値のみA11セルに合計する A11セルに =SUMIF(A1:A10, ">0") という数式を入力する 第1引数にセル範囲を指定して、 =SUMIF(A1:A10, ">0") 第2引数に「0より大きい」という条件を指定すれば、 =SUMIF(A1:A10, ">0") プラスの値だけを合計できます。 SUMIF関数の第3引数は省略可能 SUMIF関数には来引数を3つ指定でき、第3引数には合計するセル範囲を指定します。 上記の例の場合、条件を指定するセル範囲(第1引数)と、合計するセル範囲(第3引数)が同じですから、第3引数を省略しています。 SUMIFS関数でプラスのみ合計 「sumifsで正数のみ合計」 という検索でのアクセスもあります。

    AUDCAD
    AUDCAD 2023/10/12
  • 自作したExcelアドイン(元はマクロ)にショートカットキーを割り当てる

    手順 上記記事の方法でマクロがアドインとして登録されている場合、 C:\Users\[ユーザー名]\AppData\Roaming\Microsoft\AddIns に.xlamファイルが居ると思います。 その状態で、なんのExcelファイルでもOKなのでマクロのコード編集画面を出します。 開いたら、左ペインのプロジェクトエクスプローラーに該当のアドインファイルが「VBAProject」として存在しているかを確認。 もしない場合は、その.xlamファイルを直接開きに行けばたぶん表示されると思います。 そしたらその中の「Microsoft Excel Objects」を開き、「ThisWorkbook」をダブルクリックで開きます。 あとは簡単、ここに下記コードをペーストするだけ。 ''[Ctrl]+[K]を"マクロ名"に割り当てる Private Sub Workbook_Open() Ap

    自作したExcelアドイン(元はマクロ)にショートカットキーを割り当てる
    AUDCAD
    AUDCAD 2023/10/12
    ★自作Excelアドインにキーボードショートカットを割り当てる!
  • 【VBA】マクロをリボンに追加する【マクロをアドイン化して登録すると便利】

    マクロをリボンに追加する方法についてご紹介します。簡単にマクロを実行できて効率化になります。別ブックでも使いたい場合は、マクロを「アドイン化」して使うとできます。「別PC」で使う場合は「アドイン」と「リボンのデータ」をコピーして使うという感じです。実務でリボン機能をうまく使っていきましょう。

    【VBA】マクロをリボンに追加する【マクロをアドイン化して登録すると便利】
    AUDCAD
    AUDCAD 2023/10/12
    ★★★リボンにアドイン化したR1C1ボタンを登録!
  • エクセルアドインの作り方を紹介 | やろまいCode

    マクロを他のエクセルファイルでも使いたい。マクロ機能だけを配布したいこんな時はマクロをアドイン化するのがオススメです。 アドインにしておけば、通常のエクセルブックからもマクロを実行できるし、マクロ機能だけを配布することができます。 では、アドインの作成方法/登録方法/使い方の説明に入ります。 アドインの作成方法アドインは簡単に作ることができます。 エクセルファイルを新規作成して、Alt+F11を押してください。 こんな感じのウィンドウ(VBEといいます)が開きます。 ウィンドウが出たら、左の方にあるSheet1のところで右クリックします。 挿入⇒標準モジュールと押します。 すると、こんな画面になります。(画像は黒色ですが、デフォルトは白色です) 標準モジュールというものが追加されています。 ここで、アドイン化したいマクロを作成します。 Sub A1R1C1Change() If Appli

    エクセルアドインの作り方を紹介 | やろまいCode
    AUDCAD
    AUDCAD 2023/10/11
    ★★★アドイン化したR1C1ボタンをクイックアクセスツールバーに登録!
  • Excelマクロの配列でよく使うUbound関数・Lbound関数の使い方の検討と具体的な使用例について | しくじるなよ、デューティ。

    Excelマクロの配列を扱うときによく使うUbound関数・Lbound関数というものがあるのですが、この関数の役割、使い方を自分なりに整理しましたので記事にしておきます。 ExcelマクロのUbound関数・Lbound関数はどんな役割なのか そもそもExcelマクロのUbound関数・Lbound関数はどんな役割をするものなのか?という点ですが、 Ubound関数 → 配列の最大のインデックスを取得しますLbound関数 → 配列の最小のインデックスを取得します。 これだけだと「なんのこっちゃ?」になるので具体的な動きを確認するためにデータを用意しました↓ 縦に14セル・横に3セル分の表形式のデータになります。税理士業務ではこういったタイプの表データを使用する機会がよくあると思います。 この状態で下記のマクロを実行してみます。 Sub test() Dim my_array As Va

    Excelマクロの配列でよく使うUbound関数・Lbound関数の使い方の検討と具体的な使用例について | しくじるなよ、デューティ。
    AUDCAD
    AUDCAD 2023/09/28
    ★★★税理士さん 配列の転記。かなり具体的。
  • VBA基本(配列変数の利用)

    さて、前項まではセル→セルの転記の話でしたが、セルの値をマクロのコード内で別利用する場合の方法を一部紹介します。これは例えばCSV形式テキストファイルとの入出力などで利用できるものです。 変数については、以前に若干触れていますから省略しますが、今回はその変数の配列を利用します。 まず、配列変数の宣言方法です。

    AUDCAD
    AUDCAD 2023/09/28
  • vba 配列 要素数 変数 - Google 検索

    配列は、いわば集合住宅のようなものです。1棟の建物に複数の世帯が同時に住むことが可能です。配列を使用するときは、配列の宣言時に部屋数(要素数)を指定します。

    AUDCAD
    AUDCAD 2023/09/28
  • 【エクセルマクロ】空白以外のセルを転記(上詰め):自動化 | kirinote.com

    エクセルマクロで、空白以外のセルを上詰めするVBAコードをご紹介します。 空白以外のセルを、特定の列に転記します。 このページのマクロコードは、コピペで使えます。 ぜひ、お試しください。 以下のマクロを実行すると、空白以外のセルを指定列にコピーします。 Sub 空白以外のセルを隣の列に転記() Dim i As Long Dim LastRow As Long Dim Cnt As Long '最終行を取得 LastRow = Cells(Rows.Count, 1).End(xlUp).Row '転記開始行 Cnt = 1 Application.ScreenUpdating = False '1~最終行までループ For i = 1 To LastRow 'A列が空白じゃなければ If Cells(i, 1) <> "" Then 'B列に転記 Cells(Cnt, 2) = Cell

    AUDCAD
    AUDCAD 2023/09/27
    ★★★空白行の上詰め
  • MT4(メタトレーダー4)Oanda Excel RTDの使い方

    弊社カスタマーサポートでは、このツールに関するサポートは行なっておりません。ご自身で解決できる方のみご使用ください。 Oanda Excel RTDとは? Oanda Excel RTDとはMicrosoftExcelのRTD関数を用いてExcelでMT4(メタトレーダー4)の口座の状況や通貨ペアのプライスなどを管理できるツールとなります。 例えば、次のように口座の状況をリアルタイムで表示させることができます。 Excelであるため、このリアルタイムデータを元に、ご自由にグラフを作成することもできます。 保有中のポジションの管理や注文中のオーダーの管理も行うことができます。 また、リアルタイムの価格を表示させることも可能です。 その他、時系列データの取得も可能となっています。 RTD関数を使うことで、様々なデータを取得することができるため、アイディア次第で自由にアレンジして使うことができ

    MT4(メタトレーダー4)Oanda Excel RTDの使い方
    AUDCAD
    AUDCAD 2023/09/27
    ★★★MT4リアルタイムデータ取得!
  • 【VBA】removeduplicates、複数列の情報で重複削除するには?|あんもちブログ

    具体的な例でみるremoveduplicates単列で重複判定する場合Sheet1のA列からB列の範囲で、1列目(=A列)を重複判定に使うというマクロサンプルです。 '重複行を削除 Worksheets("Sheet1").Range("A:B").RemoveDuplicates Columns:=Array(1), Header:=xlYes以下のサンプルデータで実行してみます。 指定した範囲(A列からB列)の1列目(=ここで言うA列)の日付をキーに重複を確認しています。なので、日付が被ったら、その行は削除されるという動きになっています。 日付だけ見ているので、商品名が異なったとしても日付が同じであれば削除されてしまっています。ちなみに、動きとしては、一番上の行が残るようです。 複数列で重複判定する場合(2列)日付と商品名どちらもキーにして重複を判定したいという事もありますよね。She

    【VBA】removeduplicates、複数列の情報で重複削除するには?|あんもちブログ
    AUDCAD
    AUDCAD 2023/09/25
    “単列で重複判定する場合”
  • ExcelVBAのRemoveDuplicatesの使い方を調べてみた - えくせるちゅんちゅん

    今回はExcelの「重複の削除」機能をVBAで実行するための「RemoveDuplicates」で、引数に配列変数を指定したい場合の使い方を調べてみました。 きっかけ 解決した方法 RemoveDuplicatesとは 調査 思いついたアイディアを試してみる ヒントがないかとググってみた ネット上の情報を元に修正してみる さらなる問題点の発見 当初のTwitterでの質問への回答 補足 Excelの重複の削除にはバグがある Dictionaryで重複を削除する方法もある UNIQUE関数を使う方法もある Split関数で作成した配列が使えない おわりに きっかけ 先日、Twitterにて以下のような内容の疑問がツイートされていたが、なぜエラーになるのか原因が分からなかった。 '実行時エラー5 「プロシージャの呼び出し、または引数が不正です。」が発生する。 Sub NG1() Dim ary

    AUDCAD
    AUDCAD 2023/09/25
    えくせるちゅんちゅん
  • VBA~データを並び替えよう~Excel

    データを並び替えたい時はRange.Sortメソッドを使います。下のコードを実行するとD列の数値をキーとして降順に並び替えます。 Sub test1() With Worksheets("Sheet1").Sort .SortFields.Clear .SortFields.Add Key:=Range("D1"), Order:=xlDescending .SetRange Range("A1:D7") .Header = xlYes .Apply End With End Sub コードの説明 .SortFields.Clear 前回の並び替えの条件が反映されているのでクリアしています。 .SortFields.Add Key:=Range("D1"), Order:=xlDescending 並び替えのキーにD列を指定しています。パラメーターOrderで降順か昇順か指定します。降順が

    AUDCAD
    AUDCAD 2023/09/22
    ★★★ 最も分かりやすい!Range.Sortメソッド、SortFields.Add