UncodeProduction

UncodeProduction内検索 / 「VBA:[Tips]ワークシートをアクティブにする」で検索した結果

• VBA:[Tips]ワークシートをアクティブにする
  なにがどう アクティブワークシートを変更する どう ThisWorkbook.Worksheets("シート名").Activate
• VBA関連まとめ
  VBA関連 バグ関連 VBA[bugs] ループ文のカウンタがオーバーフローする ドキュメントのプロパティ値関連 VBA [Tips]ユーザ設定のドキュメント値を書き込む VBA [Tips]ユーザ設定のドキュメントの値を取得する セル関連 VBA [Tips]別ブックのセルから値をコピーする VBA [Tips]桁数を統一する VBA [Tips]セルを結合する VBA [Tips]最終行を取得する ブック系 VBA [Tips]ブックを開く、閉じる VBA [Tips]アクティブワークブック名を取得する VBA [Tips]現在操作しているワークブック名を取得する シート系 VBA [Tips]ワークシートをアクティブにする VBA [Tips]ワークシートの存在を確認する VBA [Tips]ワークシートをコピーする VBA [Tips]ワ...
• VBA:[Tips]ワークシートを削除する
  なにがどう ワークシートを削除したい どう アクティブシートを削除する ActiveSheet.Delete シート名を指定して削除する Worksheets("シート名").Delete
• VBA:[Tips]ワークシートをコピーする
  なにがどう ワークシートをコピーしたい どう Worksheets("コピーしたいシート名").Copy After =Workbooks("ブック名").Worksheets("シート名") ブック名を変えることで別のブックにコピーしたシートを追加することが可能 シート名が重複する場合、エラーが出るのでマクロで使用する際は予めダブりがないかチェックすること
• VBA:[Tips]アクティブワークブック名を取得する
  なにがどう 現在アクティブになっているワークブック名を取得したい どう Application.ActiveWorkbook
• VBA:[Tips]空白チェックを行う
  何がどう セルに文字列が入力されているかどうかをチェックする どう 手順 1.入力セルにスペースが入力されていないことを確認する VBA [Tips]空白を削除する 2.セルが空欄かどうか確認する nullの場合、flaseを返却する Function checkNull(str As Variant) As Boolean If str = "" Then checkNull = False Else checkNull = True End If End Function
• VBA:[Tips]ユーザ設定のドキュメントの値を取得する
  なにがどう ユーザ設定のプロパティ情報を取得したい どうするのか ActiveWorkBook.CustomdocumentProperties("プロパティ名") プロパティ名とプロパティ値が紐づいているので、上記の書き方でプロパティ値を取得することができる なおこれを実行するときに行われるのは、 「取得したいファイルを開く→ドキュメントのプロパティ情報を取得する→ファイルを閉じる」の一連動作を行うため、 時間と負荷が掛かる. →Dsofile.dllを使用することで開かずに実行することも可能. 逆に登録したい VBA [Tips]ユーザ設定のドキュメント値を書き込む
• VBA:[Tips]ワークシートの存在を確認する
  なにがどう 指定名前のシートが存在するかどうかをチェックしたい どう Dim i As Integer For i = 1 To Worksheets.Count If Worksheets(i).name = "シート名" Then シートが存在した場合、実行する事柄を記載 End If Next i
• VBA:[Tips]関数を作成する
  何がどう vbaプログラムにおいて関数を作成したい どう 1.引数は()内に記述 2.戻り値の型は foo()As～のAs以降で指定する必要がある 引数あり戻り値ありの関数 Function foo(num As Integer) As Integer foo=num End Function returnされる値は「関数名=」の形で記述する 引数なし戻り値ありの関数 Function foo() As Integer Dim num As Integer num=1 foo=num End Function 引数あり戻り値なしの関数 Sub bar(num As Integer) end Sub 引数なし戻り値なしの関数 sub bar() end Sub
• VBA:[Tips]別ブックのセルから値をコピーする
  なにがどう 別のブックのセルから値をコピーして、アクティブシートに張り付けたい。 どうするのか 1.コピーしたいブックを開く 2.開いた後にコピーする 3.貼り付ける Workbooks.Open "コピー元ブック名" フルパスで書く Workbooks("コピー元ブック名").Worksheets("コピー元シート名").Range("コピー元セル").Copy コピー元 Workbooks("貼り付け先ブック名").Worksheets("貼り付け先シート名").Range("貼り付け先セル").PasteSpecial 貼り付け先 補足 Workbooks内のコピー元ブック名はブックの名前だけを書くこと ...
• VBA:[Tips]セルを結合する
  なにがどう vbaで結合セルに値を入力したい 手順 1.セルを結合する Range("A1 A3").Marge 2.結合したセルに値を入力する Range("A1").Value="入力" 直接入力はできない Range("A1 A3").Marge="入力" この形だとエラーが出る
• VBA:[Tips]変数・定数を宣言する
  なにがどう 変数宣言と有効範囲 記述方法 グローバル変数 ほかのモジュールからも参照可能な変数 Public num As データ型 このモジュールからのみ参照可能な変数 Private num　As データ型 ほかのモジュールからも参照可能な定数 Public Const A　As データ型 = "AAA" このモジュールからのみ参照可能な定数 Private Const B As データ型= "BBB" プロシージャ固有の変数/定数 プロシージャ内で宣言する Sub TEST() 同一名はモジュールレベルよりプロシージャレベルが優先される Dim Y　As データ型 制御がプロシージャを抜けても保持される Static Z　As データ型 プロシージャレベルでの定数 Co...
• VBA:[Tips]エラーアラートを表示しない
  なにがどう 「上書き保存しますか」の様な確認アラートを表示しないようにしたい どうするのか Application.DisplayAlertsをfalseにする Application.DisplayAlerts = False 逆に、Trueにすると表示するようになる。 しかし、このままだとエラーが発生した時に動作が止まってしまうので、 On Error Resume Next でエラーを無視して次に進むように書いてあげる必要がある。
• VBA:[Tips]空白を削除する
  なにがどう 文字列内に空白が含まれている場合、削除する。 やりかた TRIM関数を使用する 先頭のスペースを削除 LTrim("文字列") 末尾のスペースを削除 RTrim("文字列") 頭もお尻も削除 Trim("文字列") ※Trim関数は先頭または末尾の空白しか削除できない→文中の空白削除はできない 上記問題を解決する…Replace関数を使用すると解決可能. Replace関数を使用する Replace("文字列","置換したい文字列","置換後の文字列") 正しくは空白を削除するのではなく、空白部分を無入力に置き換えるという表現が正しい。 Rpelace("文字列","　&...
• VBA:[Tips]他オフィスアプリケーションをExcelVBAで操作する
  何がどう ExcelVBAでほかのオフィスアプリケーションを操作する つまりどういうこと エクセルVBAで、操作したいオフィスのアプリケーションインスタンスを生成して使用する必要がある。 もっと具体的に言うと エクセルVBAで、操作したいオフィスのアプリケーションインスタンスを、CreateObject関数で生成し、それを使用する。 以下、CreateObject関数で使用する関数一覧。 オブジェクト クラス名 Access Access Application Binder OfficeBinder.Binder Excel(アプリケーション) Excel.Application Excel(ワークブック) Excel.Sheet frontPage FrontPage.Application Outlook Outlook.Application PowerPoint Powe...
• VBA:[Tips]画面描画を止める
  何がどう マクロの画面描画を止めたい どうするのか Application.ScreenUpdateingをfalseにする。 逆に、描画を再開したいときはTrueにする。 Application.ScreenUpdating = False いいことあるのか 描画処理が多いものだとだいぶ軽くなる
• VBA:[Tips]行を削除する
  なにがどう 指定行を削除したい どう Cells(row,col).EntrieRow.Delete
• VBA:[Tips]桁数を統一する
  なにがどう 桁数を統一したい。 ex)4桁で統一したい 1990⇒1990 4 ⇒0004 どうするのか Range("A1").NumberFormat="0000" 表示する数値がない場合は0が表示される #とどう違うのか Range("A1").NumberFormat="####"の場合、表示する数値がない場合は無視される
• VBA:[Tips]メッセージアラートを出したい
  なにがどう メッセージアラートを表示したい どうするのか 入力文字列を表示したい MsgBox "文字列" パラメータに保存されている内容を表示したい MsgBox foo
• VBA:[Tips]ループを強制的に抜ける
  なにがどう ループ文から強制的に抜けたい。 どう Exit For で抜けることができる 使い方は以下。シートの有無を確認して存在した場合は削除する。 For i = 1 To i_max If Workbooks("ブック名").Worksheets(i).name = "シート名" Then Application.DisplayAlerts = False Workbooks("ブック名").Worksheets("シート名").Delete Application.DisplayAlerts = True Exit For if文がTrueの時に1度処理をしたらループから...
• VBA:[Tips]時間の計算をする
  なにがどう エクセルで時刻の計算を行う どうするのか 時間単位の場合 (終了時刻-開始時刻)*24 分単位の場合 (終了時刻-開始時刻)*1440
• VBA:[Tips]ブックを開く、閉じる
  なにがどう ブックを開いたり閉じたりしたい どうするのか ブックを開く Workbooks.Open "ブック名" ブックを閉じる Workbooks("ブック名").Close SaveChanges =False SaveChangesをTrueにすると変更を保存、Falseにすると変更を保存せずに閉じる。
• VBA:[Tips]最終行を取得する
  なにがどう 最終セルの行数を取得したい どうするのか With Range("A1").SpecialCells(xlLastCell) MaxRow = .Row MaxCol = .Column End With
• VBA:[Tips]拡張子を削除する
  なにがどう ファイル名から拡張子を削除した文字列を表示したい やりかた ファイル名から「.」を検索(InStrRev関数)し、「.」を含め右側の文字列をすべて削除(Left関数)する Left(文字列, InStrRev(文字列, ".") - 1)
• VBA:[Tips]フォルダ選択アラートを出す
  なにがどう ユーザがフォルダを選択するためのウィンドウを表示させ、フォルダを選択させる。 また、選択したフォルダ名をセルに出力する どう Sub getFolder() With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then Range("出力セル") = .SelectedItems(1) End If End With End Sub
• VBA:[Tips]頭文字の0を出力する
  なにがどう エクセルで0から始まる数値を出力しようとすると、頭文字の0が消える ex)「08 15」→「8 15」 原因 エクセル先生の本当に余計なおせっかい 解決方法 数値の頭に「 」記号を付ける 画面表示だと「08 14」となるがセルをよく見ると「 08 14」となっているので文字数カウント時に注意。
• VBA:[Tips]出力フォーマットを固定する
  何がどう 出力形を「yyyymmdd」にしたい どう format(出力セル,"yyyymmdd")
• VBA:[Tips]UTF-7の文章を読み込む
  まだとちゅう なにがどう 文字コードUTF-7の文字列をエクセルで表示しようとすると文字化けしてしまい読むことができない なぜか エクセルで読み込みできる文字コードがUnicodeまたはSift-JISであるため どうするのか ADODB.Streamを用いて指定文字コード以外の文字コードを読み込みできるようにする。 読み込み時に文字コードを自動判別して読み取るように設定 Charset = "_autodetect" 以下、コード Sub main() Dim txt As Object Set txt = CreateObject("ADODB.Stream") Dim row As Integer Const adReadLine As Long = -2 行ごと読む ...
• VBA:[Tips]フォルダ内にあるファイル名を検索する
  なにがどう フォルダ階層中にある特定ファイルを探して列挙する。 探索方法 　フォルダを探す 　検索で見つかったフォルダ内に、検索条件に合致するファイルを探す。 　ファイルが無いとき、フォルダ内にフォルダがあるかを探す。 … フォルダもファイルも無いとき、探索終了。 どう実装するのか 使うオブジェクト FileSystemObject Dir関数で検索も可能ですが、ネットワーク上のファイルなど名前が長すぎるファイルに対応できないのでFSOを使う方が良さそう あとは再帰呼び出しをうまく活用する。 ファイルを探索するには以下のものが必要になる。 1.全てのフォルダを探索する関数 2.検索条件に合致するファイルを探索する関数 3.取得したファイル名を煮たり焼いたりするコード まずフォルダを探索するメソッドを書く。 Sub folde...
• VBA:[Tips]現在操作しているワークブック名を取得する
  なにがどう 現在操作しているワークブック名を取得したい どう ThisWorkbook.Name
• VBA:[Tips]指定文字でセルを分割する
  なにがどう 入力文字列を指定記号で分割して別セルに表示したい どうするのか Split関数を使用する。 文字列「090-1111-1111」 Dim tmp As Variant ハイフン区切りの値を一時格納するパラメータ tmp = Split(090-1111-1234, " - ") Cells(row, 3) = tmp(0) Cells(row, 4) = tmp(1) Cells(row, 5) = tmp(2) 出力は以下のようになる tmp(0)=090 tmp(1)=1111 tmp(2)=1234 Split関数で区切られたものは配列扱いになるので、頭にVariant型で区切ったあとの文字列を格納する箱を作る必要あり。(今回の例だとtmpにあたるもの...
• VBA:[Tips]文字列内に記号を挿入する
  何がどう 文字列に記号を挿入したい たとえば、電話番号090********にハイフンを追加して090-****-****のようにしたい どうするのか mid関数を使用する mid(文字列,開始文字位置,何文字目以降に挿入するか) Dim str as String str = "090********" Mid(str, 1, 3) "-" Mid(str,4,4) "-" Mid
• VBA:[Tips]IEでHTMLファイルを開く
  なにがどう HTMLファイルをIEブラウザで開きたい どうするのか Dim objIE As Object Dim fileName As String fileName = "ファイルのフルパス" Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate fileName objIE.Visible = True Set objIE = Nothing
• VBA:[Tips]日付が指定範囲内かを調べる
  なにがどう 指定日付が期間内かどうかを調べる どう 日付の差分をとる DateDiff("d",区間開始日,日付) =0 And DateDiff("d", 日付, 区間終了日) =0 区間開始日より、入力日付が大きければ日付の差分は0以上になり、 入力日付よりも区間終了日が大きければ日付の差分は0以上になる。 両方が成立するときに日付は区間開始日と区間終了日の間に存在するため。
• VBA:[Tips]ある文字以降の文字列を取得する
  なにがどう ある文字列の、指定文字以降の文字を取得したい どうするのか Dim text As String 　text ="example＠text.co.jp" 　text = Mid(text, InStr(text, "@") + 1) 取得文字列は@以降
• VBA:[Tips]ステータスバーにメッセージを表示する
  なにがどう ステータスバーにメッセージを表示する どうするのか Application.StatusBar = "出力メッセージ"
• VBA:[Tips]ユーザ設定のドキュメント値を書き込む
  なにがどう ユーザ設定のプロパティ情報を記入したい どうするのか 下記情報を持たせる ActiveWorkbook.CustomDocumentProperties.Add_ Name = "プロパティ名", _ LinkToContent = false, _ Type = "種類", _ Value ="日付情報" Name…プロパティ名 LinkToContent…ユーザー設定のドキュメント プロパティの値がコンテナ ドキュメントの内容にリンクされているかどうかを判断 Type…登録する値の種類 Value…プ...
• VBA:[Error]オブジェクトが必要です
  何がどう VBAをコンパイルした時に下記コンパイルエラーが表示される オブジェクトが必要です 原因 1.オブジェクトの宣言を忘れている 2.エクセル関数使用時、処理が異常終了扱いにされている 解決方法 1.オブジェクトの宣言を忘れている オブジェクトを宣言する 2.エクセル関数使用時、処理が異常終了扱いにされている GoTo ErrorHundlerで例外処理する 何が エクセル関数をVBAプログラムで使用した時の処理結果がfalseの場合、異常終了扱いになる。 そのため、「オブジェクトが必要です」というエラーが表示される模様。 (このエラーメッセージ自体とてもわかりにくいし優しくない) そのため、結果がfalseの場合の例外処理を作ることで、異常終了扱いになることを回避する。
• トップページ
  何がどう Java関連 VBA関連 環境設定関連 他興味があること とにかくやった事やった事詰んだ事困ったことを書いていく ブログだとグチャグチャになったのでTipsの姥捨て山はこちらに変更 いろいろ書きたいけど、業務上VBA触ることが多いせいかVBAおおめのTipsになりそう 誰が何 ちゃんえぬ 何かございましたら@unkomashimashiにリプライかDMをお願いします (たまに鍵垢になります) 最新Tipsは右側、ジャンルから大きく探したい人は左側のメニューから。
• VBA:[Error]実行時エラー70　書き込みできません
  なにがどう ファイル探索プログラムを実行時、「実行時エラー70　書き込みできません」が出る 原因 探索時、権限がないエリアの探索をしてしまいエラーが出ていた。 解決方法 On Error Goto処理で回避する On Error Goto exception exception Select Case True Case 70 出現時は処理を行わずに次へ resume next Case else それ以外の場合 End select
• メニュー
  メニュー トップページ VBA関連まとめ musicbotくん 編集方法 プラグイン紹介 メニュー2? リンク @wikiご利用ガイド ここを編集
• VBA[bugs]:ループ文のカウンタがオーバーフローする
  なにがどう ループ文を実行したときにループカウンタがオーバーフローする。 Dim i As Integer For i = 1 To Worksheets.Count If Workbooks(fileName).Worksheets(i).name = "foo" Then Application.DisplayAlerts = False Workbooks(fileName).Worksheets("foo").Delete Application.DisplayAlerts = True End If Next 原因 変数の初期化漏れ。 ループカウンタiを複数個所で使用したために発生していた。クソオブクソ ...
• プラグイン/ニュース
  ニュース @wikiのwikiモードでは #news(興味のある単語) と入力することで、あるキーワードに関連するニュース一覧を表示することができます 詳しくはこちらをご覧ください。 ＝＞http //www1.atwiki.jp/guide/pages/266.html#id_542badf7 たとえば、#news(ゲーム)と入力すると以下のように表示されます。 大阪商業大学で「世界の民俗ゲーム」展 文化の多様性と伝播の様子を紹介 - 東大阪経済新聞 『ザナック（コンシューマー版）』がレトロゲーム配信サービス“プロジェクトEGG”にて配信開始。戦闘機ZANACを操縦し、暴走したシステムと戦おう！ - ファミ通.com ゲーム・ネットばかりの子どもにイライラしない、「ちょうどよい」約束の作り方とは？専門家に聞きました（ベネッセ 教育情報サイト） -...
• Windows:パスワードを忘れたWindows7にログインする
  なにがどう パスワードが分からなくなってしまったWindows7にログインする。 どう 主なやり方は以下 パスワードを忘れたWindows 7／8／8.1にログオン（サインイン）する しかし、今現在変更箇所があるためこのマニュアルの通りだとすすめられない。 変更箇所 コマンドプロンプト呼び出しまでの経過が違う。 1.リカバリディスクをセットしてPCを起動する 2.画面が黒いうちにF10キーを押し続けてWindowsの起動モードを選択する 3.リカバリディスクからリカバリするを選択し、エラーが出るのでキャンセルを押して戻る。 4.さらにキャンセルボタンを押すと、コマンドプロンプトを起動することができる画面が表示されるため、画面の通り起動する 5.コマンドプロンプトを呼び出してからは同じ。
• プラグイン/インスタグラム
  インスタグラムプラグイン 人気の画像共有サービス、Instagram(インスタグラム）の画像をアットウィキに貼れるプラグインです。 #ig_user(ユーザー名) と記載することで、特定ユーザーのInstagramのフィードを表示することができます。 例）@dogoftheday #ig_user #ig_tags(タグ名) と記載することで、特定タグのInstagramのフィードを表示することができます。 #dogofthedayjp タグ #ig_tag #ig_popular と記載することで、Instagramのpopularフィードを表示することができます。 詳しい使い方は以下のページを参考にしてください！ ＝＞http //www1.atwiki.jp/guide/pages/935.html
• ThunderBird:メールファイルを.txt形式に変換する
  なにがどう .eml形式のメールファイルを.txt形式でエクスポートしたい 使うもの アドオン「ImportExportTools」を使用する。 リンク先変更の恐れあり ImportExportTools
• 編集方法
  初期設定で準備されてたページあれこれ まずはこちらをご覧ください。 @wikiの基本操作 編集モード・構文一覧表 @wikiの設定・管理 分からないことは？ @wiki ご利用ガイド よくある質問 @wiki更新情報 @wikiへのお問合せフォーム 等をご活用ください アットウィキモードでの編集方法 文字入力 画像入力 表組み ワープロモードでの編集方法 文字入力 画像入力 表組み その他にもいろいろな機能満載！！ @wikiプラグイン一覧 @wikiかんたんプラグイン入力サポート バグ・不具合を見つけたら？ 要望がある場合は？ お手数ですが、お問合せフォームからご連絡ください。
• プラグイン/編集履歴
  更新履歴 @wikiのwikiモードでは #recent(数字) と入力することで、wikiのページ更新履歴を表示することができます。 詳しくはこちらをご覧ください。 ＝＞http //www1.atwiki.jp/guide/pages/269.html#id_bf9eaeba たとえば、#recent(20)と入力すると以下のように表示されます。 取得中です。
• プラグイン/コメント
  コメントプラグイン @wikiのwikiモードでは #comment() と入力することでコメントフォームを簡単に作成することができます。 詳しくはこちらをご覧ください。 ＝＞http //www1.atwiki.jp/guide/pages/921.html#id_476878da たとえば、#comment() と入力すると以下のように表示されます。 名前 コメント
• プラグイン/アーカイブ
  アーカイブ @wikiのwikiモードでは #archive_log() と入力することで、特定のウェブページを保存しておくことができます。 詳しくはこちらをご覧ください。 ＝＞http //www1.atwiki.jp/guide/pages/921.html#id_2d967d6e たとえば、#archive_log()と入力すると以下のように表示されます。 保存したいURLとサイト名を入力して"アーカイブログ"をクリックしてみよう サイト名 URL
• @wiki全体から「VBA:[Tips]ワークシートをアクティブにする」で調べる

更新順にページ一覧表示 | 作成順にページ一覧表示 | ページ名順にページ一覧表示 | wiki内検索