ITmedia総合 >  質問!ITmedia  > 

「マクロ」最新質問一覧

Excel(エクセル)
マクロで小数点以下の桁数を変更
シート内に複数のグラフがあり、あるセルに数字を入れてマクロを実行するとグラフの最大値と最小値とレンジが変わるようにしてあります。下のマクロです。 ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.Axes(xlValue).Select With Activ...(2016/12/04)

Excel(エクセル)
エクセル2003の繰り返しマクロ
EXCEL2003のVBAマクロの構文を教えてください。下記のようにA列に文字が昇順で並んでいるワークブックXXがあります。 A1あ2あ3あ4い5い6う7え8お9お以下がマクロでやりたいことです。(1)I行目から、1行目と同じ文字の最下行(この場合は3行目まで)を切り取る(2)新しいワー...(2016/12/03)

CAD・DTP
AUTOCAD LT 繰り返し長さ寸法記入マクロ
お世話になります。使用環境は以下の通りです。OS:WINDOWS7 32ビット使用ソフト:AUTOCAD LT 2016この度、長さ寸法記入(dimlinear)コマンドで以下の方法でのマクロは無いものか、質問した次第です。通常、長さ寸法記入コマンドでの寸法記入は、長さ寸法記入コマンドを...(2016/12/03)

その他(開発)
Excel マクロ納品時、パスワードは設定する?
クラウドソーシングで、Excel マクロ・VBA をお願いした場合、納品時にはパスワードは設定されてくるのか否か、「暗黙のお作法」を知りたいと思いました。発注を検討しているのですが、類似案件ではとても単価が安いようなので、パスワードがかかっていて、後からちょっと...(2016/12/02)

Visual Basic
【マクロ】数の合計の表を作成【Ecexl】
D、I列に文字と数字が入ったエクセルシートがあります。下記のように、L、Mに合計の表を完成させたいです。今後も同じ作業をしますので、マクロで一気に表を作成できたらと思います。分かる方おりましたら、ご教授いただきたいです。↓↓↓D     I  L  M---...(2016/12/01)

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

Excel(エクセル)
表のばらばらの文字列をまとめるマクロ 関数
以前、同じ内容の質問を聞いたのですが、少し条件を変えて質問です。(1)左の表には数式が入っていて、この他にもう一つある表のデータに該当すると1列ごとにSMとかNPとか表示されるようになっています。(2)この左の表は実際には136列あるので、結果を印刷すると一枚に収ま...(2016/11/20)

Excel(エクセル)
エクセル 条件式?マクロ?
B2に○と入力した際、E2のセルを黄色に変化させたいE2に○を入力されるとE2は白色に戻り、次の3ケ月後のH2の部分を黄色にしたいのですが他のところも同じで○と入力されたら3か月後にセルの色を変化させたいのですがどうすればできるでしょうか?(2016/11/18)

Excel(エクセル)
エクセル マクロ
A2?A101にNo1?100までの管理番号が振ってますB2?順番に2016年1月・・・・・・2017年12月まで日付を付けていますB2:Y101の間は入力規制のリストで○,故障,修理を入れれるようにしています例えば 2016年1月 NO1(A2セル)に○を入力した時、次回の点検日(3か...(2016/11/15)

オフィス系ソフト
エクセルのマクロ。セルの値により複数条件分岐を
皆様 よろしくお願いします。エクセルで社内で使っている現金出納帳がありまして。D6セルから下方向に数字・日本語アルファベット混在して入力されています。例「1月13日 現金売上」 「2月13 切手代」 「3月31日 食事料金」といった具合です。そのセルの内容を判断し...(2016/11/11)

Excel(エクセル)
マクロでマスタ表からフィルタ表と同じデータ抽出
仕事で不定期ですが月に4?5回マスタ表が届きます。その表から私の担当している部品のみ抽出するフィルタ表があり素人ながら簡単な録画マクロで処理を行っています。(マスタ表から抽出フィルタを使いフィルタオプションで抽出して新しいシートに出力)但し、毎回マスタ表...(2016/11/10)

Visual Basic
excel2010マクロ オートフィルター削除
いつもお世話になります。excel2010を使っておりますが、下記で原因不明のエラーで困っています。やりたい事はオートフィルターで抽出された行のみ削除(1列目はタイトルの為削除対象外)If .SpecialCells(xlCellTypeVisible).Rows.Count > 1 Then .Offset(1).R...(2016/11/09)

Excel(エクセル)
エクセルのセルにマクロによる左右余白挿入について
いつもお世話になっております。エクセル2013を使用しています。行いたいのはエクセルのセルの左右に、マクロによって左右へ同じ余白を入れたいと考えています。いろいろ調べてみましたが、分からず困っています。どうか、ご教示をお願いいたします。(2016/11/08)

Excel(エクセル)
EXCEL ブック単位の置換をマクロで実行したい
EXCEL 2010を使用しています。置換で以下の>>内の動作をマクロで作成しました。>>検索文字列 'C:\Program Files (x86)\Okasan Online Securities Co.,Ltd\岡三RSS\岡三RSS.xla'!置換後の文字列 (上記の文字を削除したいので空白)検索場所 ブック>>これですべて...(2016/11/07)

カメラ全般
マクロレンズ撮影時の被写体について
マクロレンズ撮影時の被写体についてマクロレンズは楽しいということがわかったのですが、しかしながら、撮影するものが無くてこまってしまいます。たしかに、植物の花などは驚きの写真がとれるのですが、それっきりであり、別にいい感じに撮影できているかというと違う気...(2016/10/22)

Excel(エクセル)
マクロによる複数のエクセルファイルのセル結合解除
エクセル2016を使っています。aaaという名前のフォルダの中に、複数のエクセルファイルが保存されています。エクセルファイルにはそれぞれ複数のシートがありますが、シート枚数はファイルによって異なります。全てのエクセルファイルの結合セルを解除して上書き保存したい...(2016/10/20)

Excel(エクセル)
VBAマクロで特定文字から文字までを抜き出す
下記のサンプル文字列がありますが、余計な文字が入っているので削除をして目的部分のみ抽出したい。aaaa@gmail.com>時折、下記の様な場合があるのでドメイン部分だけ抜き出したい。@しつもん株式会社aaaa@gmail.com>@だけでMIDとかで書き出すと「しつもん株式会社」...(2016/10/19)

Visual Basic
ExcelVBAマクロについて確認させてください。
ExcelVBAマクロについて確認させてください。添付ファイルのような形式のデータがあり、このデータを使い、積み上げ縦棒のグラフを作成したいです。次のような条件で作成する方法をご教授いただければと思います。・AからFまでの文字は横軸ラベルにしてAAからCCまでのデー...(2016/10/18)

Excel(エクセル)
EXCELマクロで日付をYYYYMMDDに変換
EXCELマクロで、ドット記号有りの日付を、ドットなしの形式(YYYYMMDD)に変換したいです。ドット有りとは、たとえば下記のようなものです 2016.9.01 2016.09.1 2016.9.1 2016.09.01これを、20160901のようにするには、Replaceでうまく置換できれば良いのですが、ゼロが...(2016/10/13)

Visual Basic
マクロ 修正 (初心者です)
Option ExplicitPrivate lastRow As LongPrivate Index As IntegerPrivate Sub CommandButton1_Click()Unload MeEnd SubPrivate Sub あいまいボタン_Click() Dim last As Long If 検索名前テキストボックス.Text = "" Then MsgBox "あいまい抽出する名前...(2016/10/13)

Excel(エクセル)
excelで作成の管理票を一発ででマクロに変換
EXCELで三か月分の販売管理票を作成し利用しています。行が約6000*列112、シートが10の膨大なデータになっており表が重くなり作業に支障が出てきております。マクロに変更したら軽くなると聞いたことがあります。一つ一つのセルを変更するのが大変なので一括でマクロに変...(2016/10/13)

Excel(エクセル)
Excelのマクロでデータ形式を容易に変更する方法
2年ぶりにExcelのマクロについて質問させていただきます。他の人がExcelで作ったデータを取り込んで使いたいのですがマクロでデータ形式を変換する適切な方法を教えてください。他の人が作ったExcelファイルで例えばセルA1にH28/04/01というデータがあったとします。画面...(2016/10/12)

財務・会計・経理
エクセルマクロ文で教えてください。
お世話になります。エクセルマクロ文で セルD6 に保存するドライブ名(C とか D) セルD7に保存するフォルダ?名(資料2016 とか 閲覧2016 など) セルD8にファイル名 を置いて、 ドライブ名やフォルダ?名を任意に選択できる形で、作成したエクセルシ?トを...(2016/10/07)

Excel(エクセル)
エクセル セル移動 マクロ
ウインドウの固定を使用していますA列からAX列までありますC列固定しているためD列からAX列まで動くのですがエクセルの下の動かすスクロールバーでしか移動できなくて大変なので一行目の空いてるスペースにボタンを作成し左に行くボタン  右に行くボタン を作成する左右...(2016/10/05)

オフィス系ソフト
マクロ禁止の部署へエクセルのデーターを送信する
C1セルの計算式をC2セルの関数を使って値を表示させているのですが、他の部署ではマクロとして認識されて結果部分には「#NAME?」と表示されます、エクセル画面では「!セキュリティの警告 マクロが無効にされました。」と表示され「コンテンツの有効可」ボタンが表示...(2016/10/04)

Excel(エクセル)
検索 マクロ
本を見ながら作ったのですが検索してくれるのですがA列を検索してくれるのですが検索したいのはB列の4番目から下にあるだけ検索したいのですがどういじればいいのでしょうか?Option ExplicitPrivate lastRow As LongPrivate Index As IntegerPrivate Sub UserForm_Activat...(2016/10/04)

Excel(エクセル)
関数による空白行を除き範囲を選択するマクロ
添付ファイルのシートが同じファイル内にある別シートの値を参照の上、元シートの入力がない場合は、if関数により空白表示する様にしてあります。(関数自体は1万行くらいまで入力すみです。) このシートの空白表示以外のセル(A6:i22)までを選択するマクロを組みたいの...(2016/10/02)

Visual Basic
VBA マクロ 修正
Private Sub UserForm_Initialize() Me.lbl行番号.Caption = Worksheets("顧客情報").Range("A1").CurrentRegion.Rows.Count + 1End SubPrivate Sub cmd検索_Click() frm顧客検索.Show vbModal If rtnNo > 1 Then With Worksheets(...(2016/10/01)

Excel(エクセル)
エクセル フォーム マクロ
Private Sub cmd登録_Click() '← 登録ボタン押下時の処理追加 Dim wRow As Long If Me.txtNo = "" Then '顧客番号が未入力の場合はエラー表示 MsgBox "顧客番号を入力してください。", vbExclamation + vbOKOnly, "入力...(2016/09/30)

Excel(エクセル)
エクセル 写真貼り付け マクロ
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Cancel = True '===============画像選択 myF = Application.GetOpenFilename _ ("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , &q...(2016/09/29)

Excel(エクセル)
エクセルマクロ 空白行のみ削除しない
http://okwave.jp/qa/q9232296.htmlで、質問した者です。度々申し訳ございません。サンプル画像のG列に空白セルがある場合(画像には、G列には空白行がありませんが)、空白行は削除したくないのですが、どのようにしたらよろしいか、ご教授頂けたらと思います。宜しくお願...(2016/09/27)

Excel(エクセル)
エクセル マクロ 追加
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub End If If Not Intersect(Target, Range("B1:C15")) Is Nothing And Target.Value = "" Then Exit Sub End If Dim c As Worksheet Dim flag As B...(2016/09/26)

Excel(エクセル)
文字変換マクロについて
数値を文字列に変換するマクロで、行数や列数が増えても対応できるようにしたいです。(並びは…数値 スペース 文字列)どなたか教えてください。よろしくお願いします。Sub 文字()Dim i As Long For i = 1 To Range("A1").End(xlDown).Row Cells(i, "...(2016/09/24)

オフィス系ソフト
Excelマクロでの画像の明るさ修正について
Excelのマクロについての質問です。pictureformat.brightnessで画像の明るさを調整しようとしたのですが、同じ明るさ(たとえば+20%)にしても、Excelの書式→修整で同じ明るさ調整をした時よりくすんだような色合いになります。具体的には黒い部分が灰色っぽくなります。...(2016/09/18)

Excel(エクセル)
マクロエラー
実行時エラー1004結合セルの一部を変更することができませんと表示されましたなぜでしょうか?以前まで使用できていたのですがSub 作成()Dim MySheetName As Variant MySheetName = InputBox("シート名を入力してください") If MySheetName = "&q...(2016/09/17)

Excel(エクセル)
エクセル マクロ修正
シート1?5まであります。別に情報シートを作成しています それぞれ同じ原本から作成しています全部のシートにA1?A10のセルに日付、B1?B10のセルに文字など入力がするところがあります入力はA1から順番に入れていきます例えば保存ボタンを作成しておく シート1のA...(2016/09/17)

Windows 7
マクロでの印刷設定について教えてください。
お世話になります。エクセルマクロでヘッダ-の値を各対応セル値を置くために下記のようにしてしております。 ActiveSheet.PageSetup.LeftHeader = Range("A5").Value これを 文字の大きさを 9 色を赤 文字を太字 に装飾したいのですが、どのような形にす...(2016/09/16)

Excel(エクセル)
線引きマクロ
宜しくお願いします。A列からE列まであり、E列に数字が記載されており、数字が例えば、6から5に下がった所に線で区切りたいのです。数字は900行ぐらいランダムに行が進むにつれ下がって行きます。宜しくお願いします。(2016/09/16)

Excel(エクセル)
エクセル マクロ 出力と移動
Private Sub CommandButton1_Click() Range("B8").Value = 1856 Range("B9").Value = "abc" Range("B11:D13").Value = "abc" End Sub(1)シート1にボタンを作成して出力できるようにしたのですがシート2に...(2016/09/12)

Excel(エクセル)
エクセル シート自動 マクロ
以前作っていたエクセルの自動シートですhttp://okwave.jp/qa/q9223527.html今回別のエクセルを作ることになり助けてほしいのですがシート1名簿A1に「=TODAY()」いれ日付表示 B列C列  D列   E列以降に非表示にして隠しておく            変更があるとき...(2016/09/09)

Excel(エクセル)
エクセル マクロ 修正
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$C$1" Then ActiveSheet.Visible = False Worksheets("月").Activate End If If Target.Address = "$C$2" Or Target.Address = "$C$3" Or Ta...(2016/09/08)

経済学
マクロ経済学、ミクロ経済学の区別
近代経済学を「マクロ経済学」と「ミクロ経済学」と区別し、各々の名称を考えたのは、ラグナル・フリッシュだそうですが、いつ頃から、区別したのでしょうか?(2016/09/07)

Excel(エクセル)
エクセル 特定の文字を検索して置き換えるマクロ
次のような連続作業をマクロでできますか。A列にある特定の文字を検索して、その行にあるB列セルの文字(不定)とそのB列の1行下にあるセルの文字(不定)を連結または置換させてB列に表示(それぞれ単独に使用)例A100に「○○○」の文字を見つけたら、B100にある「□□□...(2016/09/07)

Visual Basic
エクセル マクロ
If Target.Value = "" Then Exit Sub End Ifシートが空白のとき選択されないようにするように教えていただいたのですがこの分にB1:C11までの範囲という条件をさらにつけたい場合は(B1:C11)をどのようにいれたらいいのでしょうか?(2016/09/06)

Excel(エクセル)
エクセル マクロ 追加したいのですが・・
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Or Target.Address = "$A$3" Or Target.Address = "$A$5" _ Or Target.Address = "$A$6" Or Target.Address = "$A$8" Or Ta...(2016/09/06)

Excel(エクセル)
エクセル ボタン マクロ 修正
Sub 印刷()Dim a As Variant a = MsgBox("印刷しますか?", vbYesNo) If a = vbNo Then Exit SubWith Sheets("1") .Cells.FormatConditions.Delete .PageSetup.PrintArea = Range("A1:K73").Address .PrintOutEnd WithEnd Subとして使用して...(2016/09/05)

財務・会計・経理
エクセルマクロ文を 教えてください
お世話になります。下記マクロ文で各シ?トのV4セル或いはW4セル or X4セルの値が増減値と表示されている場合には、当該シ?トは当該セル列と前2列の幅を0にする目的で記載したのですが、ステップインでは全く処理を行っていない形となっております。 初心者のため...(2016/09/02)

Excel(エクセル)
エクセル マクロ エラー
Sub 保存()Dim MySheetName As Variant MySheetName = InputBox("シート名を入力してください") If MySheetName = "" Then Exit SubSheets("1").Copy After:=Sheets(Worksheets.Count) ActiveSheet.Name = MySheetName Sheets("...(2016/09/02)

Excel(エクセル)
エクセル マクロ
シートが目次、1?9まであり全部で13枚構成になってるエクセルのファイルがあります目次以外非表示でしています目次→1→4→7→10目次→2→5→8→11目次→3→6→9→12目次から次々へ飛ぶボタンを作成しました例えば 1→10まで行ったときシートの表示は...(2016/09/01)

フリーウェア
Excelマクロ
宜しくお願いします。マクロをつくったのですが、業務内容により、使うマクロは当たり前ですが、違います。それが、作っていくうちにゴミゴミして、どのマクロかはメモしてあるのですが。発見で時間がかかります。内容により分けてやることできるのでしょうか?宜しくお願...(2016/08/31)



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

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

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