Wendy02 の回答履歴

Excelで質問です。ListBoxの項目を別bookから読込むには VBA初心者です。 book-AのListBox1からbook-Bのセルの項目を読み込むことは可能なのでしょうか。 Excel2003です。 book-AのUserForm1に下記のコードを実行しても構文エラーになってしまいます。 book-Aとbook-Bは同じフォルダに入っています。出来ればbook-Bを閉じた状態で実行できれば良いのですが Private Sub UserForm_Initialize() ListBox1.RowSource =[book-B.xls]Sheet1!A1:A10 End Sub

Ｅｘｃｅｌの関数について 3,150,000を左２桁のみ表示させ、且、四捨五入させ、３２と表示させたいのですが、どうすれば良いでしょうか？

or　では大丈夫なのにandではダメな理由は？ セルA1に2007/10/3を入れ、 2007年ならピンク 2008年なら黄緑 とやろうとして、２つのマクロを作りました。 Macro1では正常に動作するのですが Macro２を実行すると2007/10/3なのに、黄緑になってしまいます。 200８/10/3でMacro２を実行すると何も動きません。 Macro1とMacro２の違いは「or」と「and」の違いだけです。 Sub Macro1() If 39081 >= CLng(Range("a1")) Or CLng(Range("a1")) <= 39447 Then Range("a1").Interior.ColorIndex = 38 ElseIf 39448 >= CLng(Range("a1")) Or CLng(Range("a1")) <= 39813 Then Range("a1").Interior.ColorIndex = 4 End If End Sub Sub Macro2() If 39081 >= CLng(Range("a1")) And CLng(Range("a1")) <= 39447 Then Range("a1").Interior.ColorIndex = 38 ElseIf 39448 >= CLng(Range("a1")) And CLng(Range("a1")) <= 39813 Then Range("a1").Interior.ColorIndex = 4 End If End Sub 「and」なら２００７/1/1より大きい　なおかつ　2007/12/31より小さい と思い、最初はMacro2を作りましたが、うまくいかない為Macro１を作りました。 でも 「or」だと、２００７/1/1より大きい　もしくは　2007/12/31より小さい ですよね？ 2008/1/1でも「２００７/1/1より大きい　もしくは　」にヒットしてしまうため、 andにしたのですが、なぜandではうまくいかないのでしょうか？ よろしくお願いします。

幸◯の科学について 宗教団体ですが、ここの創始者の本を読むと、とてもよいことを書いていると思いました。ですが、宗教というと悪いイメージを多くの人はもつのかもしれません。こちらの団体で何か悪いうわさなどを聞いたことはありますか？信者からお金を巻き上げるような宗教団体もあるようですが、こちらはいかがでしょう？

EXCELをVBにインポートしたい よろしくお願いします。 ・VB2008でプログラムを作ろうと思っています。 ・Excelで作った授業カリキュラムがあります。 登録日が違う数名の授業日数を知るプログラムを作りたいです。 Aさん 9/11～10/10 Bさん 9/14～10/13 Cさん 9/15～10/14 Dさん 9/17～10/16 の4種類の登録があります。 Excel(2007)をVBにインポートして、それぞれの授業日数を数えたいです。 Excelでそのまま数えれば簡単なのですが。。。。 インポートの方法と数え方(countaのような)について、 アドバイスいただけませんでしょうか。

Ｍｉｃｒｏｓｏｆ　Ｏｆｆｉｃｅ使用許諾契約書 Ｅｘｃｅｌ・Ｗｏｒｄを開くと毎回《Ｍｉｃｒｏｓｏｆ　Ｏｆｆｉｃｅ使用許諾契約書》が出てきて同意をしないと使用が出来ません、WindowsＸＰから７に変えました。ＸＰの時はこんなの出なかったのに 出なくする方法解る方いらっしゃいませんか??

Wordのアドインとマクロ実行について Word2003を使用しています。 アドイン用のテンプレートファイルを作成し、アドインの追加まではできました。 アドインで記述したマクロを実行させたいのですが、記述方法がわかりませんでした。 Excelですと「ファイル名!関数名」で呼べるようですが、 Wordの場合、どのように記述すればアドインのマクロ処理を呼ぶことができるのでしょうか？ （例.Word文書にボタンを追加してボタンがクリックされたら、アドインのマクロ処理が実行される等 処理をコードで記述したい） ご教授よろしくお願いたします。

宗教の力。 昔からの疑問を質問させて下さい。 病は気から 願えば叶う この様な言葉があります。 病は気からという言葉、これは昔の人達が肉体は精神に依存していて、精神が病むと肉体にも支障をきたすという経験や云われがあったから、言われ続け残った言葉だと思います。 私にも経験らしきモノがあります。 ですので、この言葉は理解できます。 しかし、願えば叶う や 信じれば救われる などは、理解に苦しみます。 己ではない外界をただ 信じるや願う と言う行為で変えられるとは思えません。 私は無宗教（なんの活動もしてない ただ、お葬式などは仏教で行います）で、多分一般的な日本人の宗教観しか持ってません。実際、私の葬式は行われなくても良いくらいです。結婚式もどんな方法で行われても良いのです。要は、その様な事に無関心なのです。 勿論、過去の偉大な方々の多くは何らかの宗教に入信してたと言う事も知っています。神に近づく為に科学を学んだ マイケル ファラデーなど。 しかし、私はどうしても信じられません。 熱心な方々に、『一回一緒に来な。すぐに、良さがわかるから』なんて言われましたが、 誰が行くかボケと行きませんでした。 敬虔な信者になれば、その様な事（願う事で世間が変わる）も実感出来ますか？ また、未だに世界中で当たり前の様に宗教活動が行われています。 文明がある限り、宗教は無くならないでしょうか？

Wordのアドインとマクロ実行について Word2003を使用しています。 アドイン用のテンプレートファイルを作成し、アドインの追加まではできました。 アドインで記述したマクロを実行させたいのですが、記述方法がわかりませんでした。 Excelですと「ファイル名!関数名」で呼べるようですが、 Wordの場合、どのように記述すればアドインのマクロ処理を呼ぶことができるのでしょうか？ （例.Word文書にボタンを追加してボタンがクリックされたら、アドインのマクロ処理が実行される等 処理をコードで記述したい） ご教授よろしくお願いたします。

Excel 任意のセルを指定する方法 こんにちは Excel2003でセルの上を「---」で覆うマクロを作成しました。(以下参照） でもこれはセル「K2」に作成されます。 任意の作成したいセルを「---」で覆うようにするのには どのように改造すればよいでしょうか？ おわかりの方お教えください。 ' 透明なセルを一つ作るマクロ ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 672.75, 13.5, _ 81#, 13.5).Select Selection.Characters.Text = "---" With Selection.Characters(Start:=1, Length:=3).Font .Name = "ＭＳ Ｐゴシック" .FontStyle = "標準" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With Selection.HorizontalAlignment = xlCenter Selection.ShapeRange.Fill.Visible = msoFalse 'Selection.ShapeRange.Fill.Solid 'Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Visible = msoFalse Range("K2").Select End Sub

あるサイト（https://search.npb.go.jp/kanpou/）の認証画面に自動的にID/PASSを入力して、自動的にログインするようなプログラムを作りたいのですが、ID/PASSの入力は問題無く行えるものの、ログインの際にエラー（予期しない操作により、処理中にエラーが発生しました。再度ログインを行ってください。）となります。何が悪いのでしょうか？ 【ログイン部分のプログラム】 ieTarget = CreateObject("InternetExplorer.Application") ieTarget.Visible = TrueValue = KANPOU_ID .document.Forms(0).elements("password").Value = KANPOU_PASS .document.forms(0).elements.submit() ieTarget.navigate("https://search.npb.go.jp/kanpou/") Do While (ieTarget.busy) Loop Do While (ieTarget.document.ReadyState <> "complete") Loop With ieTarget .document.Forms(0).elements("uji.model.4.value_userId").Value =KANPOU_ID .document.Forms(0).elements("password").Value = KANPOU_PASS .document.forms(0).elements.submit() End With

エクセル２００３です。複数のBookの合計を出す方法を教えて下さい。 「２５枚のBook」にある・「Ｄ３０」の数字の合計を出す方法を教えて下さい。

マクロの修正点について Excel2003で、下記の作業をマクロで作りました。 　↓↓↓↓↓↓↓↓↓↓ 「あ行」～「わ行」までの全てのシートのA列を昇順に並び替えて、 「あ行」～「わ行」までの全てのシートを作業グループにする。 マクロを実行しますと下記のエラーが出ます。 実行時エラー '1004': この操作には、同じサイズの結合セルが必要です。 エラーの思い当たる節は、１行目に結合セルがありますのでそれが原因と思われます。 ２行目は項目名があります。 ３行目から、数字の連番が振られてますので、３行目以降を昇順にしたいと考えています。 試しに、１行目の結合セルを解除してからマクロ実行してみたら エラーは出なかったのですが、表はメチャクチャになりますし、作業グループにもなりません。 マクロの内容を書き出したかったのですが、 文字数制限によりオーバーしますので、ファイルバンク（オンラインストレージ）に、 テキストファイルでアップロードしました。 　↓↓↓↓↓↓↓↓↓↓↓↓↓ http://www.filebank.co.jp/filelink/fa491db9e4d6bfca44fad4fea1d0cf38 マクロのどこを修正したら宜しいでしょうか？ 宜しくお願い致します。

ユーザーフォームのコンボボックスでINDIRECT関数を使うにはどのようにすればいいでしょうか？ Private Sub UserForm_Initialize() Me.ComboBox1.RowSource = "sheet1!B1:C1" ComboBox2 = "=INDIRECT(?)" End Sub ComboBox1で種類のリストが表示され、選んだ項目により ComboBox2のリストが表示されるようにしたいのですが うまくいきません。 　　1　　　2　　　　3　　　　4 A　種類　果物　　　野菜 B　果物　りんご　　たまねぎ C　野菜　いちご　　ピーマン D　　　　みかん　　レタス　　　（すべて名前を定義しています。） VBAでINDIRECT関数を使うにはどのようにすればよいでしょうか？

大使館で一般人が、「個人情報」や「オークションで詐欺行為」「逮捕状を頼む」だり出きるんでしょうか？ フリーオークションで落札者様が脅迫をしてきました。 こちらは全く「詐欺行為」はしていない事を伝えても落札者様が ●「大使館でちょっと調べたのですが●●様は以前オークションで詐欺をやった経験がないですか？ データではそのような記録が残っているようです」と言った内容や今日来たメールでは ●「なんという挑戦的なメール。こんな屈辱初めてです。 許せません。自覚がないのとやっていないのはまったく違います。 過去のメールを読めばわかります。２回分の送料をどうしてくれるのですか。 三十路を迎えてこんな幼稚な考えではどうにもなりませんよ。 就職面接はうまくいっていますか。大使館経由で逮捕状を発行できるか確認してみます。 こちらには証拠がありますので海を超えてでもやりますよ。」 と来ました。代金は本当にまだ届いておりません。ちなみに落札者様が落札したのは7月です。 良いアドバイスお待ちしております。

エクセル２００３です。複数のBookの合計を出す方法を教えて下さい。 「２５枚のBook」にある・「Ｄ３０」の数字の合計を出す方法を教えて下さい。

Excel2003　VBAでタイマーを組んでマクロを走らせたいのですが、以下のエラーメッセージが出ました。 マクロ　"C:\aaa\Timer.xls'!Record1'が見つかりません。 マクロは、Timer.xlsブックのThisWorkbookに記述しています。 ---------------------------------------------------------------------- Sub timer1() 指定時刻 = TimeValue("09:00:00") 終了時刻 = TimeValue("11:00:00") Application.OnTime 指定時刻, "Record1" End Sub ---------------------------------------------------------------------- Sub Record1() Dim sh1, sh2 If TimeValue(Now) >= 終了時刻 Then '終了時刻になら終わる MsgBox "終了時刻になりました。" Application.CutCopyMode = False Exit Sub End If Set sh1 = Worksheets("1") Set sh2 = Worksheets("2") sh1.range("G5：G506").Copy 'コピー sh2.range("Q5：Q506").PasteSpecial Paste:=xlValues Selection.Offset(0, 2).Select '2行ずらす 指定時刻 = Now + TimeValue("00時05分00秒") '5分後 Application.OnTime 指定時刻, "Record1" End Sub ---------------------------------------------------------------------- どこを直せばよろしいのでしょうか？ よろしくお願いします。

エクセル2007の「最近使用したドキュメント」からｃｓｖファイルだけを除外したいのです。 ネット上の数表をエクセルにダウンロードする機会が多いのですが、ダウンロードは殆どの場合ｃｓｖファイル形式です。結果「最近使用した。。。」欄がｃｓｖファイルの独占状態になってエクセルファイルの参照を妨げているのです。このような現象はつい数週間前からです。ｃｓｖファイルだけを「最近使用した...」欄から除外する方法があったら教えて下さい。

この「教えて!goo」の掲示板は いきなり質問で申し訳ございません。ある回答者から疑問になる回答を寄せられてどう対処して良いか大変困っています。 ---------------------------------------------------------------------------------- ●質問● (1)自分で調べて分からない場合は、この掲示板で聞いちゃ行けないのでしょうか？ ある回答者さんが、分からないから掲示板で聞いているだけなのに「自分で解決しろ」とも思われる回答が来ました。 (2)ある回答者がお礼を言われる回答ではなく、批判ばかりで掲示板に「お礼の一つも言えないのか？」と言い出す始末です。批判の回答でも御礼を言わなきゃ行けないのでしょうか？ こんな回答です 「あんた質問ばかりで恥ずかしくないんですか？面接受けてもここで「この会社は大丈夫ですか？」 「この職種は向いてますか？」とか聞きまわってそうですね。あとなぜか私が悪い事言ったみたいになってるのはなぜですか？○○の文字伏せ字にしたのは私の忠告のおかげです。お礼の一つも言えないんでしょうか？」 (1)と(2)は同じ回答者です。 ※この回答者は、批判ばかりの回答なのに「自分が悪くない」と思っております。 ---------------------------------------------------------------------------------- 良いアドバイスをお願いします。 無視すれば良いでしょうか？ 批判ではない限りはちゃんとお礼はしております。 大変困っております。

エクセルの文章作成について教えてください。 よろしくお願い致します。初心者です。 ワードは苦手ですのでエクセルで作成したいです。 現在、内容証明書を作成しよう思っております。 ↓↓内容証明書作成のルールを読むと↓↓ 謄本の字数・行数は1行20字（記号は、1個を1字とします。以下同じとします。）以内、1枚26行以内で作成していただきます。ただし、謄本を横書きで作成するときは、1行13字以内、1枚40行以内または1行26字以内、1枚20行以内で作成することができます。 とあります。 【質問】 例えば、一行に２０文字以上打ち込むと自動的に改行してくれるようなことはできますか？ 初心者で説明がヘタですみません。わかる方がいらっしゃいましたら、宜しくお願い致します。