m3_maki の回答履歴

Excelの検索で、検索対象を特定の文字だけの（絶対的な）検索したいのです。 たとえばあるセルに1桁の「1」が入力されているとします。 検索欄で「1」を入れて検索すると、「10」など「1」が入った文字列すべてが検索されてしまいます。

アウトルックの受信トレイの受信メールの左側に赤色ビックリマーク（！）が付いていることがあるのですが、どのような意味でしょうか。解除できるのでしょうか。

お世話になります。アクセスで教えて下さい。とても困っています。 テーブルをデザインビューで作成していて、ふりがなウィザードを使用すると、型が一致しないと出てきてしまいます。 名前もふりがなもデータ型は、短いテキストです。 また郵便番号から入力支援も、入力支援ウィザードの最初の画面が真っ白　次へを押すとイベントプロパティに指定した式云々出てきてしまいます。 昨日まで作成していた他のテーブルでは出来ていたのですが、出先設置のパソコン及び本日の自宅パソコンで全く同じく出来ない状態になってしまいました。 Windows10 オフィス365です。 アクセスは最新に更新されています。 どうすれば改善できるか教えて欲しいです。 アクセス初心者の為、とても困っています。 よろしくお願いします。

outlookのVBAで Application_NewMailEx で受信メールを拾って メールヘッダーにある「X-MS-Has-Attach」の値で処理を実行したいのです。 myNamespace.GetItemFromIDでsubjectなどは見れましたが「X-MS-Has-Attach」の値を見るためにはどうしたらいいのでしょうか？

Accessのフィールド名がＡ、Ｂ、Ｃ、Ｄ、Ｅ、Ｆ、ＧとなっているものにExcelのヘッダがＡ、Ｂ、Ｃ、Ｄ、Ｅ、Ｅ、Ｇとなっている物を強制的に読み込ませたいです。Excel側のデータは弄る事が出来ません。Access側を弄って読み込ませる方法はありませんか？

Access初心者です。 サブレポートにリンクされたメインレポートがあります。 サブレポートに表示するレコードが無い場合は、メインレポートのレコードも非表示にし、印刷対象外にしたいのですが、可能なのでしょか？ 方法があれば教えて下さい。 よろしくお願い致します。

ご教示お願いします。 Windows XP、アクセス2000で運用していたレポートを Windows 10、アクセス2010に移行しました。 レポートにバーコードを配置し、VBAで「フラグによってバーコードを出す出さない」を入れているのですが、そうするとバーコードが希望の大きさにならなくて困っています。 元はバーコードコントロール9.0でしたがアクセス2010ではバーコードコントロール14.0でしたので、バーコードだけ新たに作り直してみましたが、VBAを入れると大きさが小さくなってしまいます。 バーの部分が1×4.2㎝程度にしたいのですが、どうしたらいいでしょうか。 よろしくお願いいたします。

いつもお世話になっております。 Access2010を使用しています。 Accessのレポートにおいて、レポートフッターにグループ化となった件数を表示したいと考えています。 具体的には、下記のようにしたいと考えています。 【テーブル名：T_チケット】 番号　 席ひらがな　 販売箇所 1　　　あ　　　　　Ａ市 2　　　い　　　　　Ｂ市 3　　　う　　　　　Ｃ市 4　　　う　　　　　Ｄ市 5　　　え　　　　　Ｅ市 6　　　え　　　　　Ｆ市 【レポート名：R_チケット】 ------ページヘッダーに表示------ 番号　 席ひらがな　 販売箇所 ------------------------------------- ------詳細に表示------------------ 1　　　あ　　　　　Ａ市 2　　　い　　　　　Ｂ市 3　　　う　　　　　Ｃ市 4　　　う　　　　　Ｄ市 5　　　え　　　　　Ｅ市 6　　　え　　　　　Ｆ市 ------------------------------------- ------レポートフッターに表示---- 【席ひらがな販売数】4件 -------------------------------------- このように、席ごとグループ化（あ、い、う、え）となった全体の件数をレポートフッターに表示したいのですが、やり方が分かりません。 どうぞご教示をよろしくお願いいたします。

いつもお世話になっております。 Access2010を使用しています。 Accessのレポートにおいて、レポートフッターにグループ化となった件数を表示したいと考えています。 具体的には、下記のようにしたいと考えています。 【テーブル名：T_チケット】 番号　 席ひらがな　 販売箇所 1　　　あ　　　　　Ａ市 2　　　い　　　　　Ｂ市 3　　　う　　　　　Ｃ市 4　　　う　　　　　Ｄ市 5　　　え　　　　　Ｅ市 6　　　え　　　　　Ｆ市 【レポート名：R_チケット】 ------ページヘッダーに表示------ 番号　 席ひらがな　 販売箇所 ------------------------------------- ------詳細に表示------------------ 1　　　あ　　　　　Ａ市 2　　　い　　　　　Ｂ市 3　　　う　　　　　Ｃ市 4　　　う　　　　　Ｄ市 5　　　え　　　　　Ｅ市 6　　　え　　　　　Ｆ市 ------------------------------------- ------レポートフッターに表示---- 【席ひらがな販売数】4件 -------------------------------------- このように、席ごとグループ化（あ、い、う、え）となった全体の件数をレポートフッターに表示したいのですが、やり方が分かりません。 どうぞご教示をよろしくお願いいたします。

エクセル2019でVBAを使いコピーペーストの勉強中です、次の箇所(Dim i As integr)で、ユーザー定義型は定義されていませんと指摘されて止まってしまします、Sheet("データ")には3行のデータは入っています、VBA初心者のため、この後が、なかなか前に進めません、どうかよろしくおねがいします。 ********************************** Sub 練習() Dim s1 As Worksheet: Set s1 = Worksheets("請求書") Dim s2 As Worksheet: Set s2 = Worksheets("データ") Dim r1 As Integer: r1 = 18 Dim r2 As Integer: r2 = 2 { Dim i As integr } For i = 0 To 2 s1.Range(s1.Cells(r1 + i, 1), s1.Cells(r1 + i, 3)).Value = s2.Range(s2.Cells(r2 + i, 2), s2.Cells(r2 + i, 4)).Value s1.Cells(r1 + i, 4).Value = s1.sells(r1 + i, 2).Value * s1.Cells(r1 + i, 3).Value Next End Sub ***************************************

EXCELのユーザー定義で以下の定義だと添付画像のようにゼロが赤色になります。マイナスは青、プラスは赤、ゼロを黒にするにはどうすればよろしいでしょうか？ [赤]+#,##0;[青]-#,##0

エクセルについて質問です。 何の項目があるのか分からない状態で、項目ごとの合計を出せる関数はありますか？ 商品の売上明細のデータがあります。 商品名ごとに合計金額をだしたいが、商品名の列に何の商品があるかわかりません。 ピポットテーブルを使ったり、まず何の商品の明細があるかを調べてからSUMIF等使うといった方法以外で、何かありますでしょうか？ 毎月商品ごとの売上金額を調べたいのですが、何の商品が売れるか分かりません。 できれば、予め数式を組んでおいて、売上明細データを貼り付けるだけで結果がでるようにしたいです。 商品数が多いため、全ての商品名の行を作るのは避けたいです。 よろしくお願い致します。

海外支店から送られてきたExcelのファイルがものすごく開くのに時間がかかり、5分程度待ちます。 ・サイズは1.2MB程度 ・細かなif関数が埋め込まれているのが要因と思われます。 ・拡張子はxlxs ・シート行数は100万行程度（利用しているのは1000行） ＜試したこと＞ -使っていない行をそぎ落とし、シート当たりの行数を減らそうとしたが無駄だった -開いて修復　をやりましたが効果なしでした -ほかのPCでも同じことが起きているので、PCの問題ではないことが判明 -xls形式で保存すると全体が崩れました ほかに考えられることがあればアドバイスいただくと幸いです

Windows10 Office2019の環境です レポートの並び替えなのですが　フィールドに―を含むデータがありましたので　文字列に設定しましたが　当然並び替えがうまくいきません 1-2　2　1-3　1-4　　56　が　1-2　1-3　1-4　2　52　となるよう順番に並び替える方法はないでしょうか

Windows10 Office2019の環境です レポートの並び替えなのですが　フィールドに―を含むデータがありましたので　文字列に設定しましたが　当然並び替えがうまくいきません 1-2　2　1-3　1-4　　56　が　1-2　1-3　1-4　2　52　となるよう順番に並び替える方法はないでしょうか

エクセルについて質問です。 何の項目があるのか分からない状態で、項目ごとの合計を出せる関数はありますか？ 商品の売上明細のデータがあります。 商品名ごとに合計金額をだしたいが、商品名の列に何の商品があるかわかりません。 ピポットテーブルを使ったり、まず何の商品の明細があるかを調べてからSUMIF等使うといった方法以外で、何かありますでしょうか？ 毎月商品ごとの売上金額を調べたいのですが、何の商品が売れるか分かりません。 できれば、予め数式を組んでおいて、売上明細データを貼り付けるだけで結果がでるようにしたいです。 商品数が多いため、全ての商品名の行を作るのは避けたいです。 よろしくお願い致します。

環境は　Office2019 Windows10です レポートでページフッターに合計が表示されるようにしています 複数ページになった時に最終ページのみページフッターを表示したいので　下記のコードを記入しましたが　うまくいきません Private Sub ページヘッダー_Format(Cancel As Integer, FormatCount As Integer) If Page = Pages Then Me.ページフッター.Visible = True Else Me.ページフッター.Visible = False End If End Sub 最終ページのみページフッターを表示にはどのようにすればいいでしょうか　宜しくお願い致します

環境は　Office2019 Windows10です レポートでページフッターに合計が表示されるようにしています 複数ページになった時に最終ページのみページフッターを表示したいので　下記のコードを記入しましたが　うまくいきません Private Sub ページヘッダー_Format(Cancel As Integer, FormatCount As Integer) If Page = Pages Then Me.ページフッター.Visible = True Else Me.ページフッター.Visible = False End If End Sub 最終ページのみページフッターを表示にはどのようにすればいいでしょうか　宜しくお願い致します

Access2021 2箇所の保存先の違う所からcsvファイルの取り込みについて伺います。 csv取り込みボタンは、２つ用意しています。 1つ目のボタンに、コード記述して動作確認は正常に動作して他のボタンも正常に動作。 2つ目にのボタンに、csvの格納パス名のみ変更後コード記述して動作確認したら全てのボタンが反応しなくなりました。 動作としては、削除クエリでテーブルのデータを削除してから、指定したフォルダからcsvファイルを選択して取り込ます。 同じテーブルを使用して、格納先の違うcsvファイルを使用する操作になります。 コードは、以下の通りです。 ①ボタン1 Private Sub コマンド61_Click() '削除クエリ実行 DoCmd.SetWarnings False DoCmd.OpenQuery "テーブルデータ削除" DoCmd.SetWarnings True Dim msg As String msg = getFilePicker If msg = "" Then Exit Sub On Error GoTo err_sample DoCmd.TransferText acImportDelim, , "インポート先テーブル名", msg, True MsgBox "インポートが終了しました。", vbInformation + vbOKOnly, "処理完了" Exit Sub err_sample: Select Case Err.Number Case 3011 MsgBox "ファイルが見つかりません。処理を終了します。" Case Else MsgBox Err.Number & ":" & Err.Description End Select End Sub Function getFilePicker(Optional dTitle As String = "ファイル選択") '2003以降 Const msoFileDialogFilePicker As Integer = 3 Dim fDlg As Object Set fDlg = Application.FileDialog(msoFileDialogFilePicker) fDlg.Title = dTitle fDlg.InitialFileName = "csvインポートデータのフォルダパス名①" fDlg.AllowMultiSelect = False fDlg.Filters.Clear fDlg.Filters.Add "すべてのファイル", "*.*" fDlg.Filters.Add "CSV ﾌｧｲﾙ (*.csv)", "*.csv" fDlg.FilterIndex = 1 If fDlg.Show Then getFilePicker = fDlg.SelectedItems(1) Else getFilePicker = "" Me.Refresh End Function ②ボタン2 Private Sub コマンド62_Click() '削除クエリ実行 DoCmd.SetWarnings False DoCmd.OpenQuery "テーブルデータ削除" DoCmd.SetWarnings True Dim msg As String msg = getFilePicker If msg = "" Then Exit Sub On Error GoTo err_sample DoCmd.TransferText acImportDelim, , "インポート先テーブル名", msg, True MsgBox "インポートが終了しました。", vbInformation + vbOKOnly, "処理完了" Exit Sub err_sample: Select Case Err.Number Case 3011 MsgBox "ファイルが見つかりません。処理を終了します。" Case Else MsgBox Err.Number & ":" & Err.Description End Select End Sub Function getFilePicker(Optional dTitle As String = "ファイル選択") '2003以降 Const msoFileDialogFilePicker As Integer = 3 Dim fDlg As Object Set fDlg = Application.FileDialog(msoFileDialogFilePicker) fDlg.Title = dTitle fDlg.InitialFileName = "csvインポートデータのフォルダパス名②" fDlg.AllowMultiSelect = False fDlg.Filters.Clear fDlg.Filters.Add "すべてのファイル", "*.*" fDlg.Filters.Add "CSV ﾌｧｲﾙ (*.csv)", "*.csv" fDlg.FilterIndex = 1 If fDlg.Show Then getFilePicker = fDlg.SelectedItems(1) Else getFilePicker = "" Me.Refresh End Function ご教授の程、宜しくお願い致します。

職員番号入力後、自動で部署コードを入力できるようにしたいのですが、このアクセスのフォームで、正常に動くフォームと動かないフォームがあり困っております。どこが悪いか御教示お願いできませんでしょうか。 -------------------------------------------------------- 使用テーブル T_職員名簿　：　ID、氏名漢字、氏名カナ、部署コード、部署名 イベントプロシ―ジャ内容 Private Sub 職員番号_AfterUpdate() Me.[部署コード] = DLookup("部署コード", "T_職員名簿", "職員番号= " & Me![職員番号] & "") End Sub エラー内容 イベントプロパティに指定した式更新後処理でエラーが発生しました。 --------------------------------------------------------