Wendy02 の回答履歴

下記のVBAを作成し、動かしているのですが、 Office2002以降では、問題なく動くのですが、Office2000では、コピー先のファイルを開く際に、リンクのダイアログが表示されます。 コピー先ファイルのリンクを削除したらよいのですが、どうしても見つかりません。 なので、下記のマクロにリンクダイアログをスルーするようにしたいのですが、どのようにすればよいか教えてください。 Private Sub CommandButton1_Click() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\AAA.xls") ThisWorkbook.Sheets("BBB").Range("E4:AR4").Copy wb.Sheets("CCC").Range("E4:AR4") Application.DisplayAlerts = False wb.Close (True) Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

MacでWord2004を使用しています。 メニューの「書式」→「文字種の変換」→「全角/半角オプション」で「半角に変換する」を 選ぶとテキストで全角の部分が半角に変換できるのですが、この一連の動作をマクロで記録し、それを実行しても何も起こりません。この動作はマクロで記録できないのでしょうか？ どなたかお教えいただけますと幸いです。よろしくお願いいたします。

エクセルマクロの質問です。エクセルのヴァージョンは2000です。 あるシートをコピーして新シートに任意の名前を付けるマクロを作っています。ユーザーフォームの中に一つのテキストボックス（新シートの名前入力用）と二つのコマンドボタンを設置し一つは実行ボタン、もう一つはキャンセルボタンとしました。 QNo.6367227でエラー処理に関する質問をさせていただきましたが、こちらは見事に解決していただきました。 今回の質問はExit Subに関する質問です。 If構文で、条件文１が真であればシートをコピーして名前を変更、フォームを閉じるという処理を目指しています。 If　条件　Then　～　処理　Exit Sub という形を作って試してみたのですが、処理後にExit Subが実行されません。Exit Subの前にメッセージボックスを挿むとメッセージは表示されましたが、やはりExit Subにはたどり着けませんでした。 すごく初歩的な事で恥ずかしいのですが、Exit Subが実行されない理由と解決法をご教示いただけると助かります。よろしくお願いします。 Private Sub CommandButton1_Click() Dim NewSheetName As String NewSheetName = TextBox1.Value On Error Resume Next Sheets("Summary").Name = NewSheetName If Err.Number = 0 Then Sheets(NewSheetName).Copy before:=Sheets(NewSheetName) ActiveSheet.Name = "Summary" MsgBox ("Tasｋ Completed!") ExitSub Else MsgBox "Invalid name!" End If On Error GoTo 0 End Sub

MacでWord2004を使用しています。 メニューの「書式」→「文字種の変換」→「全角/半角オプション」で「半角に変換する」を 選ぶとテキストで全角の部分が半角に変換できるのですが、この一連の動作をマクロで記録し、それを実行しても何も起こりません。この動作はマクロで記録できないのでしょうか？ どなたかお教えいただけますと幸いです。よろしくお願いいたします。

韓国製のパソコンＳＥＮＡ　Ｒ６０に日本語版ｗｉｂｄｉｗｓ　ｘｐを入れて使ってます 文字の入力切り替えですがを押すたびに、ひらがな（あ）と英語（Ａ）と切り替わるのですが… 今まではこの操作をするとひらがなと半角英語になっていたのですが、突然、ひらがなと全角英語に 変わってしまいました。 どんな操作をしたためにこうなったのかわからなくて戻すことが出来ません(>_<) 日本製ではないので半角／全角切替ボタンもありません。 アンダーバー（？）のひらがなの部分をクリックして文字の切替、半角全角の切替をすることや Ｆ８やＦ１０を利用して切り替える方法はわかります。 が、どうしても今までのようにキーボード上（ｓｈｉｆｔ＋ｃａｐｓ　ｌｏｃｋ）で簡単に切り替えをしたいんです。 同じような内容の質問を検索してみましたが、キーボードに半角全角切替ボタンがないことと無変換キーと書かれたボタンもどれがかわりになるのかわからなくて解決することが出来ませんでした。 おわかりの方教えてください。お願いしますm(__)m

パソコン音痴の者ですが、教えてください。 　経理とか会計に興味があって、経理職や会計事務所に転職できるかどうかわかりませんが、もし転職するのだとしたら、実務経験+簿記2級以上+OAスキルが必須条件になっている会社が多いように思います。 そこでOAスキルを修得したいと思うのですが、どの資格を修得すべきか財務・会計・経理のカテゴリで質問しましたら、色々資格ありまして、「電子会計実務試験」とか「会計ソフト実務能力試験」とか。そして様々な回答の中に「VBA」を駆使できるスキルが税理士業界では重宝されているとの声もありました。なのでネットでVBAの資格を調べるとVBAエキスパートと言う資格あるようですので、これを勉強したいと思ってます。 　ところが、私はITスキルはゼロと言っても過言ではありません・・・。ワード・エクセル・パワポは仕事で触ることがある程度でIT・パソコンに関し体系的な知識がありません・・・。「OS？ソフトウェア？アクセス？何それ？」とこんなレベルなのです。そんな人間がいきなり「VBAエキスパート」などという大それた資格の勉強に挑戦するのは何か手順を飛ばしているような気がするのです。 まるで、簿記3級を知らずして公認会計士の勉強をするようなものではなかろうかと思っているわけです。そこで教えていただきたいのですが、素人がVBAエキスパートの勉強するのは問題ありませんでしょうか？まずMOSとかパソコン検定とかITパスポートとかを勉強したほうがよいのでしょうか？ ITスキルゼロの初心者がVBAエキスパートを修得するプロセス(道筋)として適切な順序はどういう順序になるのでしょうか？ 　いきなりVBAエキスパートの学習は非効率でしょうか？よろしくご指導願います。

30代、女性、既婚者です。 なんだか変なのか？と顕在的に不思議に思い出したのは3年前のことです。 明らかに同性愛者であろう、ある女性を見た瞬間、近づきたいけどそわそわするような感情を自覚しました。性的魅力というより、そばにいて可愛がってもらいたいという感覚でしたが。 それ以来、自分はどうなっているんだ？という思いが止まりません。 人生を振り返ってみました。 子供の頃、始めて買ってもらった補助つき自転車、新品なのに男の子用でした。 飛びついた始めての本、学研の学習と科学の科学でした。 いたずらするもの、カメラ（当時の「ばかちょん」）でした。証拠写真が残っています。 更にさかのぼると、物心ついてすぐ、母親におちんちんをいつになったら買ってくれるのかたずねたのを覚えています。 家族構成は3人姉妹の末っ子です。何故自分に、ついているはずのものがついていないのか。－それは生まれながらにくっついているものではなく、買ってくっつけるものだと幼心に思った故の質問だったのだと今分析します。 ハロウィンパーティーなどでの仮装のアイデアをひねる際、出てくるのはどうしても男子キャラです。海賊、侍、ACグリーン（元NBAバスケットボールプレーヤー）など。 実際に仮装すると、気持が大変楽になります。 女性とは過去に5人ほどキスをしたことがあります。 最近欲しいもの、もみあげが欲しくてたまりません。 着る服は女性らしいものはほとんど所有していません。 若い娘の頃からブランド品、化粧、アクセサリーには一切興味がありません。 かといって、車や電気機器にも興味はありません。 年齢によるエストロゲンの低下のせいなのか、口ひげが濃くなってきました。 胸の毛は小学校高学年からあり、20代の頃友達に見せたら「産毛の域を超えている」とのことでした。 自分はただのtransvestiteなのか、レズビアンなのか、性同一性障害なのか、はて、これくらいは普通に皆あることなのか悩んでいます。 セックスレスなので夫に「愛がなくなったのか」と聞かれることがあるのですが、そういうことではないのです。一緒にいて楽しい時間を過ごせるのですが、性欲は皆無に等しいです。結婚4年目です。 解決の糸口となるようなレスをつけていただけると幸いです。 真剣なので、誹謗・中傷的なレスはどうぞご遠慮ください。 よろしくお願いいたします。

エクセルマクロの質問です。エクセルのヴァージョンは2000です。 シートをコピーして新シートに任意の名前を付けるマクロを作っています。 ユーザーフォームの中に一つのテキストボックス（新シートの名前入力用）と 二つのコマンドボタンを設置し一つは実行ボタン、もう一つはキャンセルボタンとしました。 テキストボックスに不正な名前（空白、記号、すでに存在するシート名）が入力された状態で 実行ボタンを押すと新シートは作成されず、メッセージボックスで実行できない旨が表示され、 入力フォームに戻るという感じにしようと思っています。 エラー処理には下記の通りOn Errorステートメントを試してみました。が、どうもうまくいきません。 エラーが出ても新しいシートが作成されてしまい、その後にメッセージボックスが出てしまいます。 正しいエラー処理の仕方をご教示頂けると幸いです。どうぞよろしくお願いします。 Private Sub CommandButton1_Click() Dim NewSheetName As String NewSheetName = TextBox1.Value On Error GoTo Err1 Sheets("Summary").Select Sheets("Summary").Copy After:=Sheets("Summary") ActiveSheet.Name = NewSheetName Exit Sub Err1: MsgBox "Invalid name" 　　　Exit Sub End Sub

テキストデータからエクセルマクロで吸出しを行う中で 数値データをNumberFomatLocalでカンマと小数点を指定したいのですが 小数点以下がセルによって2桁3桁だったり、なかったりとバラバラで データに合せてそのまま反映させたいのですが設定する方法がありますでしょうか。 "#,##0.0"だと当然関係なく小数点以下は1桁で反映されてしまいます。 .00でも表示させておきたいです。

住所録を管理できるシステムを作っています。 ２番目のシートを検索＆結果表示のシート、３番目～１０番目のシートにはユーザーフォームを使ってデータを入力して蓄積していくシートとしています。 検索はアドバンスフィルターを使っています。 Dim Rng As Range Dim cRng As Range Dim sh As Variant With Sheets(2).Select.Range("A13:L10000").ClearContents For Each sh In Array(Sheets(3), Sheets(4), Sheets(5), Sheets(6), Sheets(7), Sheets(8), Sheets(9), Sheets(10)) Set cRng = .Range("A65536").End(xlUp).Offset(1) If cRng.Row < 13 Then Set cRng = .Range("A13") End If sh.Range("A2:L3002").AdvancedFilterAction:=xlFilterCopy, _ CriteriaRange:=.Range("A6:L7"), CopyToRange:=cRng, _ Unique:=False cRng.Resize(, 17).Cleaｒ Next sh End With End Sub このマクロでは、ユーザーフォームを使って入力していったデータを検索することはできるのですが、他のエクセルシートからデータをコピー＆ペーストしたり、直接入力をすると検索できません。 何が原因なのでしょうか。教えてください。

30代、女性、既婚者です。 なんだか変なのか？と顕在的に不思議に思い出したのは3年前のことです。 明らかに同性愛者であろう、ある女性を見た瞬間、近づきたいけどそわそわするような感情を自覚しました。性的魅力というより、そばにいて可愛がってもらいたいという感覚でしたが。 それ以来、自分はどうなっているんだ？という思いが止まりません。 人生を振り返ってみました。 子供の頃、始めて買ってもらった補助つき自転車、新品なのに男の子用でした。 飛びついた始めての本、学研の学習と科学の科学でした。 いたずらするもの、カメラ（当時の「ばかちょん」）でした。証拠写真が残っています。 更にさかのぼると、物心ついてすぐ、母親におちんちんをいつになったら買ってくれるのかたずねたのを覚えています。 家族構成は3人姉妹の末っ子です。何故自分に、ついているはずのものがついていないのか。－それは生まれながらにくっついているものではなく、買ってくっつけるものだと幼心に思った故の質問だったのだと今分析します。 ハロウィンパーティーなどでの仮装のアイデアをひねる際、出てくるのはどうしても男子キャラです。海賊、侍、ACグリーン（元NBAバスケットボールプレーヤー）など。 実際に仮装すると、気持が大変楽になります。 女性とは過去に5人ほどキスをしたことがあります。 最近欲しいもの、もみあげが欲しくてたまりません。 着る服は女性らしいものはほとんど所有していません。 若い娘の頃からブランド品、化粧、アクセサリーには一切興味がありません。 かといって、車や電気機器にも興味はありません。 年齢によるエストロゲンの低下のせいなのか、口ひげが濃くなってきました。 胸の毛は小学校高学年からあり、20代の頃友達に見せたら「産毛の域を超えている」とのことでした。 自分はただのtransvestiteなのか、レズビアンなのか、性同一性障害なのか、はて、これくらいは普通に皆あることなのか悩んでいます。 セックスレスなので夫に「愛がなくなったのか」と聞かれることがあるのですが、そういうことではないのです。一緒にいて楽しい時間を過ごせるのですが、性欲は皆無に等しいです。結婚4年目です。 解決の糸口となるようなレスをつけていただけると幸いです。 真剣なので、誹謗・中傷的なレスはどうぞご遠慮ください。 よろしくお願いいたします。

ボタンを押したら、そのボタンを非活性（Ｅｎａｂｌｅｄ＝ＦＡＬＳＥ）にしたいです。 しかし、他に裏で処理が動いていると、すぐに非活性にならず、 少し時間がたった後、非活性になります。 私としてはすぐに非活性にしたいのですが、ＶＢＡで何か良い方法ありますか？ 例えばＣ＃では ボタンＡ.Enabled = false; ボタンＡ.Refresh(); これで、すぐにボタンＡは非活性になります。

VBAで下記の動作を実現させたいのですが、もう一歩のところで上手くいきません。 アドバイスを宜しくお願いします。 ・C列が空欄になるまで、AD列を改行させて同じ作業を繰り返す。 Do Loopステートメントで下記のように作ってみたのですが、"AD2"から"AD3"に改行させることが 出来ないのです。 ------------------------------------ Sub 棚番2() Range("C2").Activate Do Until ActiveCell.Value = "" Range("AD2").FormulaR1C1 = _ "=IF(ISERROR(VLOOKUP(RC[-27],棚番!C2:C3,2,0)),"""",VLOOKUP(RC[-27],棚番!　　　C2:C3,2,0))" Range("AD2").Copy Range("AD2").PasteSpecial Paste:=xlPasteValues ActiveCell.Offset(1).Activate Loop End Sub --------------------------------- 何卒アドバイスを下さいますよう宜しくお願いいたします。

ウイルスバスター2011使用しておりメイン画像起動すると保護されているとなっており安心しておりましたが、ＭＣＡfee やノートンのお試し用てにいれ検索したところｗｅｂ保護見つからない　セキュリテイ 保護されていない等のメッセイジあり不安を感じています。大丈夫なのでしょうかおしえてください。

　A列　　　　B列 計　　　　　1,702,481 調整金　　　 -12481　←セルに直接-12481を入力 計　　　　　1,690,000　←オートSUMで計～調整金を計算 工事金額 1,690,000　←上記「計」を参照 消費税　　　 84,500　←工事金額*０．０５ 合計金額 1,774,500 　←工事金額～消費税をオートSUM。 　　　　　　　　　　　　　　　実際には1,774,499となり、１ずれます。 合計金額が上記のように1,774,500にならないといけないのに、 1,774,499となり、１ずれます。調整金のマイナス数値である、-12481の下一桁の「１」が関係 しているんでしょうか？ なお金額を入力しているB列のセルの書式設定の分類はすべて「数値」で 桁区切り（,）を利用するにチェックを入れています。 ほかに検討がつかなくって困っています。 チェックすべきセルや、考えられる点などがあれば お力をお貸しください、よろしくお願いします。

韓国製のパソコンＳＥＮＡ　Ｒ６０に日本語版ｗｉｂｄｉｗｓ　ｘｐを入れて使ってます 文字の入力切り替えですがを押すたびに、ひらがな（あ）と英語（Ａ）と切り替わるのですが… 今まではこの操作をするとひらがなと半角英語になっていたのですが、突然、ひらがなと全角英語に 変わってしまいました。 どんな操作をしたためにこうなったのかわからなくて戻すことが出来ません(>_<) 日本製ではないので半角／全角切替ボタンもありません。 アンダーバー（？）のひらがなの部分をクリックして文字の切替、半角全角の切替をすることや Ｆ８やＦ１０を利用して切り替える方法はわかります。 が、どうしても今までのようにキーボード上（ｓｈｉｆｔ＋ｃａｐｓ　ｌｏｃｋ）で簡単に切り替えをしたいんです。 同じような内容の質問を検索してみましたが、キーボードに半角全角切替ボタンがないことと無変換キーと書かれたボタンもどれがかわりになるのかわからなくて解決することが出来ませんでした。 おわかりの方教えてください。お願いしますm(__)m

はじめまして。 茨城県立の偏差値42の高等学校に通っている高１の者です。 シス単BASICについて詳しく知りたくて質問させていただきました。 僕は、良い単語帳をさがすために様々なサイトなどをめぐりめぐって、評判が中々良いシス単というものを見つけました。それは単語数が他の単語帳とは比較的少ないけれど、実践で効果が出ることで人気があるそうです。 しかし、僕のような偏差値42（ましてや高１）の人は、BASICから始めたほうが良いという情報もありました。 ですがシス単とシス単BASICだとBASICがとても簡単すぎだという声も聞きました。それは高１の人からの視点なのか高３の人からの視点なのか気になります。 結局僕が知りたいのは、 ・高１(模試の英語偏差値40)の僕がシス単BASICを使う(やり込む)とおおよそどの程度効果が期待できるのかです。 長々とした文になってしまいましたが、温かいご回答をお待ちしています。

Excelマクロによる単語リストの結合についてご教授願えませんでしょうか。 2つの単語リストＡとＢとがあります。 （例） ＜単語リストA＞ go 3 work 4 （以下省略） ＜単語リストＢ＞ go 4 hear 5 （以下省略） 上の二つの単語リストＡ、Ｂを以下のように結合したいのです。 リストA リストB go 3 4 hear 0 5 work 4 0

Windows XP SP3にて、MS Office 2002 SP3を使用しています。 Word, Excel, PowerPointそれぞれで、パスワードがかかったファイルを正しいパスワードを入れても間違っていると表示され開けません。 また、自分で作成したファイルに対しても、読み取り・書き込みパスワードを設定するとファイルが保存できない状態になります。保存の際は何も警告は表示されませんが、実際にはファイルが保存されていない（ファイル自体が作成されない）状態です。 アプリケーションの自動修復、SP3の入れ直し、Officeをいったん削除し再インストールを行いましたが、解決しません。 Microsoftのサポートサイトにも情報はありませんでした。 解決方法のアドバイス、よろしくお願いいたします。

ACCESS2003　mscomct2.ocxを新しいパソコンに導入するには？ windows7 home premium 32bit Access2003 パソコンを買い換えたため、以前使用していたACCESS2003で作ったmdbファイルを移動しました。 開こうとしましたがエラーが出て開かず（エラーの内容は忘れましたが、何かが足りないといった事だったと思います）、日付の入力にDTPickerを使用していたことに気付いてmscomct2.ocxをwindows\system32フォルダに入れました。 無事、起動は出来たのですが、フォームを開こうとすると「このコントロールにはオブジェクトがありません」というメッセージが現れて、配置したDTPickerが消えています。 フォームの　ツール－ActiveXコントロール　の利用可能なコントロールの中には入っておらず（当然^^;)、登録から　mscomct2.ocx　を選択すると「追加することはできませんでした。別のセットアッププログラムを使って追加してください。」と出ます。 そこで、Visual Basic　の　ツール－参照設定　を見てみますと　参照可能なライブラリファイルの中に　Microsoft Windows Common Control-2 6.0(SP4) にチェックが入っています。 試しにと、一度チェックをはずしてACCESSを再起動してみると　Microsoft Windows Common Control-2 6.0(SP4)　が消えていてチェックを入れることも出来なくなりました。（でも、起動はします。） mscomct2.ocxを使えるようにするにはどのようにしたら良いのでしょうか？ 以前、パソコンがクラッシュして再インストールしたときは　mscomct2.ocx　をsystem32に放り込んだだけで問題なかったような気がしたのですが・・・。7は少し違うのでしょうか？ もし同様の経験のある方がいらっしゃいましたら是非ともご教示下さい。