- 締切済み
エクセルで困っています。
素人ですいません。 エクセルの余計な所をいじって印刷できなくなりました。 現在仕事で使っている表ですが 最初のシートに見積もり印刷ボタンがあり 印刷ボタンを押すと、別のファイルシートのいき 入力したものを印刷するように、マクロで作ってあるみたいです。 余計な所を押したのか、使えなくなりました。 ちなみに、コードが出るところで、色が変わっている箇所があり それが変わっているのかよくわかりません。 Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _ :=True こんな感じででています。 何が違うかわからないので、どうか教えていただけないでしょうか。 ちなみに、この表を作った方は辞めてしまって 他に詳しいものがいないので困っています。 どうかよろしくお願いします。
- sansiro39
- お礼率33% (2/6)
- Excel（エクセル）
- 回答数2
- ありがとう数4
- みんなの回答 （2）
- 専門家の回答
みんなの回答
- ushi2015
- ベストアンサー率51% (241/468)
使えないと言うのは、具体的にはどうなるんですか？今の感じでは何かエラーが出てるはずですが、何て言われてるのかが知りたいです。と言うか、それがわかんないと回答するのに困ります。 マクロ自体は変わってない（変えてない）けど、ワークシート上にある消してはいけないものを消してしまったせいだとは思いますが、現段階ではそれが何なのかは特定できないです。 過去に使った、今回のと比較できるファイルが残っていれば、確認できるんですけどね。
お礼
回答いただきありがとうございます。 他の人のを確認したら消してあるものがみつかり コピーし、また使えるようになりました。 ありがとうございます。
関連するQ&A
- エクセルVBAでのファイル転送
任意のアドレスに添付ファイルを付けて送信完了までのコードを教えてほしいです。 Workbooks("***.xls").Sheets("***").Activate Range("D8").Select /上記セルにメールアドレスを設定してます。/ Selection.Hyperlinks(1).Follow _ NewWindow:=False, AddHistory:=True 送り先は設定されるけど添付ファイルの付け方が判らない。 Workbooks("***.xls").Activate Application.Dialogs(xlDialogSendMail).Show 添付ファイルは付けれるけど送り先の設定が判らない。
- ベストアンサー
- Visual Basic
- VBA 実行時エラー1004 range・・・
【VBA 実行時エラー1004 rangeメソッドは失敗しました。globalオブジェクト】 Excel Book内のあるシートで、 【数量の入っていない行を非表示にする】 【それを解除して全表示にする】 という二つのマクロを使用しています。 このシートのシート名を変更したところ、上記のエラーが出るようになってしまいました。 シート名をもとに戻せば出なくなります。 当方、VBAには詳しくないので、シート名を変えてもこのエラーが出なくなる方法を考え付きません。 エラーからデバッグを表示すると下記記述の窓が開きました。 ＝＝＝ここから＝＝＝ Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) Application.Goto Excel.Range(Target.SubAddress), True End Sub ＝＝＝ここまで＝＝＝ 『Application.Goto Excel.Range(Target.SubAddress), True』の部分が黄色になっていて、その中の『Target.SubAddress』にカーソルを合わせると、 『Target.SubAddress=”（変更前のシート名）”』がポップアップします。 どこかでシート名の変更をすればいいのだろう、という事は察するのですが、それをどうやったらいいのかがわかりません。 使っているマクロの内容は下記です。 ＝＝＝＝＝ 【数量の入っていない行を非表示にするマクロ】 Sub まとめ() ' ' まとめ Macro ActiveSheet.Range("$A$4:$T$2000").AutoFilter Field:=9, Criteria1:="<>" Range("B2").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True End Sub ＝＝＝＝＝ 【それを解除して全表示にするマクロ】 Sub 解除() ' ' 解除 Macro ActiveSheet.Range("$A$4:$T$2000").AutoFilter Field:=9 Range("B2").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True End Sub ＝＝＝＝＝ どこをどうやったらいいのでしょうか。 教えていただけませんでしょうか。
- ベストアンサー
- オフィス系ソフト
- EXCELマクロでネットから資料をダウンロードしたい
EXCELマクロを使って、Web上にある資料（ZIPファイル。毎日１００個から３００個）をダウンロードしたいと思っています。 EXCELの特定のセルに、縦にハイパーリンクを続けてコピーするところまでは手で行おうと思っています。 その後、 Range(\"F1\").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True で、ダウンロードすることまではできるのですが、 「保存しますか？」のダイヤログと、実際のセーブする時のダイヤログを止められません。 エラーでない限り、自動的に「はい」を選択し、次に進むようにさせたいのですが。 Application.DisplayAlerts = False でダイヤログを出さない。。。ということもできませんでした。 似たような操作をしている例はないか検索したのですが、見つかりませんでした。 素人な質問ですみません。 宜しくお願いいたします。
- ベストアンサー
- Visual Basic
- ＶＢＡにて：ＩＥを閉じるにはどうすれば良いですか？
セルＢ１にハイパーリンクが設定してあると、以下のコードにて、ＩＥを起動することが出来ます。 ＩＥが起動されたときに、リンク切れがあると”お探しのページはありません”と出ますが、この時にＩＥを閉じるようにしたいのです。 どのようにすれば実現できるか教えてください。 Range("B1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
- 締切済み
- オフィス系ソフト
- excel マクロコードを教えていただきたいです
マクロ初心者のため、単純な動作しか分からず困っています。 以下の表とマクロコードを確認していただき、教えていただきたいです。 ファイル【Book1】の表 A B C D E F G 1 data1 ボタン1 2 data2 ボタン2 3 data3 ボタン3 4 data4 ボタン4 5 data5 ボタン5 6 data6 ボタン6 ・ ・ ・ ・ ・ ・ ※Gの列にはハイパーリンクが並んでいます。 ※ハイパーリンクにて各ファイル（data1・data2・data3・・・・）が開きます。 ※各行の右端にはフォームのボタンを設置しています。 ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ Sub Macro1() Range("G1").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Windows("Book1.xls").Activate Range("A1:F1").Select Selection.Copy Windows("data1.xls").Activate ActiveSheet.Paste End Sub ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞ 今の動作としては、ボタン1を押す事でファイル”Book1”のG1のハイパーリンク（data1.xls）が開き、 ”Book1”のA1からF1をコピーして、data1のsheetに貼り付けています。 これで、当初は5行ぐらいの表でしたので、毎回、上記の行番号を変更したコードを入力し、各ボタンに 登録していました。ただ今後、この表の行が多くなるとの事で、毎回、この作業を行うわけにもいかず、 何か良い案（マクロ）があれば教えていただきたいです。 やりたい事としては、マクロの実行にて、ハイパーリンクが立ち上がりその行の内容を、その立ち上がった ファイルのsheet2のセルA1:F1に貼り付けたいと思っています。 例としては、立ち上げたい行(セル)をクリックしておいて、ボタンを押すと上記のマクロが開始するなど・・・。 出来もしないのに生意気で申し訳ありませんが、教えていただけると助かります。よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- マクロでExcelパスワードを入力する方法
教えて頂きたいのですが、 今Excelのフォームボタンにマクロを使って、 別のExcelファイルを開けるように設定していますが、 そのファイルにパスワードを掛けており、フォームボタンを押すと、 まず、そのパスワード入力のダイアログが出ます。 それを、フォームボタンを押したときのマクロに組み込み、 パスワード入力のダイアログを出さずに開く事って可能でしょうか？ 現在のフォームボタンに登録しているマクロの記述は下記の通りです。 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー Sub Macro11() ' ' Macro11 Macro ' マクロ記録日 : 2008/9/25 ユーザー名 : ************ ' ' Range("I29").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True End Sub ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー I29にハイパーリンクにてアドレスを入力しているだけのものです。 宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- マクロの実行について 質問です。
マクロ勉強中です！ 何時間も調べておりますが、 どうしても分からないので お教え下さい（；＿；） 別シートの都道府県が混在するデータの中から、 3列の付属語が『下関』のものだけをコピーして、シート1に貼り付けるマクロを マクロの記録で 『下関』 というタイトル？にして作りました。（下記） これを実行するときに、マクロ名からではなく、 下の表の R3C8セルの、『下関』 というハイパーリンクをクリックで 実行される・・・・ そんなふうにするには、どうしたらいいのでしょうか？ ご回答を おまちしております。よろしくお願いします！ Sub 下関() ' ' 下関 Macro ' ' Keyboard Shortcut: Ctrl+a ' ActiveWindow.SmallScroll Down:=-9 Range("B3").Select ActiveWindow.SmallScroll Down:=117 Range("B3:F137").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp ActiveWindow.SmallScroll Down:=-9 Range("H3").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Selection.Copy Sheets("Sheet1").Select Range("B3").Select ActiveSheet.Paste Range("C3").Select End Sub
- ベストアンサー
- Windows Vista
- エクセルで、出来そうなのですが、教えてください。
エクセルで、出来そうなのですが、教えてください。 初心者で、初めて質問します。 私の会社のパートさんや、アルバイトさんの勤怠表と給与明細を作ってるのですが、 下のような スタッフ一覧を作りそのデーダーをもとに各個人名のシートの各項目セルに 飛ぶように作ってみましたが、 知りたいのは A列の出勤の上がってる方だけ、１つの操作で、印刷したいのです。 A 列の出勤数は、各個人明細所の出勤数に連動してます。 E 列の名前と個人明細書のSheetにリンクさせてます。 田中太郎さんは、sheet１、田中花子さんは、sheet２に、なっているので、 A列が、0より多い時は、5番目の氏名のリンクを印刷する。 等 VLOOKUPやIFでやれないかと 考えましたが、 答えが出ません、マクロも自動登録しかできないので、困ってます。 スミマセンとても分かりずらいのですが・・・・A列出勤数 B列週払い（チェツクリスト） c列個人シートのデーターを読ますためのNO、D列 会社の個人コード、 E列 名字（シートへリンクさせてます。） F 名前・・・・G.H.・・・と他のデータがあります。 行は、 ６０行位です。 A.............B.....,,...,,..C............D...................E.............F...........G １..........出勤数.......週払..........No..............コード............氏名..............勤務地 ２...........20.............................1 ..............35982.......... 田中 太郎......... 日本会社 ３...........１.............................2 ...............358055..........田中 花子.........日本会社 ４............2.............................5...............39488........林 太郎.......... 日本会社..... リンク先を印刷するマクロは、こんな感じでよいのでしょうか？ あと どのようにしてA列を検索してE列のリンク先を、印刷させるのかわかりません。 Range("E3").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True ExecuteExcel4Macro "PRINT(1,1,2,,,TRUE,,FALSE)" End Sub 印刷だけクリアー出来れば、出来上がりにしようと思っていますが、 いろいろ ネットや本で探しても 基本の検索や質問の仕方が 分からないので お手上げ 状態です。 力を貸してください。 お願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル マクロ picture
教えてもらいながら以下のような画像貼り付けマクロを組んだのですが，以下の点に引っかかり前進することができません． 教えて頂きたいと思い投稿しました． 躓いている点 シート内でボタンを利用して貼り付け及び削除をしているのですが，エクセルシート内でコピペするたびに「Selection.Name」と貼り付け先を修正しています． →これをコピペしても修正をしなくてもよいマクロはないでしょうか？ 自作作成マクロ Sub 写真貼付1_Click() Dim AA As String, BB As String, CC As String 10 AA = InputBox("参照先を指定して下さい。例:D:\Photo001.jpg", "場所指定", AA) If (AA = "") Then AA = Application.GetOpenFilename(Title:="写真ファイルの場所はどこですか？") GoTo 10 End If ActiveSheet.Unprotect Range("m29").Select ActiveSheet.Pictures.Insert(AA).Select Selection.Name = "写真1" Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 310 Selection.ShapeRange.Width = 310# Selection.ShapeRange.IncrementLeft 1 Selection.ShapeRange.IncrementTop 1 ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True End Sub -------------------------------------------------- Sub 写真削除1_Click() ActiveSheet.Shapes("写真1").Select Selection.Delete ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True End Sub ところどころ端折ってますが，以上のようなマクロです． よろしくお願いします．
- ベストアンサー
- オフィス系ソフト
- VBAを使い、Web上からファイルをダウンロードしたいのですが・・・
はじめまして。 今、日証金から日々の融資・貸株残高のデータ(CSV)を自動的に ダウンロードしてExcelに取り込むというマクロを作ろうとして いるのですが、うまくいきません。 具体的には、 range("A1").value = "http://www.jsf.co.jp/de/stock/dlcsv.php?target=balance&date=" & format(now,"YYYY-MM-DD") range("A1").select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True しかし、これだと「ファイルを保存」のWindowがあがってしまうので 処理が途中で止まります。 VBAで、あらかじめ指定したディレクトリに、指定したＵＲＬからファイルを自動的にダウンロードする には、どのようにすればよいのでしょうか？
- ベストアンサー
- Visual Basic
お礼
ありがとうございます。 他の人のを見たら、ハイパーリンクの設定を削除してたみたいで コピーし、また使用できるようになりました。 質問の仕方がわかりにくくすいません。