pkh4989 の回答履歴

以前は仕事と話しましたが、勉強が仕事みたいでした； すみません。また質問させてください。 ＶＢＡで日付をやる際Format(Date, "ggge年m月d日")というようなソースを書くと思うのですが、今回知りたいのが入力フォームというブックに日付をセットすると予め用意されている別のブックの表にそのセットした日付から１ヶ月間分の日付と曜日を行に貼り付けていきたいのですがどうしたらいいのでしょうか？ 日付を一年前までの日付かどうかのチェックのソースもよろしくおねがいします。 その入力フォームのマクロはまだ、値チェックまでしかできていません。 意味不明かもしれませんが何卒よろしくお願いします。 ------------ソース------------------ Option Explicit Private Sub CommandButton1_Click() If Worksheets("日付セット").Range("C6") = "" Then '値が入っているか MsgBox ("日付を入力してください！") Exit Sub Else End If End Sub

EXCELのシートを追加したり削除したりしていると Sheet番号が飛び番になってわかりにくくなると思います。 この番号を振りなおすことは出来るでしょうか。 例えば、 新しいBOOKを開くと、sheet1～sheet3があると思います。 そこに新しいシートを追加してsheet4を作ります。 次にsheet3を削除します。 VBEを開いて、プロジェクトエクスプローラーで見てみると sheet1(sheet1) sheet2(sheet2) sheet4(sheet4) となっていると思います。 この状態で、 sheet4(sheet4)の名称を、sheet3に変更しようとしても sheet4(sheet3)とはできますが sheet3(sheet3)にすることがができません。 そういうものなんでしょうか。 よろしくお願いいたします。

シートをダブルクリックする事で、ユーザフォームを起動させるマクロを作っているのですが、 ダブルクリック時にクリックしたセルのアドレス値を取得することって出来るのでしょうか。 作業環境は、WindowsXP/Excel2003/VB6です。 ご存知の方がいましたら、ご指導お願い致します。

コマンドボタンで、Sheet1のA2セルからA100セルとC2セルからC100セルをコピーしたものを、Sheet2のB2セルからB100セルと、C2セルからC100セルに貼り付けるには、どのように書けばいいのでしょう？ 何度やっても上手くいきません。 教えてください。

コマンドボタンで、Sheet1のA2セルからA100セルとC2セルからC100セルをコピーしたものを、Sheet2のB2セルからB100セルと、C2セルからC100セルに貼り付けるには、どのように書けばいいのでしょう？ 何度やっても上手くいきません。 教えてください。

コード(7桁)、単価、数量、金額、日付(年月日6桁表示)のテーブルと コード、部門コード(コードの上3桁)の選択クエリと 部門コード、部門名称のテーブルを結合して コード_部門(コードの上3桁)、コード_追番(コードの下4桁)、部門名称、単価、数量、金額、日付_年(日付の分割・2桁)、日付_月(日付の分割・2桁)、日付_日(日付の分割・2桁)、を他のテーブルに抽出する追加クエリを作成し、条件として部門コードに対応する部門名称が無い場合そのフィールドは空白でレコード自体は表示するようにしたいのですが、どうすれば良いのでしょうか？ いくらやっても対応する部門名称が無い場合、抽出されずにレコード自体が表示されなくなってしまいます。 拙い文章で上手く内容が伝わらないかもしれませんが、どなたかご教授下さい。

こんにちは。 excel関数で利用したいので、 フォルダの中にあるファイル名をエクセルのセルにわけて表示させるマクロを紹介していただけませんか？ １年くらい前に、こちらでどなたかがお勧めされていたexcelVBAサンプルをダウンロードして利用していましたが、会社を転職して、前会社から持ち出せませんでした。フリーソフトだと、会社のセキュリティー上ＤＬできないので、お勧めがありましたら、どうぞお教え下さい。 ファイル情報として更新日や容量も抽出できるものがexcelで欲しいのです。 どうぞ宜しくお願いいたします。

エクセル2000です。 以下のワークシートチェンジイベントがうまくいきません。 Targetに値が入る場合は問題ないのですが、TargetをクリアしてもRange("F5").MergeAreaがクリアされません。 Targetをクリアした後、TargetをダブルクリックしてからEnterキーを押せばRange("F5").MergeAreaがクリアされるのですが、いちいちそうさせるわけにもいきません。 どうしたらよいのでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$5" Then Exit Sub If Target.Value <> "" Then Range("F5").Value = Range("D42").Value Else Range("F5").MergeArea.ClearContents End If End Sub

エクセル2000です。 以下のワークシートチェンジイベントがうまくいきません。 Targetに値が入る場合は問題ないのですが、TargetをクリアしてもRange("F5").MergeAreaがクリアされません。 Targetをクリアした後、TargetをダブルクリックしてからEnterキーを押せばRange("F5").MergeAreaがクリアされるのですが、いちいちそうさせるわけにもいきません。 どうしたらよいのでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$5" Then Exit Sub If Target.Value <> "" Then Range("F5").Value = Range("D42").Value Else Range("F5").MergeArea.ClearContents End If End Sub

エクセル2000です。 以下のワークシートチェンジイベントがうまくいきません。 Targetに値が入る場合は問題ないのですが、TargetをクリアしてもRange("F5").MergeAreaがクリアされません。 Targetをクリアした後、TargetをダブルクリックしてからEnterキーを押せばRange("F5").MergeAreaがクリアされるのですが、いちいちそうさせるわけにもいきません。 どうしたらよいのでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$5" Then Exit Sub If Target.Value <> "" Then Range("F5").Value = Range("D42").Value Else Range("F5").MergeArea.ClearContents End If End Sub

また質問に来ちゃいました。 VBAを使って自動保存にしたいんです。 同じタイトルになる場合上書きのアラートが出ると思うのですが、アラートを出さずに上書きをせず「タイトル_○○」というようなタイトルで保存はできるのでしょうか？ 教えてください。 意味が解らないかもしれませんがこれが精一杯です； ちなみに上書き処理をしないようにした場合 -------------------------------------- name = Format(Date, "ggge年m月分") & ".xls" '処理をした日の月で保存 Application.DisplayAlerts = False ActiveWorkbook.SaveAs FileName:= _ "C:\Documents and Settings\PC Users\デスクトップ\研修課題\" & name, FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Application.DisplayAlerts = True ----------------------------------------------------------- 上のは給料明細を作成したときのものですが・・・ このときは上書き保存のアラートも出さず上書きもしないで保存されていたら処理終了にしたんです。 くどいようですが、アラートを出さずに上書きでもなく同じタイトルでも中身が違うという想定で「タイトル_○○」というような形にして別途保存したいです。 タイトルは処理した日の日付です。 本日であれば20081014という保存が最初にできると思いますが、保存した日に再度処理を行ったときに「20081014_2」とか「20081024_2」というようなタイトルにして保存をしたいんです。 意味が解らないかもしれませんがご指導のほどよろしくお願いします。

エクセル2000です。 以下のワークシートチェンジイベントがうまくいきません。 Targetに値が入る場合は問題ないのですが、TargetをクリアしてもRange("F5").MergeAreaがクリアされません。 Targetをクリアした後、TargetをダブルクリックしてからEnterキーを押せばRange("F5").MergeAreaがクリアされるのですが、いちいちそうさせるわけにもいきません。 どうしたらよいのでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$5" Then Exit Sub If Target.Value <> "" Then Range("F5").Value = Range("D42").Value Else Range("F5").MergeArea.ClearContents End If End Sub

過去ログを検索したのですが載っていなかったので質問させて頂きます。 指定したフォルダ毎の容量を管理したいと考え,ネットで拾った以下のソースをEXCELで動かしましたが「書き込みできません」というエラーと共に書き込めませんでした。 Sub FolderSize_Count() Dim FSO As Variant Set FSO = CreateObject("Scripting.FileSystemObject") Dim Path As String With Sheets("Sheet2") Path = Application.Worksheets("sheet1").Range("A1").Value Sheet2.Cells(1, 1) = FSO.GetFolder(Path).Size End With End Sub 書き込めませんというキーワードで検索をGOOGLEでもかけたのですが見つからずに困っています。 もしよろしければご回答お願い致します。

エクセル2000です。 以下のワークシートチェンジイベントがうまくいきません。 Targetに値が入る場合は問題ないのですが、TargetをクリアしてもRange("F5").MergeAreaがクリアされません。 Targetをクリアした後、TargetをダブルクリックしてからEnterキーを押せばRange("F5").MergeAreaがクリアされるのですが、いちいちそうさせるわけにもいきません。 どうしたらよいのでしょうか？ Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$5" Then Exit Sub If Target.Value <> "" Then Range("F5").Value = Range("D42").Value Else Range("F5").MergeArea.ClearContents End If End Sub

XPsp2 Excel2000 セルの初期設定配置で常に折りたたんで表示させることはできますか？ Ａに、あいうえおと入力すると Ａ　　Ｂ　　Ｃ あいうえお となってしまい、Ｂに何か入力しないと隠して表示できません Ａ　　Ｂ　　Ｃ あいう と、Ａにあいうえおと入力しただけで表示させたいのですが方法はありますか？

XPsp2 Excel2000 セルの初期設定配置で常に折りたたんで表示させることはできますか？ Ａに、あいうえおと入力すると Ａ　　Ｂ　　Ｃ あいうえお となってしまい、Ｂに何か入力しないと隠して表示できません Ａ　　Ｂ　　Ｃ あいう と、Ａにあいうえおと入力しただけで表示させたいのですが方法はありますか？

こんにちは。 excel関数で利用したいので、 フォルダの中にあるファイル名をエクセルのセルにわけて表示させるマクロを紹介していただけませんか？ １年くらい前に、こちらでどなたかがお勧めされていたexcelVBAサンプルをダウンロードして利用していましたが、会社を転職して、前会社から持ち出せませんでした。フリーソフトだと、会社のセキュリティー上ＤＬできないので、お勧めがありましたら、どうぞお教え下さい。 ファイル情報として更新日や容量も抽出できるものがexcelで欲しいのです。 どうぞ宜しくお願いいたします。

EXCEL VBAでの質問です。 例えばセルA1に入力した数字を2分たったら消すというマクロを作成したいのですが。 現在時刻から2分後に数字を消すというマクロは組めたのですが、 A1にセルをいれてから2分後というのが分かりません。 OnTimeを使うとは思うんですが。。。。 おねがいします。助けてください。

お世話になります。 ＶＢＡで、西暦年表示を下２桁で表示させたく、 そして、月も含めて大文字に変換してエクセルシート のシート名としたいのです。 下記の様なイメージです。 月表示は一桁の月は一桁表示です。 シートは当月と次月分と二つ作りたいのですが、 ご教示頂きたく宜しくお願い致します。 　　　　　　　記 　　○○年○月

マクロ【色飛ばし】 御世話になります。 あるセルにある文字を入れるんですが、それが白色のセルなら普通にその文字を入れ、もし青色のセルだったらその隣のセルにその文字を入れる。だがまたそのセルが青なら・・・と白になるまで入れないマクロは作成可能でしょうか？ 何か簡単なサンプルコードがあれば助かります。 宜しくお願い致します。