ITmedia総合 >  質問!ITmedia  >  V

Visual Basic
エクセル VBA 値の取得
<div id=result name=result class='resultleft'><div class='finalresult'> 結果 </div> </div>上記のソースの”結果 ”という値を取り出したいのですが実現できません。Set IE = CreateObject("InternetExplorer.Application")Cells(1...(2016/12/02)

Excel(エクセル)
Excel VBAでファイルを1つづつ保存する方法
ファイルAとファイルBと写真データが格納されているファルダAがあります。ファイルAのNoと一致する写真データと、ファイルAのデータを1行づつファイルBに転記してNo名で1つづつ保存したいです。データは2000件ぐらいあり、手作業では困難になってしまい教えていただけれ...(2016/12/02)

オフィス系ソフト
参照設定 VBAで行ないたいのですが
参照設定で[Microsoft Visual Basic Application Extensibility]をチェックをVBAで行ないたいのですがSub test()Dim Ref As Reference'ExcelSet Ref = References.AddFromGuid("{00020813-0000-0000-C000-000000000046}", 1, 7)Set Ref = NothingEnd Subのよ...(2016/11/29)

Visual Basic
VBAの関数について
VBA初心者です。VLOOKUP関数の使い方がわかりません。具体的に書かせてもらうとVBAの中にVLOOKUP関数を使いたいです試験1ファイルのシート"sheet1"にある検索値を使い試験2ファイルの指定した検索範囲を試験1ファイルのシート"sheet1"の指定した位置に...(2016/11/29)

Excel(エクセル)
EXCELのマクロ・VBAについて
エクセルでデータ管理をしております。エクセルで表になっている文字の羅列をVBA・マクロ等を使用して、ウェブページの入力フォームに自動で入力、ウェブページの結果を再度エクセルに返すことはできますでしょうか?こちらがサイトになります。アマゾンのFBA料金シュミレ...(2016/11/28)

Excel(エクセル)
[VBA] オートフィルターの特定の列だけをコピー
こちらの識者の方々にはいつもお世話になっています。VBAの質問です。環境は下記になります。OS=windows7 pro 64bitOffice=Excel2010(14.0.7128.5000)・やりたいことオートフィルタを設定したデータをコピーしたいのですが、CurrentRegionではなく、特定の列の可視セルのみ...(2016/11/27)

Excel(エクセル)
ExcelのVBAにおけるLastRowという言葉
 ExcelのVBAにおいて、「最終行」即ち「(その列において)データが存在しているセルの中で最も下にあるセルの行番号」を取得する必要が生じる事が良くあります。 その様な場合には、Cells(Rows.Count,列番号).End(xlUp).Row か Range(列番号 & Rows.Count).End(xlUp)....(2016/11/26)

Excel(エクセル)
csv上でVBAが一部上手く行かない(数が崩れる)
私の以前の質問↓http://qanda.rakuten.ne.jp/qa9245201.htmlが締め切られてしまったので、続きで質問いたします。前回教えて頂いたVBA↓が、ほぼ完璧なのですが、あと1歩のところが解決しないまま終わってしまいました。Sub test()  Dim s As Variant  Dim t As Workb...(2016/11/24)

Visual Basic
エクセルVBA来年成人式を迎える人の抜出
お世話になります。Range("C3")からLastRowまで生年月日が入りRange(”D3")からLastRowまで氏名が入っています。ここから来年成人式を迎える方のデータを新規ブックに抜出したいのですが何方かご教示お願いします(2016/11/24)

Word(ワード)
WordVba ルビをすべて解除する方法は?
高校の授業で生徒が自己採点できる教材を作っています。自己採点のマクロとは直接関係はないのですが、マクロの勉強を兼ねて、次のような課題を解決したいと思ったのですが無理でした。生徒向け表示用のワード文書で読みにくい漢字にルビを設定したものが100ファイル(600...(2016/11/23)

Excel(エクセル)
[VBA] 型宣言の順番について
こちらの識者の方々にはいつもお世話になっています。VBAの質問です。環境は下記になります。OS=windows7 pro 64bitOffice=Excel2010(14.0.7128.5000)私はVBAのレベルとしては初級で、具体的には配列内で処理をしたり、連想配列のコードが書けるぐらいで、クラスモジュール...(2016/11/23)

Excel(エクセル)
[VBA] For文の使い分けについての疑問
こちらの識者の方々にはいつもお世話になっています。VBAの質問です。環境は下記になります。OS=windows7 pro 64bitOffice=Excel2010(14.0.7128.5000)・疑問点For each nextもFor nextも、最下行まで処理をしたいときに使用することが多いのですが、単列の場合はFor each n...(2016/11/23)

オープンソース
エクセルVBAで未使用のSUBやFunction
エクセルVBA内で未使用のSUBやFunctionを洗い出したい。例えばSUB_Aを読んでいる箇所についてソース内を検索すれば解りますが、subやfunctionの量が多いので、何か簡単に調べる方法はありますか?(2016/11/22)

オフィス系ソフト
VBA 同じ処理のボタンを複数のシートに配置
VBA初心者です。VBAで進むボタン1つを作成し、このボタンに下記の処理をさせます。sheets("シート名").range("b1")=range("b1")+1今の所、こちらはうまく処理されます。しかし、違うシートにこの進むボタン2つ目を作成し、同じ処理をさせた...(2016/11/22)

Excel(エクセル)
VBA IE操作 メルカリの検索窓に入力できません
お世話になります。Win7/エクセル2010/IE11 使用ですエクセルVBAよりIEでメルカリ(https://www.mercari.com/jp/)の検索窓にテキスト文字を入力させたいのですが、入力できません。Sub GoogleSearch() Dim objIE As Object Dim objInpTxt1 As HTMLInputEleme...(2016/11/21)

オフィス系ソフト
【VBA】半角カタカナのみを全角にするには?
http://bekkoame.okwave.jp/qa8979427.htmlこちらのページを参考にしたのですがカタカナのみ全角にしたいのですが平仮名がカタカナになってしまいます。正規表現と言うのがよくわからないのでコピペで使ってますがSub Sample2() Dim myStr As String Dim Match As Object, ...(2016/11/20)

Excel(エクセル)
VBAでコマンドボタンを作成?実行するには
いつもお世話になっております。今回やりたいことは、1 ワークシートからユーザーフォームのチェックボックス作成(多数変動)2 「1」が数に変動があるため、最下段にコマンドボタン作成3 「2」で作成したボタン実行で、チェック=Trueを印刷です。現在、3の手順...(2016/11/20)

Excel(エクセル)
VBA ユーザーフォームの内容を別のブックに反映
皆様、宜しくお願い致します。私はVBA歴が浅く初心者に近いため、何卒ご教示の程お願い申し上げます。今回、「ユーザーフォーム.xlsm」のファイル名でVBAのユーザーフォームを作成しました。このユーザーフォームで入力した内容を別のブックである「ご意見箱.xlsx」の「she...(2016/11/19)

Visual Basic
エクセルVBA 二回目の処理でエラーが。。
お世話になります。今回は下記のコードですが、一回目の処理は実行されますが二回目になるとエラーになります。Findが悪さしているのは分かっているのですが、解決方法が分かりません。宜しくお願い致します。 '// 非対象相手先にチェックを付ける作業 With Sheets("...(2016/11/18)

Excel(エクセル)
VBA ユーザーフォームの内容を別ブックに反映
「ユーザーフォーム.xlsm」のファイル名でVBAのユーザーフォームを作成しました。このユーザーフォームで入力した内容値を別ブックである「ご意見箱.xlsx」のsheet1に反映させたいです。「ユーザーフォーム.xlsm」と「ご意見箱.xlsx」は、「デスクトップ」上に置いておりま...(2016/11/15)

Excel(エクセル)
excelVBAでシフト作成できますか?
休みの回数、数値化したマンパワー、インチャージを必ず出勤。出勤は必ず二日以上連続させる等、、(2016/11/14)

Visual Basic
フォルダ内にあるファイル名を取得するVBA
エクセル2010を使用しています。VBA(マクロ)で以下の作業を実行したいと考えていますが、初心者につき、ご教示いただけますでしょうか。「マクロ」ファイルにある「実行」Sheetというにある「実行」ボタンでL2に入力したパス内にあるファイル(.xlsや.xlsmや.xlsbが混在...(2016/11/14)

Visual Basic
エクセルVBA でWmvを観る
excel VBAUserForm1ComandButton1クリックでWmv映像を観るマクロをどなたか教えてください(2016/11/13)

Visual Basic
VBAについて教えて下さい
エクセルのファイルを2つ開いている状態で仮に名前を試験1、試験2とします。VBAを使用し試験2の指定した位置にあるセル(数値)を試験1の任意の位置に挿入するしかし、試験2のシートは複数あります。僕がやりたいのは試験1の任意の位置に挿入する数値は試験2のシートが変わっ...(2016/11/13)

Visual Basic
エクセルVBA 対比表を作りたいです。
お世話になります。混乱を極めてしまったので、質問させて頂きます。下記の様なリストがあります。A列  B列No  相手1   11   21   31   52   12   23   23   33   4・  ・・  ・・ 以下、数百まであります。上記で 「1-2」と「2-1」...(2016/11/11)

オフィス系ソフト
VBA InStrがうまくできない
ソースを見ると<div class="hd">と言うタグは有るのにVBAでSub test()Dim objIE As ObjectDim myObj As ObjectDim str電話番号 As StringDim strHTML As VariantDim intstart As Variantstr電話番号 = "03-58**-58**"Set objIE = CreateObject(&...(2016/11/11)

Visual Basic
VBA 指定した範囲のデータ抽出
Excel VBA初心者の質問です。以下の作業を行うため、30個のファイルをVBAを活用して処理したいのですが、詳しい方おられましたらコードの書き方をご教授お願いいたします。ネットで参考になるコードをいくつか調べたのですがギブアップでした。1.フォルダA内の一番上のフ...(2016/11/11)

Excel(エクセル)
VBA すでに開いているエクセルのファイル指定
複数のエクセルファイルが開いています。例えば、「x.xlsx」「y.xlsx」「z.xlsx」です。3つのファイルを区別するために、いつもなら(ファイルがすべて閉じていれば)、Set x = Workbooks.Open("D:\x.xlsx")Set y = Workbooks.Open("D:\y.xlsx")Set z...(2016/11/10)

Visual Basic
VBA教えて下さい
VBA教えて下さい。初心者です。例えばA1セルに数値を入力してコマンドボタンを押すとB1?B20のセルに全てその数値が反映されるその反映された数値は赤色にするこれだけならばprivate sub commandbutton_click()range("B1:B20")=range("A1")range("...(2016/11/09)

Excel(エクセル)
Excel2013 ExcelVBAで散布図
Excel2013 ExcelVBAで散布図を書く方法を教えてください。Excel2013にてA列とC列で散布図を作成するためexcelVBAで以下のコードを書いています。Sub hogehoge() Dim aa As Range Dim cc As Range Dim aacc As Range Set aa = Range(Cells(1, 1), Cells(6, 1)) ...(2016/11/08)

Excel(エクセル)
VBAでコントロールを動的に配置する方法
VBAでコントロールを動的に配置する方法を教えて下さい。フォームに n組のチェックボックスとテキストボックスを横方向に動的配置し、標準モジュールからチェックボックスを チェックボックス(x) x=1?n のように配列のような制御したいのです。画像で見て頂くと、チェック...(2016/11/08)

Excel(エクセル)
excelvbaで表示の時刻について
今下記のコードを教えていただき、時計(デジタル)表示ができて時刻を刻んでいます。sub test01()with sheets("sheet1").range("g5").value=time.numberformatlocal="h:mm:ss"end withapplication.ontime now + timevalue("0:00:01&qu...(2016/11/06)

Visual Basic
Excel VBA; 複数のループ処理
↓のようなコードがあります。Dim i As Long, MaxRow1 As Long, MaxRow2 As LongMaxRow1 = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).RowMaxRow2 = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).RowFor i = 1 To MaxRow1 Work...(2016/11/02)

Visual Basic
Excel VBA UserForm button
ExcelVBAのことで教えてください。classmoduleは使ったことはありませんが、今回使うのではないかと・・・知りたいことは、シート(目次)のセルA1?A36に名前を入力するとこがあります。例えばA1に名前を入力するとUserFormにA1の値のCommandbuttonが追加されるようにし13...(2016/11/02)

Excel(エクセル)
Excel VBA CSVを文字型で読みたいのです
お世話になります。Excel2013のVBAでCSVの全項目を文字型として取り込む処理を作ろうとしているのですが、うまくいきません。 数値項目のゼロが消えてしまいます。サンプルcsvと、取り込む所だけ抽出したソースを見て頂いて、なんとかなりますでしょうか?よろしくお願いし...(2016/11/01)

Visual Basic
アクセス VBA サブフォルダからインポート
アクセス・エクセル2010を使用しています。以下の作業を実行したいと考えていますが、初心者につき、ご教示ください!1.ダイアログを表示させ、フォルダを指定したい:トップパス設定2.1で指定したトップパス内(サブフォルダを含む)にある 一定のネーミングファイルを...(2016/10/31)

Visual Basic
Excel VBAについて
Excel VBAについて教えて頂きたいのですが、Sub test()Dim lastrow, r, i As LongDim sh1, sh2 As StringDim ws As Worksheetlastrow = Cells(Rows.count, "D").End(xlUp).rowFor r = 7 To lastrow '7For i = 1 To lastrow '4sh1 = ActiveSheet.Cells(r, 4)Acti...(2016/10/31)

Excel(エクセル)
エクセルVBA印刷範囲指定とヘッダーフッター
1か月のうちの前期と後期のシートがそれぞれあり、前期シートを範囲指定して領収書の一部を印刷したいのですがなぜか、前に作ったヘッダーとフッターが前期だけ印刷されてしまいます。どこに隠れているのか謎なのです。前に悩みながら作ったシートがどこかに隠れているので...(2016/10/28)

Excel(エクセル)
エクセルVBAで他フォルダーにある書類を必要部数
印刷したいですCドライブ直下にAというホルダーを作り 書類ができた順にAフォルダーに入ってきます終了後 約50?60くらいBOOKが存在しますそのブックを作成書類により 3枚?5枚印刷していますまずは3枚印刷の書類を作成しメッセージボックスで枚数を指定しますフォル...(2016/10/27)

その他(プログラミング)
エクセルVBAで ” をテキスト出力したい
ExcelVBAで、ダブルコーテーションを含む文字列をテキスト出力したいです。下記を出力したいのですが書き方がわかりません。<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">×Print #1,"<meta http-equiv...(2016/10/27)

Visual Basic
VBAのOnTimeの停止について
下記コードで右上の×ボタン(エクセルアプリではなくbookを閉じる×です)でCLOSEした場合は停止されるのですが、ThisWorkbook.Closeで閉じた場合MsgBox "timer cxl"は呼ばれるのですがタイマーがキャンセルできず10秒後に閉じたbookが勝手に開かれMsgBox "...(2016/10/27)

Visual Basic
アクセス2010 VBA 指定セルのインポート
アクセス・エクセル2010を使用しています。モジュールを用いて以下の作業を実行したいと考えていますが、初心者につき、ご教示いただけますでしょうか。1.ダイアログを表示させ、取り込みファイル(.xls)を指定してインポートしたい※1シート目指定(シート名は変動の可能...(2016/10/27)

Excel(エクセル)
excel vba 配列の一部 一気に書き出し
Excel VBAの配列の一部分をワークシートのセルに一気に書き出す方法を教えてください。Dim A(12000,100) as double があります。この中の A(1 ? 12000 , 10) を ワークシートの cells(11,3) へ一気に縦方向に書き出したいのですが(B11から縦方向)、やり方を教えてい...(2016/10/25)

オフィス系ソフト
パスワードがかかってる場合どのようにVBAで指定す
Set cnEx = CreateObject("ADODB.Connection")With cnEx.Provider = "Microsoft.ACE.OLEDB.12.0".Properties("Extended Properties") = "Excel 12.0".Properties("Data Source") = "C:\Users\\test.xlsm".Ope...(2016/10/24)

Visual Basic
VBA年月日から5年以上のデータ新規ブックに出力
お世話になります、A3日付...............L3合計とあります.A4からLastRowまでの日付の中から5年以上経過したAからLまでのデータを新規ブックのsheet1に書き出したいのですがご存知の方ご教示ください、宜しくお願いします。(2016/10/24)

Visual Basic
VBA教えてください
VBA初心者です画像を添付します赤いセルの背景色に反応し、C?Eのセルを結合してその中に文字を入れると言うものですが10/1みたいに全て結合出来れば良いのですがコードを実行した結果10/5の結果はC?Eのセルは結合されてますが列の9?11のセルは結合されてないですこれをまと...(2016/10/23)

Excel(エクセル)
【難しい】エクセルVBA
エクセルVBAもしくは関数での回答希望です。【条件】A1?Aiには商品名、個数、単価、合計額が入っています。A1?Aiに記載されてる各情報は半角スペースで区切られていたりいなかったりします。D列にはA1?Aiで使われている商品名がランダムに全て入っています。【行いたいこと...(2016/10/21)

その他(データベース)
access VBA 計算について
すいません。http://qa.itmedia.co.jp/qa9245657.htmlで質問したのですがわかりにくいこのこの上ないと思うので、画像を添付させていただきました。まるでかこった部分でできないものです。関係するのは点数 負割 入金 負担金 値引き なのですが[点数]*[負割]=負担金...(2016/10/21)

その他(データベース)
MicrosoftaccessVBAの計算
こんにちは。VBAで分からない点があるので教えてください。下記なのですが、負割が[200]の時、[点数]×3で200を越えたら[負担金]フィールドの答えが200それ以下は×3して四捨五入した数にしたいです。それがどうしてもできません。[負割]が200以外の場合は、[点数]×[負割]...(2016/10/21)

Visual Basic
VBA手詰まりしました
VBA初心者ですシートモジュールにコードをかきたいのですが例えばA1からA10まで数値を記入しかもその数値を赤色にする数値を記入したら反映されるようにしたいのですがprivate subrange("A1:A10").Value="100"range("A1:A10").Font.Color=vb...(2016/10/21)



多くの予想を裏切り、第45代アメリカ合衆国大統領選挙に勝利。貿易に関しては明らかに保護主義的になり、海外人材の活用も難しくなる見込みであり、特にグローバル企業にとっては逆風となるかもしれない。

携帯機としても据え置き機としても使える、任天堂の最新ゲーム機。本体+ディスプレイ、分解可能なコントローラ、テレビに接続するためのドックといった構成で、特に携帯機としての複数人プレイの幅が広くなる印象だ。

アベノミクスの中でも大きなテーマとされている働き方改革と労働生産性の向上。その実現のためには人工知能等も含むITの活用も重要であり、IT業界では自ら率先して新たな取り組みを行う企業も増えてきている。