pkh4989 の回答履歴

Application.StatusBar = "ただいま、○○作成中です。" Application.StatusBar = False ステイタスバーに上記のように表示させるようにしていますが、この表示(ただいま、○○作成中です。）を画面中央部に表示させたいのですが、御教示お願い致します。

枝番号の一番大きいファイルパス("C:\Documents and Settings\集計ファイル_3.xls")を引数で受け取り、 数式セルを対象にフォントカラー番号よって、 シート内参照の数式、もしくはブック間の3D集計をセルに入力する モジュールを作成しています。 現在実行に1時間以上かかってしまい困っているのですが、 なんとか改善する方法をご存知ないでしょうか？ アイデアだけでもかまいませんので、是非何かご教授よろしくお願いいたします。 '引渡値　oTargetSheet ：処理対象のシート '引渡値　s3DFormura ：集計したい枝番最大ブックのパス Dim oFomulaRange As Range Dim oFomulaCell As Range Dim sFormura As String Dim sCurrentFile As String Dim iMaxFileNo As Integer Dim iFileNameStart As Integer Dim i As Integer '数式セルのみ選択します Set oFomulaRange = oTargetSheet.Cells.SpecialCells(xlCellTypeFormulas, 23) '引数より枝番号を取得　例）3 iMaxFileNo = CInt(Mid(s3DFormura, Len(s3DFormura) - 4, 1)) 'ブックが１つしかない場合は何もせずExit If iMaxFileNo = 1 Then Exit Sub 'ブック間集計の場合のブックパス途中までをセット '例）"C:\Documents and Settings\[集計ファイル_" iFileNameStart = InStrRev(s3DFormura, "\") sCurrentFile = sCurrentFile & "'" & Left(s3DFormura, iFileNameStart) & "[" sCurrentFile = sCurrentFile & Mid(s3DFormura, iFileNameStart + 1, Len(s3DFormura) - iFileNameStart - 5) For Each oFomulaCell In oFomulaRange With oFomulaCell Select Case .Font.ColorIndex Case 10 '数式の生成 sFormura = "=SUM(" For i = 1 To iMaxFileNo If i > 1 Then sFormura = sFormura & "," sFormura = sFormura & sCurrentFile & i & ".xls]計'!" sFormura = sFormura & .Address(ReferenceStyle:=xlR1C1) Next i sFormura = sFormura & ")" 'セルに数式を入力 '例）=SUM('C:\Documents and Settings\[集計ファイル_1.xls]計'!!$A$1 ' ,'C:\Documents and Settings\[集計ファイル_2.xls]計'!!$A$1 ' ,'C:\Documents and Settings\[集計ファイル_3.xls]計'!!$A$1) .Formula = sFormura Case 14 '文字色を緑に変更 .Font.ColorIndex = 10 '10と同じ処理 sFormura = "=SUM(" For i = 1 To iMaxFileNo If i > 1 Then sFormura = sFormura & "," sFormura = sFormura & sCurrentFile & i & ".xls]計'!" sFormura = sFormura & .Address(ReferenceStyle:=xlR1C1) Next i sFormura = sFormura & ")" .Formula = sFormura Case 43 '文字色を青に変更 .Font.ColorIndex = 5 '=IF(数量<>0,ROUNDUP(金額/数量,0),0) .FormulaR1C1 = "=IF(RC[1]<>0,ROUNDUP(RC[2]/RC[1],0),0)" End Select End With Next

お世話になります。 エクセルでの印刷時、横はそのままで、縦だけ120%とか200%拡大したいのですが、出来ますでしょうか？ よろしくお願いします。

先日も質問させていただきましたが、どうしてもうまくいかないので、再度質問させていただきます。 エクセルで顧客管理をしています。 Ｃ列に顧客名を入力していくのですが、 同じ顧客のデータは１行にまとめたいため、 Ｃ列には同じ名前が入力できないようにしたいのです。 Ｃ列全部に データ→入力規則→設定→数式　　=countif(c:c,c1)=1 と、入力規則を設定しました。 この後、ダブリ入力をすると警告のメッセージボックスが出るようになったのですが、 中にはまったく同じ顧客名なのに入力できてしまったり、 また同じ名前はないのに、入力できなかったりします。 これは何が原因なのでしょうか？ どうしてもダブリ入力はできないようにしたいのですが、他に何か方法はないでしょうか？ 前回のこの質問に対して、 式を=countif(c:c,c1)＜=1　　とするや 入力規則のコピーの方法など、お答えを頂きましたが、どうしてもうまくできませんでした。 同じく、まったく同じ顧客名なのに入力できてしまったり、 また同じ名前はないのに、入力できなかったりします。 伝票を見ながら入力していくのですが、伝票は１０００枚ほどあります。 どうしても入力時点で重複をさけたいのですが、これをＶＢＡでできないでしょうか？ 入力規則のコードの書き方がわかりません・・。 いつもこちらに頼って申し訳ありませんが、どうぞよろしくお願いします。

お世話になります。 エクセルでの印刷時、横はそのままで、縦だけ120%とか200%拡大したいのですが、出来ますでしょうか？ よろしくお願いします。

今まで右クリックで、コピーとか貼り付けをしていたのですが、最近、ctrl+v(貼り付け)やctrl+ｃ(コピー)、ctrl+z(戻る)ワードとかですが。 Alt+カナ(ひらがな入力)とかです。 他にあるのでしょうか？ちなみに切り取りってどうするんですか？ webで戻るってshift+？？ですか？ などいっぱいあると思いますが、たくさんお教えください。 初心者ですのでよろしくお願いします。

こんにちは。 どなたか教えていただけませんか？ 車両別に毎日の日報データを入力するシートがあるのですが、 入力作業をするのがExcel初心者の人なので、関数が入っているセルを、 上書き・消去しないよう保護をかけて入力可能なシートのみ選択・入力できるようにしてあります。 １ヶ月ごとに入力したデータを消去し、新たなデータを入力していくのですが、 ロックされていないセルのデータだけを一括で消去出来るマクロがないかと探しています。 過去ログで Sub Cellsdel() Dim c As Range For Each c In Sheets("Sheet1").Range("A5:D10") If c.Locked = False Then c.ClearContents 'c.Clear '書式も含めて、全て消すならこれ一行 End If Next End Sub というマクロを見つけたのでカスタマイズして試してみましたが、 実行時エラー1004 結合されたセルの一部を変更することは出来ません となってしまいました。 入力するシートはC4:Z100までが１台分、以下、Z1200まで12台分の車両別に分かれていて、 入力するセルは飛び飛びになっています。 この説明では不足していると思いますが、補足をいたしますので、 どなたかご教授頂けないでしょうか？ マクロはまだ初心者で色々と勉強している最中です。 よろしくお願いいたします。

エクセルを使い慣れていません。 エクセル2003です。 シート10枚を表示していません。 書式→シート→再表示　では 複数のシートを選択できないので１枚ずつしか再表示できないのですが一度に10枚のシートを再表示をする方法があれば教えてください。

Excelで大量のデータをコピーしてそのブックを終了するときに 「クリップボードへ保存しますか？」 というメッセージが表示されますが、これを非表示にすることは可能でしょうか 環境はショップオリジナルパソコンとDELLのOPTIPLEXの2台を利用し ExcelもXPと2003の二つを使っています ご教授願います

下記のようなエクセルでカウントしたいのですがどのようにしたらいいのか教えてください。 集計条件： 　　(1)年齢（範囲）ごとの習いごとの人数を求めたい 　　(2)年齢の範囲は０歳～９歳，１０歳～１９歳，２０歳～２９歳・・ ＜エクセル＞ 　　　　A　　　　B　　 1　　 ８歳　　水泳　 2　　１１歳　　ピアノ 3　　　４歳　　英語教室 4　　　６歳　　水泳 5　　２２歳　　ピアノ 6　　２８歳　　ヨガ ※　結果は　下記のようにするのが希望です。 　　０歳～　９歳　水泳　　　　２名 　　０歳～　９歳　英語教室　　１名 　１０歳～１９歳　ピアノ　　　１名 　２０歳～２９歳　ピアノ　　　１名　 　２０歳～２９歳　ヨガ　　　　１名　

下記のようなエクセルでカウントしたいのですがどのようにしたらいいのか教えてください。 集計条件： 　　(1)年齢（範囲）ごとの習いごとの人数を求めたい 　　(2)年齢の範囲は０歳～９歳，１０歳～１９歳，２０歳～２９歳・・ ＜エクセル＞ 　　　　A　　　　B　　 1　　 ８歳　　水泳　 2　　１１歳　　ピアノ 3　　　４歳　　英語教室 4　　　６歳　　水泳 5　　２２歳　　ピアノ 6　　２８歳　　ヨガ ※　結果は　下記のようにするのが希望です。 　　０歳～　９歳　水泳　　　　２名 　　０歳～　９歳　英語教室　　１名 　１０歳～１９歳　ピアノ　　　１名 　２０歳～２９歳　ピアノ　　　１名　 　２０歳～２９歳　ヨガ　　　　１名　

いつも教えてもらいありがとうございます。 今Excelにて1つのセルの中に3つから4つの情報が半角スペースで開けて入れているのですが、 別シートにそれらを分けて1つのセルに1つの情報を入れたいのですが、 1つ目の情報は文字列操作関数SEARCHとLEFTの組み合わせで 抽出することが出来たのですが、2つめ以降が上手くいきません。 どうすればできますか教えてください。

お世話になります。 先日は、QNo.3029500　にて、日報の入力値の一括消去についてお伺いしたところ、アドバイスを頂き感謝しております。 今回は、日報の別シートにて月次報告欄を作っていますが、その中にマクロでオートシェイプを利用した印鑑を押すようにしています。 これを、上記の消去方法で消そうとするとオートシェイプのみ残ってしまうのです。これも一括で消すにはどのようにすればいいのでしょうか？

エクセルの表からグラフウィザードを使って棒グラフを作ろうとしたところ、表を範囲指定して、棒グラフの形を選び、次へと進んでいくと棒が全く表れず横線の入った背景しか出ません。 どういうことなんでしょうか。

エクセルで旧番号を入力すると、新番号をでるようにしたいのですが、 イメージで言うと 旧番号「1111」入力→ボタンクリック→新番号「abcd」表示 シンプルな機能でできる方法がありましたら、お教えください。 ちなみにマクロを組んだことがないので、参考になるサイトが ありましたら、併せてお教えしただけると幸いです。 よろしくお願いいたします。

=IF(G12="収入",入力!G3,入力!H3)この数式の場合G3、H3の行数値を別セル参照で変えるには。初歩的ですみません。エクセル2003。

現在Access2003でテーブルを下記のように作成しています。 下記のような問題があり、テーブルをどのように再編成 （正規化？してテーブルを分けるなど）すれば、うまくいくか よいお知恵を拝借したくお願いいたします。 (1)各参加者毎に単純にレースへ参加した回数をカウントしたい。 （参加した回数によって、記念品を授与する。） しかし、横のカウントが困難である。 (2)将来フィールドが足りなくなる。 氏名　(95'レースa) (95'レースb)(96'レースa)(96'レースｃ)・・・・ AA　　　　　１　　　　　　　１　　　　　　１　　　　　　　１ BB　　　　　３　　　　　　　３　　　　　　３　　　　　　　不出場 CC　　　　　４　　　　　　不出場　　　不出場　　　　２　　　 DD　　　　　２　　　　　　　１　　　　　　２　　　　　　　４　　 EE　　　　　５　　　　　　　４　　　　　　４　　　　　　　３　　 ・　　 　 ・　 ・ 数字はレースの順位を入力しています。 レースは、毎年行われるものもあれば、何年かに1度周期的に行われるものがあります。 参加者は固定していて2000人位いるが、レースによっては不参加の者もいます。レースは年間５レースくらいあります。

エクセル２００２、OSXP使用しています。 エクセルで以下の変換（というか挿入？）をしたいのですが --------- [n][n][n][n] [d] [n][n][n][n][n][n][n][n] [d] [n][n][n][n][n][n] [d] --------- ↓ -------- [n1][n2][n3][n4] [d] [n1][n2][n3][n4][n5][n6][n7][n8] [d] [n1][n2][n3][n4][n5][n6] [d] ---------- このようにnの後に数字の1を挿入し、次のnは2、その次は3，4・・・・ と数字が１づつ増えて挿入し、[d]が現れるとまたnの後に初めの1を挿入しその次は2,3,4というようにしたいのですが。[　]は特に意味はありません。 このようにできるソースを教えてください。宜しくお願いします。

ご覧いただきありがとうございます。 環境はWinXP　Excel2003です。 ダブルクリックなど簡単な作業で、画像を貼り付けたいです。 ワードアートで描いた枠の中（セルの中でも可）をダブルクリックなど簡単な作業をすると「図の挿入」画面が出てくるようにしたいのですが、やり方がわかりません。大量に写真があるので、いちいち「図をファイルから挿入」を押して図を挿入しその図を枠の中（セル内）に移動していると、とても時間がかかってしまって苦労しています。 何らかの解決方法をご存知でしたらご教授お願いします。

エクセルでボタンをクリックすると印刷範囲を指定し印刷プレビューまで行えるようにマクロを登録しました。 （A～C列+J～U列）を印刷したいので、D～I列を非表示にし、その後A～Uを選択→印刷→選択した部分にチェック→印刷プレビュー→印刷の方法でマクロ登録しました。登録作業中は正しく印刷できましたが、実際にボタンをクリックするとプレビューには（A～C列+M～U列）しか表示されません。 何度やり直してもダメで、D：Oを非表示にしてA:AAを選択後に印刷プレビューする場合は（A～C列+P～AA列）が正しく印刷できました。非表示にする列が違う場合はできたのに、どこがいけないのでしょうか？ 以下のような感じになっています。 Columns("D:I").Select Selection.EntireColumn.Hidden = True Range("A4:U43").Select Selection.PrintOut Copies:=1, Preview:=True, Collate:=True ActiveWindow.LargeScroll Down:=-1 Columns("C:J").Select Selection.EntireColumn.Hidden = False End Sub 説明がうまくできないのですが、宜しくお願いします。