jcctaira の回答履歴

いつもお世話になっております。 複数のブックの更新操作についてわからないことがあります。 複数のブックには項目別のWEBクエリが設定されており、 更新の際にはその都度ブックを開いた上更新しています。 BOOKは４つあり、 BOOK１のコマンドボタンからBOOK2～BOOK４までの更新を実行したいと思っています。 下記のように作ってみたのですが、 BOOK２を更新して閉じた後、BOOK3への処理はスルーされています。 エラーが出るわけではないのですが・・・ 素人のため、説明も要所を得ていませんが、 どうかお力を貸していただけないでしょうか？ 下記　BOOK1のマクロ Private Sub CommandButton9_Click() 'ブック２を開いてWEBクエリ更新 Workbooks.Open Filename:="D:\TestBook\test.xlsm" WBN = ActiveWorkbook.Name Application.Run "'" & WBN & "'!Module3.更新して閉じる" 'ブック３を開いてWEBクエリ更新 Workbooks.Open Filename:="D:\TestBook\test2.xlsm" WBN = ActiveWorkbook.Name Application.Run "'" & WBN & "'!Module3.更新して閉じる" End Sub BOOK2～BOOK４ Module3 Sub a1() ' エラーメッセージを表示する（On Errorステートメント） On Error GoTo Err '-------------------------------------------------------- 'webクエリ更新 Range("B6").Select Selection.QueryTable.Refresh BackgroundQuery:=False ’中略 'エラーならブックを上書き保存して閉じます Err: Sheets("sheet1").Select Range("C2").Select Selection.ClearContents Range("P3").Select If ThisWorkbook.Saved = False Then ThisWorkbook.Save End If ActiveWorkbook.Close End Sub 宜しくお願いいたします。

エクセルについての質問です。A1,B1,C1,・・・・の中に、○、△、空白が入力されているとします。その時、A1,D1G1,・・・と4列おきに○の数と△の数を別々に求めたいのですが、どのようにしたらよいでしょうか。

いつもお世話になっております。 複数のブックの更新操作についてわからないことがあります。 複数のブックには項目別のWEBクエリが設定されており、 更新の際にはその都度ブックを開いた上更新しています。 BOOKは４つあり、 BOOK１のコマンドボタンからBOOK2～BOOK４までの更新を実行したいと思っています。 下記のように作ってみたのですが、 BOOK２を更新して閉じた後、BOOK3への処理はスルーされています。 エラーが出るわけではないのですが・・・ 素人のため、説明も要所を得ていませんが、 どうかお力を貸していただけないでしょうか？ 下記　BOOK1のマクロ Private Sub CommandButton9_Click() 'ブック２を開いてWEBクエリ更新 Workbooks.Open Filename:="D:\TestBook\test.xlsm" WBN = ActiveWorkbook.Name Application.Run "'" & WBN & "'!Module3.更新して閉じる" 'ブック３を開いてWEBクエリ更新 Workbooks.Open Filename:="D:\TestBook\test2.xlsm" WBN = ActiveWorkbook.Name Application.Run "'" & WBN & "'!Module3.更新して閉じる" End Sub BOOK2～BOOK４ Module3 Sub a1() ' エラーメッセージを表示する（On Errorステートメント） On Error GoTo Err '-------------------------------------------------------- 'webクエリ更新 Range("B6").Select Selection.QueryTable.Refresh BackgroundQuery:=False ’中略 'エラーならブックを上書き保存して閉じます Err: Sheets("sheet1").Select Range("C2").Select Selection.ClearContents Range("P3").Select If ThisWorkbook.Saved = False Then ThisWorkbook.Save End If ActiveWorkbook.Close End Sub 宜しくお願いいたします。

MSのエクセルで、セルに指定された文字数を入力したらEnterや矢印キーを押さなくても次のセルに移動させる方法はないでしょうか？ 例えばA1セルに入力出来る文字数は３と指定しておきます。A1セルに3文字入力したら、次のセルA2に移動するようにする方法です。入力規則で文字列指定まではできますが、次にセルに移動するにはEnterなどが必要です。これを省略する方法です。 バージョンは２００３ですが、２００７，２０１０でできるのでしたらそのバージョンでも構いません。

とても、簡単と思われる質問のため、そんなことを質問するなと言われそうなのですが、 どうしても自分では出来なかったため、質問させていただきました。 大変恐縮ですが、よろしくお願いします。 質問内容：　excelのファイルを開いたときに、自動的にA1セルを選択するようにしたい。 自分でのtry内容 private　sub　workbook_open() 　range("A1")select end　sub というような、コードでやってみたところ、どうもうまくいきません。

"東京都カツシカク１１R3L1R12" 等の文字列のデータが数千件あります。 ※漢字-カナ-数字の間にスペースは空いておりません。さらに数字は全角半角混在で個数や桁数もバラバラです。 これを 「東京都」と「カツシカク」と「１１R3L1R12」にという風に 「漢字」「カナ」「数字」に分けたいです。 さらに数件は"東京都カツシカク（二）１２L3R8"と（　）記号が入っているものもあります。 うまく分ける方法に関してどうかご助言をいただけないでしょうか？ どうぞよろしくお願いいたします。

早速ですが名前の決まっているそれぞれのシートがあります実際にはA,B,C、D７月、E６月と今月と先月の数字が入っています。 それぞれのシートはいつもあるとは限らない為エラー処理をしましたが、なぜかうまくいきません。 下記の例ではsheet7、sheet5、sheet3。とありそれぞれの倍率に合わせた後に最後にsheet７のシートに戻るようにしましたがe2:のラインで止まってしまいます。 練習ではなく実際に必要なマクロなので、助言して頂ければ幸いです。 よろしくお願いします。 Sub bairitu() Worksheets("sheet" & Month(now())).Select '7 ActiveWindow.Zoom = 60 On Error GoTo e1 Worksheets("sheet" & Month(now()) - 1).Select '6 ActiveWindow.Zoom = 70 e1: On Error GoTo e2 Worksheets("sheet" & Month(now()) - 2).Select '５ ActiveWindow.Zoom = 80 e2: On Error GoTo e3 Worksheets("sheet" & Month(now()) - 3).Select '４ ActiveWindow.Zoom = 50 e3: Worksheets("sheet" & Month(now())).Select End Sub

ＥＸＣＥＬ　ＶＢＡの初心者です。回答、指導をよろしくお願いします。ＥＸＣＥＬ2003を使用しています。シートＡとＢを連続で印刷するＶＢＡに白黒で印刷するＶＢＡを加えたいのですが記述方法がわかりませんのでご指導お願いします。シートの連続印刷ＶＢＡは下記ですが、これでよろしいでしょうか。どなたかご指導よろしくお願いします。 Sub purint複数シート印刷() Sheets(Array("A", "B")).PrintOut End Sub

Excel2010を使っています たとえば　B5：K12の範囲内にA～Hのアルファベットがランダムに入っています このときたとえば　”C”と”E”または”E”と”C”が上下になっている組み合わせをカウントしたいのです たぶんマクロを使うと可能なのでしょうが　マクロを使わずにカウントするような工夫アイデアは何かないものでしょうか よろしくお願いします

Excel2010を使っています たとえば　B5：K12の範囲内にA～Hのアルファベットがランダムに入っています このときたとえば　”C”と”E”または”E”と”C”が上下になっている組み合わせをカウントしたいのです たぶんマクロを使うと可能なのでしょうが　マクロを使わずにカウントするような工夫アイデアは何かないものでしょうか よろしくお願いします

VBAでIEを制御しリンク（アンカー）<a href="***">を新しいタブで開くようにしたいのですが可能でしょうか？ 仮にグーグルのトップページ(http://www.google.co.jp/)の『検索オプション』(http://www.google.co.jp/advanced_search?hl=ja)を新しいタブで開くとします 実際に開きたいリンクのURLは固定ではないためURLの指定では開けませんが、飛びたいリンクの文言（『検索オプション』）は固定です リンクに飛ぶ前に飛ぶ先のURLを取得する仕方か、Shift+Ctrl+クリックのようにリンクを新しいタブで開く方法を教えてください 一度普通にリンクに飛んでからURLを取得し、戻ってから新しいタブで開くぐらいしかできないのでしょうか？ Sub 新しいタブで開く() Dim objIE As Object Dim objShell Dim URL As String Set objShell = CreateObject("Shell.Application") For n = objShell.Windows.Count To 1 Step -1 Set objIE = objShell.Windows(n - 1) If Right(UCase(objIE.FullName), 12) = "IEXPLORE.EXE" Then objIE.Navigate "http://www.google.co.jp/" Exit For End If Next Set objShell = Nothing objIE.Visible = True Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop For Each Obj In objIE.Document.getElementsByTagName("a") If Obj.innerText = "検索オプション" Then Obj.Click Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop URL = objIE.Document.URL objIE.GoBack Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Navigate URL, CLng(&H800) Exit For End If Next End Sub よろしくお願いいたします

こんにちはいつもお世話になっています。 エクセル2010でパーセンテージを出した場合に横に矢印のアイコンを出したいのですが 上手く設定できません。 0.00％の場合には黄色の→ 0.00％以上の場合には緑の↑ 0.00％以下の場合には赤の↓ と出したいのですがjpg画像を見て頂きますとわかるのですが上手く矢印が表記出来ていません。 今、自分がしているのは間違ったやり方だと思うのですが 自分のやり方はまず矢印を付けたいセルを選択して 条件付き書式からルールーのクリア、選択したルールーのクリアを設定しています。 条件書式からアイコンセットで矢印を選択すると矢印がでます。 ここの辺りで迷ってしまいわからないのですがルールーの管理で設定するのか 新しい書式ルールーで設定するのか迷っています。 どこにどの数字を設定するわからずに矢印はでますがパーセンテージに対して適合してない表記になってます。 全く違うことをして可能性もあります。 おそらく数字の設定が必要だと思いますがお分かりになる方教えて頂けませんでしょうか。 どうかご指導の程、よろしくお願いします。

一つのセルに含まれる長い文字列から、連続する8桁の番号のみを取出し、1行ずつのデータにしていく方法を教えてください。 具体的には、以下のようなデータがあります。 A2セル：　1-2業務規則（マーケティング部）（40404040）'2-2業務規則（経理部）（30303030） 上記のセルから40404040と30303030の番号のみを取出し、行を追加した上で B2セルに40404040、B3セルに30303030と書き出したいと思っています。 エクセルの関数を使って文字列から数値のみを拾う方法を試してみましたが、 ”1-2”や”2-2”といった不要な数値も拾ってしまいました。 ほしい数値だけを取り出す方法があれば知りたいです。 良い方法をご存じの方、ご教示お願い致します。

VBAの初心者です。 棒グラフで1つの系列の色を自動で変えたいのですが、うまくできません。 エクセルファイルは品目ごとにシートが分かれていてすべておなじようにグラフがあります。 図のように、進行率順に並び替えるので、シートごとに店舗「Ｅ」は順番がかわります。 例としてシート「りんご」のグラフの店舗「Ｅ」のみを色を変えていく場合はどのようにしたらできるでしょうか？ マクロの記録でやってみてもうまくいきません。 ご回答、よろしくおねがいします。

Word2007です。 配布された用紙にWordで文字列を入力するため、 １．用紙ををスキャン ２．スキャンした画像をサイズ100%にしてヘッダーに挿入 ３．記入位置にテキストボックスを配置して文字を入力 ４．ヘッダーに入力した画像を削除して印刷 しています。 テキストボックスの位置を調整するとき画像を挿入し直し て位置を調整しています。 ヘッダーに入れた画像を残したまま、テキストボックスのみ印刷したいのですが できますか

添付画像でG列をE値＋F値にしたいと思っています。 各行においては、例えばG2は「=E2+F2」とすればよいのは知っているのですが、 1行目を除くすべての行（2行目～）でまとめてG値を「＝E+F」にしたいと思っています。 一度で処理するよい方法はないでしょうか？ よろしくお願い致します。

マクロ　初心者です。 ワークシート指定して、ダブルクリック等を使っての画像選択、貼り付け＆セルの大きさに合わせる）ことはできるのですが、 ダブルクリック等ではなく、手動でマクロを実行して指定のセル（B37）に貼り付けることはできるでしょうか？（セルの大きさに画像が変換するのは生かしたまま） Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)を sub マクロ名（）にして、Moduleに貼り付けて実行したら myAD2 = Target.Address 上記場所でエラーになってしまいます。 どのように変更したら、できるでしょうか？または、できる手段はないのでしょうか？ ご教授お願いします。 使用ベースマクロは以下です。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True '===============画像選択 myF = Application.GetOpenFilename _ ("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False) If myF = False Then MsgBox "画像を選択してください(終了)" Exit Sub End If '===============画像の掃除 For Each mySP In ActiveSheet.Shapes myAD1 = mySP.TopLeftCell.MergeArea.Address myAD2 = Target.Address If myAD1 = myAD2 Then mySP.Delete Next '===============画像の貼り付け Set mySP = ActiveSheet.Pictures.Insert(myF) '===============タテヨコの縮尺を保持 myHH = Target.Height / mySP.Height myWW = Target.Width / mySP.Width If myHH > myWW Then mySP.Height = mySP.Height * myWW mySP.Width = Target.Width Else mySP.Height = Target.Height mySP.Width = mySP.Width * myHH End If '===============中央へ調整 myHH2 = (Target.Height / 2) - (mySP.Height / 2) myWW2 = (Target.Width / 2) - (mySP.Width / 2) mySP.Top = Target.Top + myHH2 mySP.Left = Target.Left + myWW2 Set mySP = Nothing End Sub

現在、私は「VBScript」を学習中です。 練習に、VBScriptで任意のフォルダにあるすべてのWordのファイルをテキストファイルに保存する簡単なプログラムを作りました。 それは作れたのですが、SaveAsでテキスト保存するときに、 w.SaveAs "xyz.txt", 2 というように、「2」を指定することはいろいろなサイトでわかったものの、それでは他の場合の「一覧」というのがどうしても見つかりません。 Microsoftのサイトでも、「VBA」の場合、「olDoc, olTXT…」などと載っていますが、「VBScript」での使用例がその下に載っているものの、「VBA」の「olDoc」がVBScriptではどの数字を指定するのかなど、一切記載がありません。 どなたか、「VBScript」で「SaveAs」利用時の引数の一覧が掲載されているサイトをご存じの方がおられましたら、アドレスをお教えください。 よろしくお願い致します。

初心者向けのＶＢＡの本を読んでいるのですが、Get_の説明がなく、あるモジュールに書いてあった次の２つがわかりませんでした。 (1)「税込価格=Get_税込価格（税抜き価格）」とsubプロシージャ中に書いてあるのですが、 どういう意味でしょうか？ (2) Function Get_税込価格（a As Integer)As Integer Dim 税率　As Double 税率=0.05 Get_税込価格=a*(1+税率） a=100 End Function と(1)のSubプロシージャの下に書いてあったのですが、 「Get_税込価格=a*(1+税率）」とはどういう意味でしょうか？ よろしくお願いいたします。

下記マクロは蛍光ペンの箇所を括弧と空欄で書き換え、穴あき問題にするマクロです。 これを、文字数の分だけ、空欄をつくるにはどうすればいいのか？ また、蛍光ペンではなく、赤文字を括弧と空欄で書き換えるにはどうすればいいのか、 教えて頂けたら幸いです。 Sub Macro7() Selection.HomeKey wdStory '文章の最初をカーソル移動 p1: Selection.Find.ClearFormatting Selection.Find.Highlight = True '蛍光ペンを問題にする With Selection.Find .Text = "" '文字は問題にしない .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = True End With Selection.Find.Execute '検索実行 If Selection = m Then Exit Sub '同じところを繰り返し見つけ出したら終わる x = "（　　　　　　　　）" 'カッコで囲む語句を作成（蛍光ペンなし） m = x '終わり判定のため保存 Selection.Delete '一旦消して Selection.InsertAfter x 'カッコつきを挿入。いわば置換 GoTo p1 End Sub