Wendy02 の回答履歴

パソコンの交換のためOSがWin2000からWinXPに変わりました。 エクセルのバージョンは変わらず2000です。 旧PCの「PERSONAL.xls」を新PCの「XLSTART」フォルダに移しました。 Sub Auto_Open() を含むモジュールがあります。 旧PCでは、Shiftキーを押しながらエクセルを起動させることで、 Sub Auto_Open() を回避してきました。 ところが新PCでは、無効にできず、処理が走ってしまいます。 セキュリティレベルが低、中、高、いずれの場合も変わりません。 ちなみにインストールしたのはパッケージ版のオフィスです。 新、旧、全く同じものでインストールしました。 原因はどこにあるのでしょうか・・・。

あるプロシージャやfunctionで定義したstaticな変数は、その定義したsubやfunctionで有効です。今回、例えば、static　a　as　integer　とSub　AAA　内で、定義し、その　AAA　が呼び出す　BBB　という　ユーザーフォームの中でも　staticな変数である　a　に値を代入したり、変更したりし、その後　sub　AAAにまた入ったとき、BBBで変更した内容を保持することができるのでしょうか。

http://kokodane.com/macro17.htm 頻繁に、形式を選択して貼り付けで「値の貼り付け」を行うため、 上記のサイトを参考にしてマクロを作成しました。 コードは Sub 値の貼り付け() ' Keyboard Shortcut: Ctrl+t ' 　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ 　　　　SkipBlanks :=False, Transpose:=False End Sub です。 それが昨日のことなのですが、そのときはうまくマクロが動作して、 データを貼り付けることが出来ていたのですが、 今日やってみるとなぜかうまくいきません。 特に何か設定は変えていません。 セキュリティは下げた状態にしてあり、他のマクロは通常通り使えています。 コピーペーストは普通に行えています。 なぜなんでしょうか？ 何度かマクロを作成しなおしてみたりもしたのですが、 どうやってもうまくいきません。 どなたか理由を教えて下さい。

しゃれで質問したら真摯に受け止められお叱りを受けてしまった。 こんばんは。 やはりシャレで質問してはいけない？のかな。 なにか解らない事があって、で質問して、回答を得る。 私はこれだけでは何か物足りないと思うのです。 （じゃ他のサイトへ行け、などと言わないで下さい、ココしか知りません） 明るく楽しいQ＆Ａにしたくないですか？ 最近下記の質問をしました。２件。（うまく貼れるかどうか？） http://okwave.jp/qa/q6433957.html http://okwave.jp/qa/q6457674.html もちろんシャレだけの質問ではありません。 血液型の方は、差別・偏見だと。 大人買いの方は、ほっとけ、と。 私はそんなつもりはなく、もちろん質問するのだからコアとなる疑問点がまず有って、 多少装飾はしたとしても、でも最初からはっきりした答えなどある内容では無く、 でも俺はこう思う、私はこう思う、などとご意見（回答でなくても良い）を頂、 オモシロおかしくやりたかったのです。ノッテきてほしかったのです。 ここ２件が不発となりました。（アンケートカテにすれば良かったかな） 質問文には多少の装飾はあります。でも自分の感じたことは事実を書いているのです。 ●どうせ質問・回答するなら、明るく楽しいQ＆Ａにしたくないですか？ 　ノリ突っ込みありで。もちろん真摯受け止め型もありですよ。 ●私の当サイトの利用目的が全然ダメなのかどうか？ では宜しくお願い致します。（又怒られちゃうかな）

Excel VBAを使用して2行ずつ行の削除をし、1行残して（3行目を残す）また2行ずつ行の削除、1行残しす（6行目を残す）をループして行う方法が知りたいです。 イメージとしては以下のような感じです。 ━━【A】━━━━ 【1】あいうえお 【2】かきくけこ 【3】さしすせそ 【4】たちつてと 【5】なにぬねの 【6】はひふへほ 【7】まみむめも 【8】やゆよ 【9】らりるれろ ━━━━━━━━━ ↓マクロ実行後↓ ━━【A】━━━━ 【1】さしすせそ 【2】はひふへほ 【3】らりるれろ ━━━━━━━━━ 当方VBA初心者ですので、できるだけわかりやすくご教授頂けると助かります。 よろしくお願いいたします。

VBAについて。Excelの2003や2007を使っています。標準モジュールで public 変数を定義しました。 ユーザーformを使い、パブリック変数に値を入れたり変更し、標準モジュールに戻ったとき、そのpabulic変数が resetされてしまっている事があります。全く同じマクロで、この現象が起こることと、起こらないことがあります。excelの2003でも2007でも、同じ現象が起こります。簡単なマクロで再現性のある具体的なものを示したいと思い、試しましたが、できませんでした。簡単なマクロでは、きちんとパブリック変数は保持されています。問題のあるマクロはかなり長いものなので、とても示せません。問題がどこにあるのかわかりません。このマクロで不都合があるという具体的なマクロを示すことができない状態での質問で、申し訳ありません。 また、このようなプログラミングをしていて思ったのですが、ユーザーフォームに対してユーザーが任意の引数を渡す方法あるいは、ユーザーフォームから引数を受け取る方法はあるのですか?今は、pubulic変数を用いたり、具体的なセルに値を代入したりしていますが、どう考えてもそれはエレガントではないし、汎用性もないと思います。引数で引き渡すのが一番綺麗でいいとは思うのですが、それが可能かどうかわかりません。

特定のセル文字（記号）を入力すると、その横のセルに条件分の数セルを塗りつぶしたいです。 条件付き書式ではなんとかできたのですが、できればVBAでできればと思っています。 たとえば、◎なら右に3つ黄色に △なら右に2つ青 ○なら右に1ピンク ☆なら、表の端まで赤に。 すべて、表が終われば、塗りつぶしはなしにしたいです。 どうか、よろしくお願いします。

特定のセル文字（記号）を入力すると、その横のセルに条件分の数セルを塗りつぶしたいです。 条件付き書式ではなんとかできたのですが、できればVBAでできればと思っています。 たとえば、◎なら右に3つ黄色に △なら右に2つ青 ○なら右に1ピンク ☆なら、表の端まで赤に。 すべて、表が終われば、塗りつぶしはなしにしたいです。 どうか、よろしくお願いします。

http://kokodane.com/macro17.htm 頻繁に、形式を選択して貼り付けで「値の貼り付け」を行うため、 上記のサイトを参考にしてマクロを作成しました。 コードは Sub 値の貼り付け() ' Keyboard Shortcut: Ctrl+t ' 　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ 　　　　SkipBlanks :=False, Transpose:=False End Sub です。 それが昨日のことなのですが、そのときはうまくマクロが動作して、 データを貼り付けることが出来ていたのですが、 今日やってみるとなぜかうまくいきません。 特に何か設定は変えていません。 セキュリティは下げた状態にしてあり、他のマクロは通常通り使えています。 コピーペーストは普通に行えています。 なぜなんでしょうか？ 何度かマクロを作成しなおしてみたりもしたのですが、 どうやってもうまくいきません。 どなたか理由を教えて下さい。

基本的なことなのでしょうがまだよくわかっていません。 ワークシートにたとえると、1次元は縦方向（行番号方向）、二次元は横方向（列番号方向）ですよね？ 列数、行数にあたるのが1次元、二次元それぞれの添字ですよね？ そしてセルに当たるのが「要素」ですよね？ 以上の解釈があっていたら、 １．A列やB列にあたるものはなんと呼ぶのでしょうか？ ２．１行目や2行目にあたるのはなんと呼びますか？ ３．ワークシートで行や列を削除するような感じで2次元配列の行や列にあたるものを削除することはできますか？ ４．UBound関数は、配列の大きさを調べられますが、この大きさは添字です。ワークシートのCells（65536,1）.End(xlUp)Rowのように実際にデータがどこまで入っているか調べられますか？ 教えてください。 前提とした解釈自体が違っていたらそれもご指摘ください。

これは、以前ここで教示していただいたWEBからデータを取り出すVBAの一部です。 日付を入力し、その都度呼び出すWEBページを指定するものです。 －－－－－－－－－－－－－－ myDate = InputBox("オープンする日付を「月／日」のように入力してください。", _ 　　"日付の入力", Format(Date, "m/d")) 　myURL = "0062/0062" & Format(Split(myDate, "/")(0) * 1, "00") & _ 　　Format(Split(myDate, "/")(1) * 1, "00") 　Connection_URL = "http://***/" & myURL & ".html" －－－－－－－－－－－－－－－－－ これは日付の当てはめにより(1/10の場合) http://***/0062/00620110.htmlとなるようです。 そこで今回新たに指定したいurlは http://***/guid/?datest=2011-01-10&ch=109 というものです。この中の-01-10の部分を日付指定により可変としたいのですが ハイフンがはさまるため上記のVBAを変える必要があるようです。 VBAは初心者のため、元記述を色々書き換えて見たのですがうまくゆきません。 なお、chの部分も変えるとしたらをあわせて、アドバイスをよろしくお願いします。

海外に住む友達が白血病になりました。 しっかりとした種類は分からないのですが、子供がかかるタイプのようで 放射線治療を行うとのことでした。 入院は検査のときと免疫が落ちたときだけで あとは自宅療養で大丈夫のようです。 本人からのメールでは想像するような深刻な種類の白血病ではないよと言われたもの の私もそんなに詳しくないために不安が消えません。 春休みに尋ねていこうかと思っていますが、友達はわざわざ来るほどのことでもないよ と言ってくれます。 今年は子供の入学、入園が重なり また幼い子2人を両親に預けるのも不安で 本当に友達が言うように そんなに深刻な種類で（病気は深刻ですが）ないのなら 時間に余裕のある夏休みにでもとも思いますが、・・・ それでも春休みに会いに行ったほうがいいでしょうか？ もう少し様子をみてからでもいいのでしょうか？ 病気の種類が一変することもあるのでしょうか？ どなたか教えていただけませんでしょうか？

これは、以前ここで教示していただいたWEBからデータを取り出すVBAの一部です。 日付を入力し、その都度呼び出すWEBページを指定するものです。 －－－－－－－－－－－－－－ myDate = InputBox("オープンする日付を「月／日」のように入力してください。", _ 　　"日付の入力", Format(Date, "m/d")) 　myURL = "0062/0062" & Format(Split(myDate, "/")(0) * 1, "00") & _ 　　Format(Split(myDate, "/")(1) * 1, "00") 　Connection_URL = "http://***/" & myURL & ".html" －－－－－－－－－－－－－－－－－ これは日付の当てはめにより(1/10の場合) http://***/0062/00620110.htmlとなるようです。 そこで今回新たに指定したいurlは http://***/guid/?datest=2011-01-10&ch=109 というものです。この中の-01-10の部分を日付指定により可変としたいのですが ハイフンがはさまるため上記のVBAを変える必要があるようです。 VBAは初心者のため、元記述を色々書き換えて見たのですがうまくゆきません。 なお、chの部分も変えるとしたらをあわせて、アドバイスをよろしくお願いします。

基本的なことなのでしょうがまだよくわかっていません。 ワークシートにたとえると、1次元は縦方向（行番号方向）、二次元は横方向（列番号方向）ですよね？ 列数、行数にあたるのが1次元、二次元それぞれの添字ですよね？ そしてセルに当たるのが「要素」ですよね？ 以上の解釈があっていたら、 １．A列やB列にあたるものはなんと呼ぶのでしょうか？ ２．１行目や2行目にあたるのはなんと呼びますか？ ３．ワークシートで行や列を削除するような感じで2次元配列の行や列にあたるものを削除することはできますか？ ４．UBound関数は、配列の大きさを調べられますが、この大きさは添字です。ワークシートのCells（65536,1）.End(xlUp)Rowのように実際にデータがどこまで入っているか調べられますか？ 教えてください。 前提とした解釈自体が違っていたらそれもご指摘ください。

これは、以前ここで教示していただいたWEBからデータを取り出すVBAの一部です。 日付を入力し、その都度呼び出すWEBページを指定するものです。 －－－－－－－－－－－－－－ myDate = InputBox("オープンする日付を「月／日」のように入力してください。", _ 　　"日付の入力", Format(Date, "m/d")) 　myURL = "0062/0062" & Format(Split(myDate, "/")(0) * 1, "00") & _ 　　Format(Split(myDate, "/")(1) * 1, "00") 　Connection_URL = "http://***/" & myURL & ".html" －－－－－－－－－－－－－－－－－ これは日付の当てはめにより(1/10の場合) http://***/0062/00620110.htmlとなるようです。 そこで今回新たに指定したいurlは http://***/guid/?datest=2011-01-10&ch=109 というものです。この中の-01-10の部分を日付指定により可変としたいのですが ハイフンがはさまるため上記のVBAを変える必要があるようです。 VBAは初心者のため、元記述を色々書き換えて見たのですがうまくゆきません。 なお、chの部分も変えるとしたらをあわせて、アドバイスをよろしくお願いします。

EXCEL 2002 2003 2007 で現象を確認しました。 EXCEL のセルに入る文字数上限は32767文字ですが、csvファイルをEXCELで開くと、上限はもっと低いようです。 調べた所、カンマ間に32759文字以上有ると改行されてしまうようです。 これはexcelのバグなのでしょうか？何か情報をお持ちの方教えて下さい。 マイクロソフトに電話したのですが、私のライセンスは無償サポートが終わっていて、4000円掛かると言われ辞めました。 よろしくお願いします。

OS：windowsXP　HomeEdition ソフト：Excel2003 アドインを作成し配布したいのですが、xla形式で保存しエクセル上でアドインさせ、 作成したメニューからテスト起動させてみると、アドインの元のファイル（拡張子xls）が 展開してしまいます。展開させずにアドインプロシージャを起動させたいのですが 何が原因か調べてもわかりませんでした。知っている方、ご助言御願い致します。 以下に、私の作成したマクロを記述します。 マクロ解説HPで勉強しつつ作成致しました。 ～～～～～～～～～～～～～～～～～～～～～～～～～ ＜ThisWorkBookへの記述＞ Dim mySubMenu As CommandBarControl Sub MakeSubMenu() Dim myMenu As CommandBar Dim cmdSubMenu As CommandBarControl 'すでにサブメニューがあれば削除する DelSubMenu Set myMenu = Application.CommandBars("worksheet Menu Bar") Set mySubMenu = myMenu.Controls.Add(Type:=msoControlPopup) mySubMenu.Caption = "メニュー" Set cmdSubMenu = myMenu.Controls("メニュー").Controls.Add(Type:=msoControlButton) cmdSubMenu.Caption = "コマンド1" 'サブメニューでコマンド1を選択したとき cmd1() を呼び出す cmdSubMenu.OnAction = "cmd1" Set cmdSubMenu = myMenu.Controls("メニュー").Controls.Add(Type:=msoControlButton) cmdSubMenu.Caption = "コマンド2" 'サブメニューでコマンド2を選択したとき cmd2() を呼び出す cmdSubMenu.OnAction = "cmd2" End Sub Sub DelSubMenu() 'メニューバーのサブメニューを削除する On Error Resume Next mySubMenu.Delete End Sub ＜標準モジュールへの記述＞ Private Sub cmd1() MsgBox "コマンド1を選択しました" End Sub Private Sub cmd2() MsgBox "コマンド2を選択しました" End Sub ～～～～～～～～～～～～～～～～～～～～～～～ 尚、マクロは簡略化し、のせております。 よろしく御願い致します。

EXCEL 2002 2003 2007 で現象を確認しました。 EXCEL のセルに入る文字数上限は32767文字ですが、csvファイルをEXCELで開くと、上限はもっと低いようです。 調べた所、カンマ間に32759文字以上有ると改行されてしまうようです。 これはexcelのバグなのでしょうか？何か情報をお持ちの方教えて下さい。 マイクロソフトに電話したのですが、私のライセンスは無償サポートが終わっていて、4000円掛かると言われ辞めました。 よろしくお願いします。

エクセルのフォームのチェックボックスで【On】にした際に 「コントロールの書式設定」にある「リンクするセル」のロックをしたいのですが マクロで実現する際、どのようなにできるのでしょうか？ また、フォームのチェックボックスで【Off】にした際に、「リンクするセル」のロックの解除のしたいです。 初心者で下記を記述しましたが、チェックボックスが多いため、すべてのチェックボックスに登録するのが時間がかかるのあで、教授お願いします。 Cells.Locked = False ActiveSheet.Protect userinterfaceonly:=True ActiveSheet.Range("AY29").Locked = True

EXCEL 2002 2003 2007 で現象を確認しました。 EXCEL のセルに入る文字数上限は32767文字ですが、csvファイルをEXCELで開くと、上限はもっと低いようです。 調べた所、カンマ間に32759文字以上有ると改行されてしまうようです。 これはexcelのバグなのでしょうか？何か情報をお持ちの方教えて下さい。 マイクロソフトに電話したのですが、私のライセンスは無償サポートが終わっていて、4000円掛かると言われ辞めました。 よろしくお願いします。