Each
の検索結果 (1,873件 101〜 120 件を表示)
アクセス フォームが存在するかを一発で取得したい
…フォームが50個くらいあるのですが 該当のフォームが存在するかvbaで取得したいのですが If CurrentProject.AllForms("フォーム1").IsLoaded Then のように、一発で取得する方法はありますか? ...…
入力されたかどうか、オプションボタンが選択されたかどうかをチェックしたい
…入力されたかどうか、オプションボタンが選択されたかどうかをチェックして、OKなら次の入力にすすむとゆうプログラムを作りたいのですが、今回の場合、optAとoptBとoptCとがあり選択さ...…
VBSでXMLを読込、検索結果をテキスト出力
…VBSのソースについてご教授下さい。 【作りたい機能】 XMLファイルを読み込み、任意のエレメントを検索するスクリプトを VBSで作成しようとしています。 【状況】 ダイアログで表示させる...…
vba IE操作で こういう事ってできない?
…vba IE操作で こういう事ってできないのでしょうか? Dim objIE As InternetExplorer Sub test() Dim myObj As Object Dim myStr As String Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://employment.en-japa...…
VBA シート名重複した場合削除する
…教えてください。 VBAに関しての質問です。 全くの知識がないので教えていただきたいです。 エクセルワークシートに以下の機能を追加している状態です。 For Each ws In Worksheets If ws.Na...…
Macアドレスの取得(ソースは書けたが不安です)
…Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '1番目の方法 Dim Objquery As New Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE MACAddress i...…
VBAでシート(テンプレート)を追加
…VBAのコードが分からず困っています。(全くの素人です・・) やりたいことは 1.シート名一覧を用意してあるので、その一覧の名前を付けた新しいシートを作りたい 2.excelテンプレ...…
TextFieldParserの固定長桁数をバイト単位で指定したい
…TextFieldParserによる固定長テキストファイルの読込で、 桁数を文字数ではなく「byte数」で指定する方法を教えてください。 (FileOpen関数などではなく、あくまでもTextFieldParserを使用するのが...…
インプットボックスからファイルを開くようにしました。しかし、すでに開い
…インプットボックスからファイルを開くようにしました。しかし、すでに開いているか確認する項目がうまく作動しません。どのように記述するか教えて頂けませんでしょうか。 Sub Macro1() D...…
VBA 図形○を入れる座標の取り方
…EXCEL VBA利用で以下組まれてます。 Case "P32" For Each sp In ActiveSheet.Shapes If sp.Name = Target.Address Then sp.Delete Exit Sub End If Next Set sp = ActiveSheet.Shapes.Add...…
VBAの実行時エラー91!どうしよう?
…excelVBAでファイル内の各シートを確認して、条件に合うシートのデータをコピーするところで、「実行時エラー'91'オブジェクト変数またはWithブロック変数が設定されていません。」とい...…
ExcelのVBAでGoToの代わりに…
…お世話になっています よく、gotoは悪名高いとか、使わないほうが良いとか言われていますが、何故なのでしょう?? 使わないようにしようと思っても、別の方法がわからず使ってしまっ...…
エクセル IE VBA 実行時エラー91
…エクセル VBA でIE制御プログラムを作成していますが、エラーが発生します。 どなたか、ご存知の方がいらっしゃいましたら、ご教授のほど、よろしくお願いいたします。 エクセルの...…
excel2010条件付き書式後にVBAにて処理
…VBAビギナーのmaruです Excel2010のワークシート上の範囲(Range(”E12:K120“))内の 各セルに条件付き書式(複数あり)にてフォント色を赤く(RGB 255,0,0) 変更したセル内のデータ(数字)のみ削...…
エクセルVBAで xlOn xlOff の切替
…エクセル2000です。 ワークシート上に配置したオブジェクトのVisibleのTrue Falseについては、test01の方法で切り替えることが出来ます。 では、Test02でIfで判定している、xlOn xlOff の切替につい...…
targetをA列のセルに限定するには?
…『A列のセルに変更があったときのみ実行する』マクロを組みたいと思っています。 『If Target.Column = 1 Then』で条件をつけたのですが、これではA列と同時に他の列を同時に変更した場合、A...…
エクセルでの文字色を数える関数に関して。。。
…エクセルのセル内の文字色に関してのマクロを下記の通り書きました。 Function SpecialCell(targetRange As Range, _ intColor As Integer) As Integer '赤は3,緑は4,青は5,黄は6 Dim myCell As Range For Each myCell In t...…
複数範囲のCOUNTIF
…はじめまして 複数範囲のCOUNTIFがしたくて、過去ログ、WEBなどで試しましたが、書かれている内容が難しいです。なら自分で作ってしまおうと思い作ってわからないことは質問などして勉強...…
エクセル2013vbaで結合セルが空白なら行非表示
…いつもお世話になってます。 エクセル2013のvbaで質問です。 下記コードで、D8セルからD列の表の最後のセルまでに空白セルがあれば、その行を非表示になるようにしたいのですが、表のす...…
VBA:最下層のファイルを取得
…最下層にあるファイルのファイル名を取得したく下記の様なプログラミングを組んでみたところ、 「ファイル名または番号が不正です」というエラーが表示されてしまいます。比較演算子な...…
検索で見つからないときは質問してみよう!