ja7awu の回答履歴

自分に送ると、削除済みアイテムに入ってしまうんです。 無意識に変な操作をしてしまったのでしょうか？ 以前は普通に受信に入っていたと思います。

Excelのワークシートをメッセージとして送信する場合、 「ファイル」→「送信」→「メールの宛名」からメール送信画面は表示されますが メール用のツールバーに「このシートを送信する（S)」のアイコンが見当たりません。 従って送信が出来ない状態です。 アプリケーションの自動修復も試みましたが改善しませんでした。 解決方法を教えてください。よろしくお願いします Microsoft Office Excel 2003 OS:　WindowsXP

Excelのワークシートをメッセージとして送信する場合、 「ファイル」→「送信」→「メールの宛名」からメール送信画面は表示されますが メール用のツールバーに「このシートを送信する（S)」のアイコンが見当たりません。 従って送信が出来ない状態です。 アプリケーションの自動修復も試みましたが改善しませんでした。 解決方法を教えてください。よろしくお願いします Microsoft Office Excel 2003 OS:　WindowsXP

同じフォルダ内にある複数のエクセルファイルを１セルの一部分の数式を一括で置換したいのですが・・・ 例えば　=int(sum(a1:a10))→=int(average(a1:a10)) sumをaverageに置換可能なのでしょうか？ ファイルが大量にあるため全部のファイルをまとめて置き換えが出来ればと思いまして！よろしくお願いします。

エクセルＶＢＡでフォームを作りました。 使いやすくするために テキストボックスの文字を大きくしたり、 大きなテキストボックスでは文字を折り返し表示をさせたりしたいのですが、どうすればいいかわかりません。 教えてください。

エクセルを開いて、検索ボタンをクリックするとエクセルの検索ウインドが開くマクロを組みました。 Application.Dialogs(xlDialogFormulaFind).Show それで、この検索ウインドに入力する文字は日本語しか想定してないので、自動的にIMEをデフォルトの半角英数から、ひらがなに変更させるマクロを組みたいのですが、私は全くのド素人のためさっぱりわかりません。 どなたかお手数ですが教えてください。よろしくお願いいたします。

ある列に複数のデータがある場合、その一番上の右隣のセルに数式などを入力後、そのセルの右下の小さい四角をダブルクリックすると、左の列のデータある一番下までオートフィルされますよね。 これのマクロを組みたいのですが、単純に出来ません。 普通通りマクロの記録をすると、実際に入力されていたセル番号までのマクロとなってしまい、データを追加した場合意味が無くなります。 具体的に説明すると、 A1からA10までそれぞれデータがある場合、 B1に数式を入力後、オートフィルでB10までコピー。 これをマクロで組もうとすると、B10までのフィルが組まれてしまい、A11～A20までデータを追加後マクロを実行してもB10までのフィルしか実行されません。 「左の列のデータがあるところまで」というマクロは組めないのでしょうか。

ある列に複数のデータがある場合、その一番上の右隣のセルに数式などを入力後、そのセルの右下の小さい四角をダブルクリックすると、左の列のデータある一番下までオートフィルされますよね。 これのマクロを組みたいのですが、単純に出来ません。 普通通りマクロの記録をすると、実際に入力されていたセル番号までのマクロとなってしまい、データを追加した場合意味が無くなります。 具体的に説明すると、 A1からA10までそれぞれデータがある場合、 B1に数式を入力後、オートフィルでB10までコピー。 これをマクロで組もうとすると、B10までのフィルが組まれてしまい、A11～A20までデータを追加後マクロを実行してもB10までのフィルしか実行されません。 「左の列のデータがあるところまで」というマクロは組めないのでしょうか。

こんにちは、VBA初心者です。 ２枚のシートがあり、「入力」というシートの任意のセルを、「出力」という別シートにコピーするという作業をコマンドボタンによって行いたいと思っています。 自分で作ってみたものは、このようになります。 Private Sub 任意の行のコピー・印刷_Click() Application.ScreenUpdating = False 'セル内容コピー Selection.Copy Sheets("出力").Select Range("A9").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Sheets("入力").Select ActiveCell.Offset(0, 1).Select Application.CutCopyMode = False Selection.Copy Sheets("出力").Select Range("C9").Select （以下略） ところが、これだと 「実行時エラー1004　RangeクラスのSelectメソッドが失敗しました」と表示され、デバッグをかけると6行目のRange("A9").Selectが黄色く反転した状態になります。 どうしてでしょうか。 同じ内容のものをマクロで登録し、実行すると、何の問題もなく動くのですが… ほとほと困っております。 どうかよろしくお願いします。

エクセルのマクロについて教えて下さい 今　book1を開いたら動くマクロを組んでいます 「Private Sub Workbook_Open（）」を 使って 内容は この中で別のブック（仮にbook100とします） を開いてその中のデータ （すでに選択してあります） をコピーして　book１に貼り付けて book100を閉じる。 という作業なのですが book100を選択しようとするとエラーが起きてしまいます。 Private Sub Workbook_Open() の中では違うブックに対して 作業ができないようになっているのでしょうか？ よかったら御教授ください

現在sheet1にある表をsheet2に転記してゆくVBAを作成しております。sheet1にある日付データセルA1（日のみ）が入っているセルと月初を求めるVBA(DateSerial(Year(Date), Month(Date), 1))を加算して西暦/月/日にしたいのです。 例えば、DateSerial(Year(Date), Month(Date), 1)の答は、2005/05/01になってきます。そこに日付データセルA1が20だとすれば、表示は、2005/05/20となると思います。それをsheet2 セルA1に表示させたいのです。 よろしくお願いします。

エクセル2003を使用しています。ある言葉を表から検索しようと思い、その言葉をコピーして、「検索する文字列」にペースとしようと思ったらできません。 これって打ち込まないといけないのでしょうか？ とっても基本的なことだと思うのですが、よろしくお願いします。

宜しくお願いします。 タイトルのとおりですが、例を書きます。 A列に「1234-XXXXXX」と「5678-XXXXXX」（Xはランダムな数字）と空白セルが並んでいるとき、 D列に先頭の４文字が ・「1234」の場合「山」 ・「5678」の場合「川」 ・空白かその他の値の場合セル背景色を赤 ・空白セルに「1234-XXXXXX」や「5678-XXXXXX」を入力したら、背景色をなくし「山」「川」それぞれの値 と表示したいと考えています。 毎日シートをコピーして値はクリアし、さらにデータは その他のシートから行コピーし値貼り付けするので、 関数などの数式等だと消えてしまい、その都度式を コピー＆ペーストしなければならないので、 できればセルに式入力する以外（マクロ？入力規則？） の方法ご教授いただけると助かります。 長く分かりづらいところがありましたら申し訳ございません。 宜しくお願い致します。

今、宛名発送先リストのデータベースを作っています。この中に、「敬称」（データ型は「テキスト型」）というフィールドを設けています。 ●●"様"や"御中"のように宛名ラベルに印刷できるようにするため、データ入力の際にこのフィールドにカーソルをもっていくと「様」「殿」「御中」「　」（スペース）を選べるようにしています。 ＜設定の概要＞ 具体的にはテーブルのデザインビューで「ルックアップ」タブ→「値集合ソース」の欄に「"様";"殿";"御中";"　　"」と指定しています。 そして、「標準」タブ→「要求値」は「はい」を選択、「空文字列の許可」は「いいえ」を指定しています。このようにして、敬称を入れ忘れるのを防ぐ為に必ず何かを入力しないと先に進まないようにしました（スペースは特別な理由があるため敬称を一時的に入力せずに進む為です）。 ＜問題点＞ 初めは敬称の入力忘れの防止を考えていなかったので、「要求値」は「いいえ」を選択、「空文字列の許可」は「はい」を指定していました。そして、この状態で一旦フォームを作成しています。 それから、敬称の入力忘れ防止の為に「要求値」は「はい」を選択、「空文字列の許可」は「いいえ」を指定しました。 ところが、テーブルでデータ入力をする場合にはこれらの設定が反映されている（敬称を入力しなければエラーメッセージが出て次に進めないように出来た）のに対し、フォームから入力するとこれらの設定が反映されていません（敬称を入力せずに次に進めるまま）。 どのようにして、フォームにまで設定内容を反映させればよいのでしょうか？？？大変困っています。 ちなみに、フォームで入力した内容はデータとして問題なく残っているので、単にフィールドの設定内容が反映されていないと言うことのようです。

VLOOKUPの検索値が複数あるようなイメージで、それらに 合致するデータを求める関数はありますか？ 例えば下記のようなデータがあり、「ランク=A」かつ 「級=2」の率を求めるような式です（この場合率は4.0です）。 このデータはテーブルとして別シートに作成し、元の シートにこのテーブルで求めた率をひっぱってきたいと 考えています。 説明が下手で分かりにくくて申し訳ありませんが、どなたか お分かりになる方、教えて下さい。よろしくお願いします。 ランク　　　級　　　　率　　　　 A　　　　　1　　　　　4.1 A　　　　　2　　　　　4.0 A　　　　　3　　　　　3.2 B　　　　　1　　　　　4.0 B　　　　　2　　　　　3.8 B　　　　　3　　　　　3.0 ・　　　　　・　　　　　　・ ・　　　　　・　　　　　　・ ・　　　　　・　　　　　　・　　　　　

質問します。 複数のシートの中から指定されたシートを削除する場合に、メッセージがでないようにするのはどうすればよろしいのでしょうか？ 下記のように「DisplayAlerts」を表示しないようにしているのですが、最後に「中断モードでは入力できません」が表示されてしまいます。何方かご教授お願い致します。 Application.DisplayAlerts = False For Each ws In Worksheets Debug.Print ws.Name Select Case ws.Name Case "A", "B", "C", "D", "E" Case Else Worksheets(ws.Name).Delete End Select Next ws

「西」「顔」といった1文字の漢字（よみがな2文字）が変換できません。具体的にいうと「にし」を変換すると「2し」、「かお」を変換すると「加尾」などとなってしまいます。よみがな2文字が別々に変換され、変換キーを押し続けても1文字の漢字とは認識してくれません。いちいち音読みで入力していますが、何かちゃんと変換できる方法があれば教えて下さい。

テーブル【T-1】 フィールドA,主キー,数値型 フィールドB,テキスト型 フィールドC,テキスト型 フィールドD,テキスト型 フィールドE,テキスト型 フォーム【F-1】 テーブル【T-1】に入力用のフォーム,単票型 があります。 F-1でそれぞれのフィールドに対して入力スペースがあり（もちろんですが） A,B,C,D,Eと順番に入力していきます。 ここでエンターキーを押すと、次のレコードへ移るわけですが、 カーソルがEの位置にあるため、わざわざマウスでAの位置へ移動させないといけません。 同様に、入力項目がなく、A,B,Cと入力して次のレコードへ行くと、Cの位置にカーソルがあります。 これを、Aをホームポジションとして、次のレコードへ移ったときに 自動的にカーソルをAの位置にもってくるようにしたいのですが、 一体どうすればよろしいでしょうか？

いつもお世話になります。VBAで質問があるのですが、ユーザーフォームを作り、コマンドボタンとテキストボックスを配置します。 Private Sub CommandButton1_Click() Dim i As Long 　For i = 1 To 30 　　TextBox1.Text = i & "を入力しました" 　　Worksheets("Sheet1").Range("A1").Value = i & "回目です" 　Next i End Sub と入力して実行すると、セルには1～30回まで順に書き込みがありますが、テキストボックスには最後の「30を入力しました」しか表示されません。 これを「1を入力しました」、「2を入力しました」、「3を・・・」というようにテキストボックスに順に表示させるにはどのようにしたらよいのでしょうか？ よろしくお願いします。

A2＝今日の日付 A3＝昨日の日付 A4＝一昨日の日付 　・ 　・　 　・ という具合に特定のセルを 絶えず新しい日付にするマクロありましたらコピーさせて下さい。 現在は　日々の収支金額を記入する日付欄を 営業日の日付をWORKDAY関数を使って 1ヶ月～2か月分行方向にドラッグ製作しています。 下へスクロールして本日の欄を出していますが、新旧逆に表示できれば便利なのですが。　ご教授お願い申し上げます。