pkh4989 の回答履歴

VBAでファイルの読み取り保護を判定するには？ エクセルVBAで開いたexcelファイルに保存オプションで指定する「読み取りパスワード」が設定されているか否かを判定するにはどの様な記述をするのでしょうか。 ブックの保護非保護判定は、質問番号：2285577 moooonさんの質問にあるのですが・・・

エクセルのグラフについてお教えください。 下の様なデータを元にグラフを作ろうとしております。 A社管理職　100,000 A社管理職　120,000 A社管理職　100,000 A社管理職　110,000 A社専門職 100,000 A社専門職 104,000 A社専門職 110,000 B社管理職　200,000 B社管理職　220,000 B社管理職　200,000 B社管理職　210,000 B社専門職 110,000 B社専門職 124,000 B社専門職 130,000 グラフはＡ社、Ｂ社の管理職、専門職で縦に まとめて分布の範囲が見られるようにしたいと 思っております。 　　　　　*　 　　　　　* 　　* 　　* 　　* 　　* 　　*　　* 　*　　　* 　*　　　* 　*　　　* Ａ Ａ Ｂ Ｂ 専 管 専 管 検索していて時系列折れ線グラフということで できるようなことが書いてあったのですが、 どのように作成するのかわかりませんでした。。 申し訳ありませんが、お教えいただければ幸いです。 エクセル2007を使用しております。 よろしくお願いします。

エクセルのグラフについてお教えください。 下の様なデータを元にグラフを作ろうとしております。 A社管理職　100,000 A社管理職　120,000 A社管理職　100,000 A社管理職　110,000 A社専門職 100,000 A社専門職 104,000 A社専門職 110,000 B社管理職　200,000 B社管理職　220,000 B社管理職　200,000 B社管理職　210,000 B社専門職 110,000 B社専門職 124,000 B社専門職 130,000 グラフはＡ社、Ｂ社の管理職、専門職で縦に まとめて分布の範囲が見られるようにしたいと 思っております。 　　　　　*　 　　　　　* 　　* 　　* 　　* 　　* 　　*　　* 　*　　　* 　*　　　* 　*　　　* Ａ Ａ Ｂ Ｂ 専 管 専 管 検索していて時系列折れ線グラフということで できるようなことが書いてあったのですが、 どのように作成するのかわかりませんでした。。 申し訳ありませんが、お教えいただければ幸いです。 エクセル2007を使用しております。 よろしくお願いします。

エクセルのグラフについてお教えください。 下の様なデータを元にグラフを作ろうとしております。 A社管理職　100,000 A社管理職　120,000 A社管理職　100,000 A社管理職　110,000 A社専門職 100,000 A社専門職 104,000 A社専門職 110,000 B社管理職　200,000 B社管理職　220,000 B社管理職　200,000 B社管理職　210,000 B社専門職 110,000 B社専門職 124,000 B社専門職 130,000 グラフはＡ社、Ｂ社の管理職、専門職で縦に まとめて分布の範囲が見られるようにしたいと 思っております。 　　　　　*　 　　　　　* 　　* 　　* 　　* 　　* 　　*　　* 　*　　　* 　*　　　* 　*　　　* Ａ Ａ Ｂ Ｂ 専 管 専 管 検索していて時系列折れ線グラフということで できるようなことが書いてあったのですが、 どのように作成するのかわかりませんでした。。 申し訳ありませんが、お教えいただければ幸いです。 エクセル2007を使用しております。 よろしくお願いします。

条件に合うフォルダが存在するかを調べたい c:\a\ フォルダ内に、以下例のようなフォルダが存在するとします。 c:\a\ （以下c:\a\内フォルダ名） f0001_r120 f0003_c511 f0004_t141 f0006_q546 f0009_k551 f0011_g151 ・ ・ ・ このaフォルダ内に、例えば「f0004」で始まるフォルダ名のフォルダがあるかどうかを調べたいのです。 以下のようなプログラムを組んだのですが、うまく動作しません。 なお、この例でいう「f0004_t141」の「_t141」のフォルダ名部分は他プログラムでランダムに作成される文字列であり、検索する側で知りえる情報ではなく、私的にはワイルドカード「*」ようなもので処理することしか思いつきません。。（；；） If System.IO.Directory.Exists("c:\a\f0004*") Then MsgBox("ある") Else MsgBox("ない") End If おそらく、System.IO.Directory.Exists自体に「*」が使用できないと思うのですが、何か他によい方法があればどうかご教授ください。 どうぞよろしくお願いします。

照合システムを作ろうとネットを閲覧していたら次のコードが見つかりました。 Private Sub Worksheet_Change(ByVal Target As Range) Dim rr As Range If Not Intersect(Target, Range("C1:D10")) Is Nothing Then For Each rr In Intersect(Target.EntireRow, Range("C:C")) If Not IsEmpty(rr) And Not IsEmpty(rr.Offset(, 1)) Then Application.EnableEvents = False If rr.Value <> rr.Offset(, 1).Value Then Beep rr.Offset(, 2).Value = "NG" Else rr.Offset(, 2).Value = "OK" End If Application.EnableEvents = True End If Next End If End Sub このコードでいくと、C列とD列が同じであればE列にOK、間違っていればNGなのですが、C1とC2が同じであればE1にOK、間違っていればNG。次にC3とC4が同じであればE3にOK、間違っていればNG。…というふうにしたいのですが、どうすれば良いのでしょうか？

最後の文の”運動種目番号が間違っています。” を表示させたいのですが、二つ目のprintfを表示させずにその文を表示させたいんです。 何度もすみません。 よろしくお願いします。 {int a, b; printf("運動種目 ；",a); scanf("%d", &a); printf("運動時間（分）；",b); scanf("%d", &b); switch (a) { case '1': printf("消費カロリーは%5.2f(KCal)です。",b*8.60); break; case '2': printf("消費カロリーは%5.2f(KCal)です。",b*6.25); break; case '3': printf("消費カロリーは%5.2f(KCal)です。",b*4.41); break; case '4': printf("消費カロリーは%5.2f(KCal)です。",b*2.25); break; dafault: printf("運動種目番号が間違っています。"); break; } return 0; }

Excel 2003 にてマクロの実行中にESCキーを押されるとコードの実行が中断されるのを抑制したいのですができません。 シートに直接テキストボックスコントロールを貼り付けています。 そのテキストボックスにKeyDownイベントプロシージャを記述しています。 テキストボックスにIMEの全角文字を入力中（未確定状態）の時に、ESCキーを押すとコードの実行を中断しましたというダイアログが出てしまいます。 KeyDownイベントプロシージャの内容の有無にかかわらず（処理は無記入でも）、ESCキーを押すとダイアログが表示されてしまいますので、ESCキーを押してもダイアログが表示されず処理が中断されない方法はありませんでしょうか。 調べましたところ、 Application.EnableCancelKey = xlDisabled にてESCキーを無効にする事ができるそうなのですが、BOOKを開いた時のイベントにて 上記コードを記載しているのですが、抑制はできません。 何かしら別の方法で対応などはできないものなのでしょうか。 よろしくご教示をお願い申し上げます。

会社の重要書類をエクセルに保存していまして、ずっと問題なく 使用していましたが、今日突然アプリケーションが開かなくなりました。 エクセルデータで２０４Kあり、どうもデータはあるようで、 エクセルデータをワードで開くと情報はぐちゃぐちゃですが 出てくるので、データは残っているようなのですが、 画面が表示されないのです。 エクセルは開いていて、データが開かれたようになっているのですが、 肝心のデータが表示されていません。 何か考えられる対処方法ありますでしょうか？ ずっと記録してきたもので非常に重要で困っています。 アドバイスどうぞ宜しくお願い致します。

いつもお世話になっております。 K列に商品のカテゴリーコード（半角数字11桁）を入力しています。 カテゴリーの種類は固定ではありませんが約50種類ございます。 このうち特定のカテゴリー(約10種類)をK列のセルに入力しEnterを押した時に、自動的にMsgBoxが出るようにしたいのですが、どのようにVBAを書けばいいのか分かりません。メッセージは各カテゴリごとに違います。 どなたかご教示ねがえませんでしょうか？ -コードの例-　31208681600（←普通の11桁の数字です） よろしくお願い申し上げます。

いつもお世話になっております。 K列に商品のカテゴリーコード（半角数字11桁）を入力しています。 カテゴリーの種類は固定ではありませんが約50種類ございます。 このうち特定のカテゴリー(約10種類)をK列のセルに入力しEnterを押した時に、自動的にMsgBoxが出るようにしたいのですが、どのようにVBAを書けばいいのか分かりません。メッセージは各カテゴリごとに違います。 どなたかご教示ねがえませんでしょうか？ -コードの例-　31208681600（←普通の11桁の数字です） よろしくお願い申し上げます。

添付資料のような表に合計を計算させる構文を教えて下さい。 K,L,M 列について、月々の合計をA～I列に示す表に入れたいです。

いつも、お世話になっております。 右に示すテーブルから、カンマで区切られた管理番号を元に行数を求めたいと考えております。 M1を左の欄に入力したら「3」 M2を左の欄に入力したら「3」 M4を左の欄に入力したら「2」 M9を左の欄に入力したら「5」 このようなプログラムをEXCELのVBAより求めたいと考えております。 アドバイスをよろしくお願いします。

ユーザーフォームから計算式を表示させるためのテキストボックスを作成したのですが、計算結果が10桁以上になる場合はエラーを表示し、計算を行わないようにしたいと思っていますが、うまくいきません。 ↓必要そうな部分だけ抜粋してあります。 Dim miku1 Dim miku2 As Double Dim frg As String On Error GoTo myError If Len(CStr(miku2)) >= 10 Then GoTo myError Else Select Case frg Case "1" miku2 = miku2 + miku1 Case "2" miku2 = miku2 - miku1 Case "3" miku2 = miku2 * miku1 Case "4" miku2 = miku2 / miku1 End Select TextBox1 = miku2 miku1 = Null miku2 = 0 End If Exit Sub myError: MsgBox "エラーが発生しました。" End Sub miku1はstringで認識されるので問題ないのですが、miku2に関してはdoubleで認識されるので字数制限がうまくかけられません。どなたか宜しくお願いします。

よろしくお願いします。 A1：1　B1:あ A2：2　B2：い A3：3　B3：う と書いてあるまとめシートと、1、2、3というシートがあるとします。 シート1のA1セルに「あ」、シート2のA1セルに「い」、シート3のA1セルに「う」と書き込まれるように、まとめA列の文字列からシート名を呼び出して書き込むようにVBAを組んでいます。 Dim sht_n As Variant Dim sht_c As Integer i = 7 sht_n = Worksheets("まとめ").Index sht_c = ThisWorkbook.Sheets.Count For sht_n = sht_n + 1 To sht_c Step 1 If Cells(i, 1).Value = "" Then i = i + 1 Else wb = Cells(i, 1).Value Worksheets("まとめ").Cells(i,2).Select Selection.Copy ThisWorkbook.Worksheets(wb).Activate Range("A1").Select Selection.PasteSpecial Paste:=xlValues こんな感じ。 下手なのは分かってます。あと、現在使っているものから書き出しているので間違えてる部分もあるかもしれません。 この状態だと、シート1がない場合にはエラーが出てしまって、そこで終わってしまいます。 まとめシートが空欄の場合はエラーを回避しているのですが、シートがない場合の回避方法が分かりません。 On Error Resume Nextは使わずに、シートがない場合にエラーを回避する方法はありますでしょうか。 分かるかた、よろしくお願いします。

お世話になります。 現在エクセルの複数のセルに( )空白のスペースが入った()があります。 ※()の中は半角・全角のスペースが中身が半角・全角のスペースの数がさまざまな形で入っています。 ()の中に入っているのは半角・全角のスペースがはいている()のみ( )※全角スペース3個　のものに変換したいのです。 しかしながら、他のセルに(2222)などの()の間に数字や文字が入っているものがあり、それに対しては、そのままにしたいのです。 エクセルのVBAで実現したいのですが、どのようにすればよいでしょうか？ 何卒よろしくお願いします。

久しぶりの投稿です。 今、ＥＸＣＥＬのユーザーフォームのＶＢＡで行き詰ってます。 お分かりの方宜しくお願いいたします。 まず、EXCELのシートが下の様にあります。 　　Ａ　　　　　　　　Ｂ　　　　　　　　　Ｃ　　　　　　　　　Ｄ 1　得＋支店　得意先コード　　支店コード　　　　　得意先名 2　1030401　　　10304 　　　　　 　 01 　　　　　 　 ＸＸＸ乳業 3　20000　　　　20000　　　　　　　　　　　　　 　 　　 ＸＸＸ商事本店 4 2000001 　　 20000 　　　　　　 　 01 　　 　　　　 ＸＸＸ商事　Ａ支店 （ＡのセルはＢ＆Ｃで） 　　textbox1に得意先コード　textbox2に支店コードを入力してコマンドボタンを押したら　textbox3に得意先名を表示させるという事がしたいのですが　支店コードが入ってる時はよいのですが入ってない時 実行時エラー’１００４’ WorksheetFunctionクラスのVLookupプロパティを取得出来ません。 となってしまいます。 VBAは下の様になってます 　Private Sub CommandButton1_Click() 　　Set ADR = Worksheets("sheet1").Range("A2:C4") TextBox3 = Application.WorksheetFunction.VLookup(TextBox1 + TextBox2, ADR, 4, False) End Sub

久しぶりの投稿です。 今、ＥＸＣＥＬのユーザーフォームのＶＢＡで行き詰ってます。 お分かりの方宜しくお願いいたします。 まず、EXCELのシートが下の様にあります。 　　Ａ　　　　　　　　Ｂ　　　　　　　　　Ｃ　　　　　　　　　Ｄ 1　得＋支店　得意先コード　　支店コード　　　　　得意先名 2　1030401　　　10304 　　　　　 　 01 　　　　　 　 ＸＸＸ乳業 3　20000　　　　20000　　　　　　　　　　　　　 　 　　 ＸＸＸ商事本店 4 2000001 　　 20000 　　　　　　 　 01 　　 　　　　 ＸＸＸ商事　Ａ支店 （ＡのセルはＢ＆Ｃで） 　　textbox1に得意先コード　textbox2に支店コードを入力してコマンドボタンを押したら　textbox3に得意先名を表示させるという事がしたいのですが　支店コードが入ってる時はよいのですが入ってない時 実行時エラー’１００４’ WorksheetFunctionクラスのVLookupプロパティを取得出来ません。 となってしまいます。 VBAは下の様になってます 　Private Sub CommandButton1_Click() 　　Set ADR = Worksheets("sheet1").Range("A2:C4") TextBox3 = Application.WorksheetFunction.VLookup(TextBox1 + TextBox2, ADR, 4, False) End Sub

エクセルで　オートフィルターを自動で実行するような プログラムを組んでみたいのですが、アドバイスを よろしくお願いします。 A1セルに入力した数字を元にＡ３～Ｂ１０のデーターに自動でフィルターを実行し表示させたいのです。 よろしお願いします。

WindowsXPでVB6.0でプログラムを組んでますが、その中であるEXEファイルを起動するようにしています。しかし、そのEXEが起動している場合は二重起動を避けるようにしたいのです。 使っているPCで起動されているいくつかのEXEから目的のEXEが起動しているかどうかを知りたいです。 FindWindowを使うには開いているファイル名まで変数の中に渡さなければならないため使えません。(開いているファイル名は不明として下さい) タスクマネージャーの「プロセス」タブのイメージ名に出てくるexeファイル名を取得できればいいのですが、方法をご存知の方おられませんか？