Wendy02 の回答履歴

EXCEL2000にてV4マクロにて書かれたEXCELアドインがあります。 これをEXCEL2000のVBAに書き直して欲しいという依頼がありますが、 V4マクロよりVBAにて無理な事や注意点があれば教えてください。 よろしくお願いします

エクセルで「=500-498.2」と入力すると、そのセルには「1.8」になるのですが、そのセルを値のみコピーにすると「1.80000000000001」になります。 いろいろ試してみたところ、 10-9.8=0.199999999999999 1400-1396.3=3.70000000000005など、位が少なくなるときにおこるようです。 これは、バグなのかわざとなのかどちらでしょうか。 別に今現在困っているというわけではないのですが、偏差値の計算をしているときに偶然答えが0になるはずのところが10のマイナス乗で表示されたので、気持ち悪くて・・・（笑） 単純に知りたいだけです。 バグじゃないとしたら、どういう理屈、条件でこのような計算結果を返すのか教えてください。 ちなみに、MacとWindows両方のOSで確認されました。

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

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

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

エクセルVBAで、エクセルの指定シートに複数のCSVファイルからデータを取得する方法を ご教授お願います。 エクセルの指定シートの指定されたセルに、複数のCSVファイルから指定箇所のデータを 取得し転送する方法を考えていますが、どうもうまくいきません。 たとえば、 CSVファイル(1)　A5（A） 　　　　　　　　　　A10（B） CSVファイル(2)　A5（C） 　　　　　　　　　　A10（D）　　　　　 CSVファイル(3)　A5（E） 　　　　　　　　　　A10（F）　　　 　　　　　・ 　　　　　・ 　　　　　・ と、指定されたセルからデータを取得し、 エクセルの指定シートの表に 　　　　　　　　　　　　　　　　　　　CSVファイル　　　　　　　　　　　　　　　 　　　　　　　　　　　　　　　　　(1)　　(2)　　(3)　・　・　・ ------------------------------------------- A5から取得したデータ　　　　A　　 C　　 E ・　・　・ A10から取得したデータ 　　 B 　　D 　　F　・　・　・ ------------------------------------------- と、いうように転送して貼り付けていきたいです。 いろいろ調べてみたのですが、このような方法が見つけられませんでした。 ぜひ、皆様のお知恵をお貸しください。 宜しくお願い致します。

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

いつもありがとうございます。エクセル２００３XPです。 毎回USBメモリーに上書きされてくる、同名のCSVファイルを別エクセルファイルに読み込む作業をしております。 その作業は外部データの読み込みを記憶マクロとして問題ないのですが、エクセルに読み込んだCSVファイルは、かぶらないようにそのつど、Kill を使い削除しております。 ただ完全に削除なので対策として、 読み込んだCSVファイルの１行目のセル名をファイル名として名前を変えて保存、 PCの"C:\Documents and Settings\元データ に毎回CSVもしくは、エクセルファイルに名前を変更して保存する処理をボタンひとつで出来ないか、考えております。 ネットで色々と検索をしておりますが、勉強不足です。 参考でサンプルマクロは見つけましたが、どのように変更すれば良いか分かりません。ご享受いただければ助かります。 CSVファイル名 ： log001.csv(毎回、USB) 保存したいファイル名 ： CSVファイルを開いた時のA１のセル名（日付です） 保存場所 ： PCのマイドキュメントの元データファイル 保存したいファイル形式 ： CSVもしくはExcelファイル Sub THSFILE_SAVE() Dim myFname0 As String Dim myFname As String On Error GoTo ERRH '現在のファイル名取得 myFname0 = ThisWorkbook.Name '新しいファイル名をセルA1の値とする myFname = Sheets(1).Range("A1").Value '同じ階層に保存 ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & myFname If myFname0 <> myFname & ".xls" Then '前の名前のファイルを削除する場合は下の一行を有効にしてください 'Kill ThisWorkbook.Path & "\" & myFname0 End If Exit Sub ERRH: End Sub この処理はCSVファイルの読み込み先のエクセルファイルから、行いたいと考えております。 よろしくお願致します。

ExcelのVBAでのソートについて教えていただきたいと思います。 行を並べ替える（２行目が見出し行なので，３行目以降）のですが， 或る列（C列）に特定の漢字が入っている行を， 一番下にしたいのですが， どのようにすればよろしいでしょうか？ ３行目以降のイメージとしては： あい　う　　　え和えええ おか　きき　　くけこ さし　すすす　せそ和 たち　つて　　和となにぬねの はひ　ふへ　　ほ ↓ おか　きき　　くけこ はひ　ふへ　　ほ あい　う　　　え和えええ さし　すすす　せそ和 たち　つて　　和となにぬねの 上記の例のように， 「和」という文字がC列に含まれている行のみを下のほうに集め， 入っていない行を上のほうに集めたいのです。 上記はイメージなので， 実際は， 「特定の文字だけが漢字で，他はすべて平仮名」なんてことはありません。 「和」という文字がC列に含まれている行のみを下のほうに集めるという並べ替え前の 行の順序は， 必ずしも保たれている必要はありません。 Excel2000ですが，回答は他のバージョンでもいいです。 どのバージョンか断っていただくとこちらとしても参考になります。

私はWindows７ユーザーです。仕事関係でメールを書いたり、MS-wordで文章を作成していると、 ついつい英和辞典が必要だったり和英辞典、国語辞典が必要になったりします。 皆さんはそういう場合はどういうソフトを使っていらっしゃいますか？お薦めはありますでしょうか？ 当方は昔Office2002に無料で付いてきたMS-Bookshelfを使い続けています。 （中身は研究者の英和・和英中辞典＋国語辞書の電子版） ロボワードというソフトも買ったのですが、確かBookshelfより細かいのですが、 使い勝手はBookshelfの方が断然上に感じます。 文の自動翻訳が欲しいのではなく、あくまでも辞書的に使いたいのです。 ご紹介、よろしくお願いいたします。

BASP21でのFTPサーバーへのアップデートが出来ないです。 BASP21をインストールし、サーバーのユーザー名やパスワードも あっている状態です。 しかし、アップデートすると 「を送信できませんでした。」 と表示され、アップデートできませんでした。 「FTP接続できませんでした。」は抜けているので、 それ以外が原因だとは思うのですが分かりません。 Visual Basicのサンプルから書きました。 以下の通りです。 初心者のため質問に不備があるかもしれません。 予めお許しください。 Sub FTPサーバーにUP() Dim FTP, rc As Long, Server As String, User As String, Pass As String Dim Target As String, Folder As String Set FTP = CreateObject("basp21.FTP") ''FTPオブジェクト Server = "ftp.●●●●●●.jp" ''ホストアドレス User = "●●●●●●" ''ユーザー名 Pass = "●●●●●●●●" ''パスワード Target = "C:\Users\●●\Desktop.エクセルファイル.xls" ''送信ファイル If Target = "False" Then Exit Sub Folder = "/home/●●●●●●/●●●●/●●●/状況" rc = FTP.Connect(Server, User, Pass) If rc <> 0 Then MsgBox "FTP接続できませんでした。", vbCritical FTP.Close Exit Sub End If rc = FTP.PutFile(Target, Folder) If rc <> 1 Then MsgBox Dir(Target) & "を送信できませんでした。", vbCritical FTP.Close Exit Sub End If MsgBox Dir(Target) & "を送信しました。", vbInformation FTP.Close End Sub

　EXCELL2000を使っています。OSはWindows XPです。 　あるブックで、これを開くとき、いつの頃からか分からないのですが、「開いているブックには、ほかのファイルへの自動リンクが設定されています。・・・・」とういメッセージが出るようになりました。 　開こうとするブックで　「リンクの設定」を見ると確かに他のブックにリンクがかかっているようですが、このブックへのリンクを張るような数式またはマクロを書いた記憶がありません。 　このリンクを解除する方法があるようですが、Microsoftなどのサイトに見る説明はよく理解できません。 　そこで、 １．リンクのかかっている数式またはマクロなどのありかを知る方法はあるのでしょうか？ ２．リンクを強制的に解除するにはどういう手順を踏めばよいのでしょうか？ の２点についてご教示いただきたいと思います。

各項目毎の集計計算をしたいのですが 例 R1C1=項目区分1 R1C2.FormulaR1C1="=SUMIF(C3,""Zn"",C2)" のような計算式をセットしたい R2C1="" R2C2=2 R2C3=Z1 R3C1="" R3C2=3 R3C3=Z1 R4C1=項目区分2 R4C2.FormulaR1C1="=SUMIF(C3,""Zn"",C2)" のような計算式をセットしたい R5C1="" R5C2=4 R5C3=Z2 R6C1="" R6C2=5 R6C3=Z2 Cells(1,2).FormulaR1C1= "=SUMIF(C3,""Zn"",C2)" 但し Cells(1,2)のROW 部分は項目区分を入力したROWアドレスとなります。 上記部分の n部分を変数指定はできるのでしょうか? または Zn を変数指定はできるのでしょうか?この場合のZnは数値となります。 理由 区分の範囲が不特定の為(追加削除がある) 項目区分名のカラム2に計算式をセットしておきたい どうかご教授をお願いいたします。

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

題名通りのプログラムを作成しています。今回お聞きしたいのは、InputBox内の内容と入力した内容をIf文などで "=" とするにはどうすればいいか、ということです。たとえば、 array1 = "季節" array2 = "冬" kotae = InputBox(問１ : array1 & "は" & array2 & "です") とした時、If文で「もし、入力した内容（kotae）と"季節は冬です"という文が等しいならば」というような式を作り、合っていればseikai + 1、異なればそのまま、といった感じです。簡単にいえばタイピングです。参考書も見たりしたのですが、解決策が出てきません。すごく単純な気もするんですが…文字だと混乱して何が何だか（汗 ご教授お願いします。

住所録を管理できるシステムを作っています。 ２番目のシートを検索＆結果表示のシート、３番目～１０番目のシートにはユーザーフォームを使ってデータを入力して蓄積していくシートとしています。 検索はアドバンスフィルターを使っています。 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 このマクロでは、ユーザーフォームを使って入力していったデータを検索することはできるのですが、他のエクセルシートからデータをコピー＆ペーストしたり、直接入力をすると検索できません。 何が原因なのでしょうか。教えてください。

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

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

こんにちは。いつもいろいろアドバイスいただいてありがとうございます。 少し前に入れたoffice2010の wordとexellがしょっちゅうフリーズして困っています。 しばらく打てることもありますが、 立ち上げてちょっと打つとすぐにフリーズ（応答なし）になることもしょちゅうです。 また、一旦タスクマネージャーで終了させて立ち上げなおしたとき、 直前のバックアップがされていなくて、 自分で上書きした部分までしか残っていない状態です。 （私の勘違いだったらすみませんが、以前は、 フリーズしたときなど、直前のデータが残されていたように思うのですが） また、無事に終了して閉じる場合も、 テンプレートに変更がされています・・というような文面が出て、 マクロの拡張子が表示された状態で保存の画面がよく出てきます。 word、exellとも、終了させるまでに ２，３ダイアログボックス（？）が出てくるようなことがよくあります。 仕事の資料なども、作成中にしょっちゅう応答なしになり、 また打ち直さなくてはならないことがしょっちゅうなのでほとほと困っています。 どなたか、どのようにすれば解決されるか アドバイスを頂戴できると大変ありがたいのですが・・。 ・ＯＳ　ＷＩＮＤＯＷＳ７（ＶＩＳＴＡからアップグレード） ・ＰＣ　ＮＥＣ　ＬＡＶＩＥ ・ＷＯＲＤ　EXELともに2010 です。 他になにか必要な情報がございましたらご指摘いただければ追加いたします。 どうぞよろしくお願いいたしますm（_　_）m

仕事のWORDファイルが使用できず困っています。 資料は取扱説明書のためボリュームが多く作り直し時間がありません。 よいアドバイスをいただけませんでしょうか。よろしくお願いいたします。 ・バージョンはWORD2003です。 ・WORDファイルを開くことはできますが、すぐに「応答なし」となり、何も操作できません。 メニュー（ファイル、編集、ツール・・・等）も全く操作できません。砂時計が出てきりです。 ・やむなく強制終了した後にWORD2003を起動すると修復ファイルが存在しますが、その修復ファイルを開いても全く同様の現象で、何も操作ができません。 ・その他のファイルは正常に編集・操作することができます。また、自宅のパソコンで開いても、会社のファイルで開いても全く同じ現象です。そのため、該当ファイル固有の問題と考えられます。 ・該当ファイルを開く際に、「修復して開く」を使用してみましたが全く同じ現象でした。 以上、何かよい対処方法はありませんでしょうか。実は納期があり急いでいます。 何卒ご教示のほどよろしくお願いいたします。