WWolf の回答履歴

　Windows98、メモリ128mbのPCにおいて、コントロールパネル→ネットワークコンピュータと辿って、そのプロパティを開こうとしても何も起こらなくなってしまいました。ネットワークに繋げないことは勿論のこと、そのプロパティすら設定できなくなってしまい困り果てています。（この質問は他のPCから投稿しました。） 　何をどうすればよいのか、おわかりになる方がいればよろしくお願いします。 　なお、特に知りたいことはどのようなシステムファイルがおかしくなってこの現象が起ったのか、正常なパソコンからどのようなファイルを複写すればそれが直るのか、それを知りたいと思っています。同じ仕様の正常なパソコンが別にあるので、それから正常なシステムファイルを複写出来ないかと考えています。

ご存知の方、教えていただけませんか。 エクセルファイルが読み取り専用になってしまいました。 解除方法として ・ファイルのプロパティの属性の「読取専用」のチェックボックスは入っていない ・コピーはできる状況 ・本体の再起動は何度も済み ・エクセル再インストール済 ・コピーをして、そのコピーを消去し、復旧ソフトで復旧させても読み取り専用となる ・ＯＳはＷＩＮ９８、ＥＸＣＥＬは９７ ・ドライブのエラーチェック済 ・自宅のパソコンでＬＡＮ接続なし 以上のことは全て行なっています。 ご存知の方いらっしゃいましたら よろしくお願いします。

Sheet1に入力シートを作成し、Sheet2に蓄積シートを作成しました。 Sheet1で作成されたデータをSheet2に蓄積させておきたい。 Sheet1のA2の値が入力された場合に実行するとすると Sheet1のデータ数は、毎回異なります。 他を参考に以下のように作ってみたのですが、 Private Sub Worksheet_Change(ByVal Target As Range) Dim lastA As Long, lastB As Long, ws1 As Worksheet, ws2 As Worksheet Set ws1 = Sheets("入力シート") Set ws2 = Sheets("蓄積シート") With Target If .Address <> "$A$2" Or .Count <> 1 Or IsEmpty(Target) Then Exit Sub If WorksheetFunction.Count(ws1.Range("a1:s1")) <> 19 Then Exit Sub lastA = ws2.Range("a65536").End(xlUp).Row lastB = ws1.Range(("a2:s2"), Selection.End(xlDown)).Select ws2.Range("a" & lastA + 1).Resize(1, 19).Value = _ ws1.Range("a2:S2").Resize(1, 19).Value End With End Sub 'ws1.Range("a2:S2").Resize(1, 19).Value　の部分で '上記ws1の範囲の内、Row2の値しかws2へ反映されません どなたか教えて頂けないでしょうか。

エクセルで、時間が経つと 更新できますか 時間表示などで、PM12時をすぎると 赤で表示など、 時間が経つと、印刷、新シートへコピーなど・・ 設定できますか・・

Sheet1に入力シートを作成し、Sheet2に蓄積シートを作成しました。 Sheet1で作成されたデータをSheet2に蓄積させておきたい。 Sheet1のA2の値が入力された場合に実行するとすると Sheet1のデータ数は、毎回異なります。 他を参考に以下のように作ってみたのですが、 Private Sub Worksheet_Change(ByVal Target As Range) Dim lastA As Long, lastB As Long, ws1 As Worksheet, ws2 As Worksheet Set ws1 = Sheets("入力シート") Set ws2 = Sheets("蓄積シート") With Target If .Address <> "$A$2" Or .Count <> 1 Or IsEmpty(Target) Then Exit Sub If WorksheetFunction.Count(ws1.Range("a1:s1")) <> 19 Then Exit Sub lastA = ws2.Range("a65536").End(xlUp).Row lastB = ws1.Range(("a2:s2"), Selection.End(xlDown)).Select ws2.Range("a" & lastA + 1).Resize(1, 19).Value = _ ws1.Range("a2:S2").Resize(1, 19).Value End With End Sub 'ws1.Range("a2:S2").Resize(1, 19).Value　の部分で '上記ws1の範囲の内、Row2の値しかws2へ反映されません どなたか教えて頂けないでしょうか。

Sheet1に入力シートを作成し、Sheet2に蓄積シートを作成しました。 Sheet1で作成されたデータをSheet2に蓄積させておきたい。 Sheet1のA2の値が入力された場合に実行するとすると Sheet1のデータ数は、毎回異なります。 他を参考に以下のように作ってみたのですが、 Private Sub Worksheet_Change(ByVal Target As Range) Dim lastA As Long, lastB As Long, ws1 As Worksheet, ws2 As Worksheet Set ws1 = Sheets("入力シート") Set ws2 = Sheets("蓄積シート") With Target If .Address <> "$A$2" Or .Count <> 1 Or IsEmpty(Target) Then Exit Sub If WorksheetFunction.Count(ws1.Range("a1:s1")) <> 19 Then Exit Sub lastA = ws2.Range("a65536").End(xlUp).Row lastB = ws1.Range(("a2:s2"), Selection.End(xlDown)).Select ws2.Range("a" & lastA + 1).Resize(1, 19).Value = _ ws1.Range("a2:S2").Resize(1, 19).Value End With End Sub 'ws1.Range("a2:S2").Resize(1, 19).Value　の部分で '上記ws1の範囲の内、Row2の値しかws2へ反映されません どなたか教えて頂けないでしょうか。

６時間くらい動作するＥＸＣＥＬ２０００のマクロ作ったのですが、間違えて重複起動をしてしまうことがあります。 次のような対応策を考えてみたのですが、マクロの作り方がわかりません。 (1)マクロの起動時に、マクロ内で現在動作しているマクロと重複チェックを行い、現在動作しているマクロを終了し、新たにマクロを開始する方法 (2)マクロの起動時に、マクロ内で現在動作しているマクロと重複チェックを行い、エラーメッセージを出力する方法 (3)現在稼動しているマクロを表示確認できる方法 他の方法でも結構ですので、マクロをご教示ください。 よろしくお願いします。

こんばんは。 今ＷＯＲＤで年賀葉書を作っています。 毎年ワープロでやっていたのですが、今年からパソコンでやってみることにしたのですが、 自分の住所などを書くところにファックスの番号を書きたいのですがＦＡＸという記号はワードにはないのでしょうか？ 電話番号の「Tel」は記号で出るので、できればファックスも記号で書いてスッキリさせたいのですが、何回か色々やってみたり、調べたりも下のですが、よくわからなかったので、ご教授お願い致しますm(_ _)m

再度、教えてもらいたいのですが。今、エクセルの横の列256個のセルの中に数値が一つずつ入ってとして、それをひとつのセルのなかに256個の全数値を入れたいとして（数値同士はスペースで区切られる）、どのような方法がありますか？簡単な方法はあるのでしょうか？

今、例えば1行目に、１　２　３　４・・・と一つのセル毎に一つずつ数字が入っているとして、その数字を一つのセルの中に（例えば1行1列のセルの中に）１　２　３　４　・・・と（スペースを空けた状態で）入れる方法はあるのでしょうか？知ってる方、どうか教えてください。

　IBMのThinkPadでXPを使用しています．電源はいつも入れたままにしています． 　しばらく触らないでいると，次にキーボードから入力した際に最初に押下したものを認識しないようです(それ以降は大丈夫です)． 　例えば，ノートパッドを起動したまま30分ほど放置していると，次に押した最初の文字は入力されず，画面に表示されるのは二番目からです． 　何か問題でもあるのでしょうか?

６時間くらい動作するＥＸＣＥＬ２０００のマクロ作ったのですが、間違えて重複起動をしてしまうことがあります。 次のような対応策を考えてみたのですが、マクロの作り方がわかりません。 (1)マクロの起動時に、マクロ内で現在動作しているマクロと重複チェックを行い、現在動作しているマクロを終了し、新たにマクロを開始する方法 (2)マクロの起動時に、マクロ内で現在動作しているマクロと重複チェックを行い、エラーメッセージを出力する方法 (3)現在稼動しているマクロを表示確認できる方法 他の方法でも結構ですので、マクロをご教示ください。 よろしくお願いします。

Excel2000でシートのコピーが出来なくて困っています。 シートが６つあり、他のシートはコピーすることが出来るのに、ある一つのシートだけがコピーできません。 そのシートを他のブックへコピーすることは出来たのですが、その新しいブック内でそのシートのコピーを作ろうとするとやはりダメです。 シートの保護はしておりません。 何かわかる方が見えましたら御教示下さい。

マクロの中で、今日の日付を設定する書き方を教えてください。例えば、セル A1に今日の日付を設定する。 A1に =today() を書くのではなくて、today()の返す値を設定するということになります。よろしくお願いします。 Sub test1() 　　　............ End Sub

マクロの中で、今日の日付を設定する書き方を教えてください。例えば、セル A1に今日の日付を設定する。 A1に =today() を書くのではなくて、today()の返す値を設定するということになります。よろしくお願いします。 Sub test1() 　　　............ End Sub

ウインドウズXPを使っています。 イベントビューアでシステムのイベントを見ていたら、次のような警告がありました。 ～ タイム プロバイダが使用可能なタイム スタンプを提供できていないため、 システム時刻を 49152 秒同期することができません。システム時刻の同期は とれていません。 詳細な情報は、http://go.microsoft.com/fwlink/events.asp の [ヘルプとサポート センター] を参照してください。 ～ 上記アドレスを見てみたのですが、英語ばかりでさっぱりわかりません。 どうやったらシステム時刻と同期できるのでしょうか？教えてください。 よろしくお願いします。

エクセル上で、 Aフォルダ内にファイルBook1～数十個があり、Book1にはシート名「sh1」、Book2にはシート名「st2」のみがぞれぞれあります。シート内のデータ数はバラバラで何行のデータがあるか不明ですが、列数は同一です。 このファイルすべてを開かずに、今開いている、「加工.xls」のsheet1にまとめたいと思っています。（sh1の下にsh2、その下にsh3・・・を繰り返して、「加工.xls」のsheet1に貼り付ける。行間は空けず一覧表にする。フォルダ内のファイルが無くなったら終了する。）こんな感じのをマクロでやりたいと思っています。 ファイルを開かないで行う方法は、何とか過去の質問を調べてApplication.ExecuteExcel4Macroを使ってやろうとしていますが、応用が利きませんでした。開いていないファイルの最終行をどう取得選択してsheet1に持ってくればよいか分からず悩んでいます。 よろしくお願いいたします。

No.373903を拝見しまして、閉じたままのブックを参照できるらしいので使いたいのですが、ブックが複数ある場合、［　］内はどのように書けば良いのでしょう？ 例） Cells(1, 1) = Application.ExecuteExcel4Macro _ ("'C:\My Documents\[Book2.xls]Sheet1'!R1C1") Book2・sheet1の部分が可変。 また、 Application.ExecuteExcel4Macro("get.document(50)") や Application.ExecuteExcel4Macro ("Halt(True)") 等の使い方もあるようですが、どなたかわかりやすく教えて頂けませんか？

　エクセルのシートを、行高さ、列幅などを崩さずに完全に他のシート又は他のブックにコピーできますか？

現在のカーソルがある行の特定の列に値を書き込むマクロの書き方を教えてください。以下は２０行めのＡ列、Ｂ列にa, b を書き込むものですが、最初のRange("A20").Selectをカレント行に設定するコードを書けばいいのでしょうか？具体的な記述を教えてください。よろしくお願いします。 Sub Macro4() Range("A20").Select ActiveCell.FormulaR1C1 = "a" Range("B20").Select ActiveCell.FormulaR1C1 = "b" Range("C20").Select End Sub