回答数
気になる
-
access2021 コンパイルエラーの原因がわからない
・access2021を使っています。 sbsheetClintにてデータを送るため以下のコードを実行しました。 Private Sub サンプル_Click() Dim a As Boolean DoCmd.RunCommand acCmdSaveRecord a = dbsCls.CopySvr_fromLocal("社員リスト", "Where 社員コード=‘" & Me.社員コード & "’", True) End Sub ・社員コードが一致するデータを上書きする形で、ローカルにあるaccessデータをサーバーに移行する形でVBAを記入したのですが、エラーが発生しました。 コンパイルエラー: メソッドまたはデータメンバーが見つかりません。 ・どちらにも社員リストがあり、主キーとして社員コードが存在するのですがなぜこのようなエラーが発生するのでしょうか? ご教授いただければと思います。 <補足> 'b = dbsCls.CopyLocal_fromSvr("社員リスト", "SELECT * FROM 社員リスト", True, 1) ・サーバーからローカルへの処理は上記のコードを使いうまくできています。 ・Microsoft access2021 ・windows11 home、64ビット
質問日時: 2024/09/07 13:19 質問者: シュウ11 カテゴリ: Access(アクセス)
解決済
2
1
-
複数のテキストファイルをexcelでそれぞれ別シートにUTF-16で書き出したい
大変お世話になっております。 VBAの超初心者です。皆さまどうかご教示ください。 あろせまるさんのご質問(https://oshiete.goo.ne.jp/qa/12768182.html)にて、 tatsumaru77さんがご回答されていた下記のマクロを使いたいと考えておりますが、 その際読み込んだ文字列のうち日本語が化けてしまいます。 https://ideone.com/0G7Zo0 読み込み元のテキストファイルはUTF-16形式なのですが、Excelファイルに書き込んだ結果、日本語が文字化けしないようにするにはどこに何を、どのようにいれたらいいのでしょうか。 どうぞご教示の程よろしくお願いいたします。
質問日時: 2024/09/06 16:17 質問者: ナカシュン太郎 カテゴリ: Excel(エクセル)
ベストアンサー
10
1
-
エクセルのことで教えてください こんな関数
1、A列とB列にあるものが一致しているか確認する関数。(ただし並び順が異なる) A列 B列 りんご ぶどう いちご りんご ぶどう いちご みたいな場合。 A列にも、B列にも「りんご」「いちご」「ぶどう」は、順番こそ異なれどあるわけですが、 これを目で見て確認ではなく、関数で確認する方法はありませんか? 2、B列 C列にあるものをA列に一気に移動する関数 A列 B列 C列 いちご ぶどう みかん ばなな みたいになっているとします。 A列のセルは空白です。 B列、C列は歯抜けです。 それを、全部左のA列に移動させ、 A列 B列 C列 いちご ぶどう みかん ばなな みたいにする関数はありませんか? 以上です
質問日時: 2024/09/06 01:44 質問者: たとろえか カテゴリ: Excel(エクセル)
解決済
5
0
-
txtの文字数ってWordの文字数カウント機能でみますか?
txtの文字数ってWordの文字数カウント機能でみますか?
質問日時: 2024/09/06 00:06 質問者: まいこさん_2975 カテゴリ: Word(ワード)
解決済
2
0
-
パワーポイント、円グラフの1部を目立たせるアニメーションのやり方を教えてください。
添付ファイルの円グラフについて。 このグラフのオレンジ部分(102名の箇所)を目立たせるアニメーション、もしくは、装飾がしたいです。 例えば、オレンジ部分が拡大するとか、オレンジ部分の周りに赤色の枠線を付けるなど。 もし、上記に書いた方法が両方ともできるのであれば、それぞれのやり方を教えていただきたいです。 よろしくお願いします。
質問日時: 2024/09/05 21:20 質問者: daaaago カテゴリ: PowerPoint(パワーポイント)
ベストアンサー
1
1
-
エクセルで入力すると隣のセルに別のセルの文字が反映されるようにしたい
エクセルで以下の表を作成していて、C2に5日と入力すると、D2にB2の内容を反映できるようにしたいのですが可能でしょうか? A B C D 1 予定日 希望する 実行日 評価 2 10月 ○ 5日 3 よろしくお願い致します。
質問日時: 2024/09/05 13:19 質問者: matuisstoto カテゴリ: Excel(エクセル)
ベストアンサー
4
0
-
Excelについて質問です。 A1タブ 1234-56--798 56の後ろにB1の98を付け加えて
Excelについて質問です。 A1タブ 1234-56--798 56の後ろにB1の98を付け加えて、 -の間にC1の3000を加えて、 D1のように、1234-5698-3000-798 のように表現したいのですが、 どのような数式?を組んだらよろしいでしょうか?
質問日時: 2024/09/05 10:20 質問者: ppakkunn カテゴリ: Excel(エクセル)
解決済
4
0
-
PowerPointのスライドの途中で、タイマーを入れたいです。
当方作りたいのは、10分と15分のタイマーです。動画とかでは重いので重くならないようにアニメーションを考えましたが、アニメーションは59秒?までしか出来ないんですかね、、、、アドオンは使わず、何か良い方作はありませんでしょうか。検索しても今一つよくわからず、ご教示いただけると助かります。時計のように見せたいですが(アナログでもデジタルでも)よくわからず、カウントダウンしていくか、図形で帯が消えていくか、何せ時間が・・・当方の知識では無理でした。よろしくお願いいたします。
質問日時: 2024/09/04 16:11 質問者: shukronajon カテゴリ: PowerPoint(パワーポイント)
解決済
2
0
-
Excelマクロで空白セルを詰めて別シートに転記するにはどうすればよいでしょうか?
Sheet1のようなデータを空白セルを詰める形でSheet2に貼り付けたいと考えています(図を参照)。 1行だけであれば下記のコードでできるところまではたどり着きました。 Sub 空白を詰める() Dim i As Long Dim j As Long Dim k As Long Dim sh1 As Worksheet Dim sh2 As Worksheet Set sh1 = Sheets("Sheet1") Set sh2 = Sheets("Sheet2") i = sh1.Cells(1, Columns.Count).End(xlToLeft).Column j = 1 For k = 1 To i If sh1.Cells(1, k) <> "" Then sh2.Cells(1, j) = sh1.Cells(1, k) j = j + 1 End If Next k End Sub 複数行のデータに対して同様の処理を行うにはどうすればよいでしょうか? ご教示願います。
質問日時: 2024/09/04 13:24 質問者: 201i カテゴリ: Excel(エクセル)
ベストアンサー
5
0
-
Excelの時刻の不思議
A1とB1に 「0:30」が入っています。それぞれ別の集計方法で出た数字です。 しかし、A1=B1 で Falseという結果が出ました。 シリアル値を確認すると以下のように相違するのが確認できました。 A1:0.0208333333333333 B1:0.0208333333333334 末尾の3と4の違いは何でしょうか? また時刻形式などシリアル値を理解してない人にも伝わる形で、同一でないことを示せる表示形式などないでしょうか? 例えば、秒の桁数を増やすとか。 同一時刻であることをTRUEにてチェックしたいのにFALSEが出ると困るので、TRUEになるための関数などでの加工はできないでしょうか? Excelでなく手動で計算するといずれも「0時間30分」なので結論は同一ですが、 Excelの都合上、相違してしまっているのは分かりますが、実際の時間計算上狂わさせずに同一にまるめたいです。
質問日時: 2024/09/04 12:36 質問者: tanapyondai カテゴリ: Excel(エクセル)
解決済
12
0
-
Excelの複数条件の関数
Excelで、複数の文字列を含む分岐の数式を教えてください。 A1セルに 「ああ」を含むときは「あ」 「いい」を含むときは「い」 それ以外は「う」 を関数で出すにはどうしたらいいでしょうか? 「ああ」「いい」は固有名詞なので「あああ」などにはなりません。 よろしくお願いいたします。
質問日時: 2024/09/03 21:20 質問者: HMTLWL カテゴリ: Excel(エクセル)
ベストアンサー
3
0
-
Teams内でショートカットって貼れないんですかね?
何年か前からうちの職場でファイルサーバではなく、Teams内にファイルを置いて管理することになったんですが面倒臭くて仕方ないです。 というのも、ファイルサーバに置いてた時は、関連しそうな別のフォルダ内にショートカットを置けたので管理がしやすかったです。 ただ、Teams内のフォルダ間でショートカットとか置いて行き来することはできないですよね? PCのデスクトップに直接リンクをはったショートカットは置けますけど。 これ、何とかならないんでしょうか? Teams内のフォルダ1に置いてあるファイルへのショートカットを同じくTeams内のフォルダ2の中に置くみたいな。 やっぱ仕様上、無理ですか?
質問日時: 2024/09/03 21:08 質問者: どちてオジサン カテゴリ: その他(Microsoft Office)
ベストアンサー
1
0
-
Excelでの表の作り方
エクセルを使用して添付画像のような折れ線グラフを作成したいと考えています。 ただ、手元にあるデータの構成的にこの折れ線グラフが作れなくて悩んでおります。 手元にあるデータは --------------------- 生徒 試験月 点数 a 1月 80 a 2月 70 a 3月 50 a 4月 50 b 1月 100 b 2月 90 b 3月 50 b 4月 60 c 1月 90 c 2月 80 c 3月 30 c 4月 10 ----------------------- こういった形になっており、これでグラフ作成しようとすると、1〜4月が複数出てきます。 (実際のデータは1万行くらいあります) 以前に同じデータの形でこのグラフを作成したことはあるのですが、数年前のことでまったく記憶も記録も残っておらず、悩んでおります。 よろしくお願いします。
質問日時: 2024/09/03 14:07 質問者: taka_papua カテゴリ: Excel(エクセル)
解決済
3
0
-
エクセルでのパーセントの計算
A2に100と入力されています。例えばC2に10と入力すると D2は100に対しての10%を引いた90と出したいのですが D2に入る式を教えて下さい。 因みに小数点以下は繰り上げでお願いいたします。
質問日時: 2024/09/03 08:23 質問者: tokoro42811 カテゴリ: その他(Microsoft Office)
解決済
2
0
-
解決済
6
0
-
Word 行数と文字数を設定したい
office365のWordで、文章の作成をしています。 行数と文字数を設定したいのですが、ページ設定が表示されません。 画像のように表示されます。 ページ設定を表示する方法を教えてください。
ベストアンサー
9
0
-
エクセルでの2項目比較および抽出方法について
お世話になります。 エクセルでの項目整理方法についてお聞きしたいです。 1のエクセルファイルには、注文番号、商品、氏名などの情報がかいてあり 2のエクセルファイルには、注文番号と発注済みかどうかが書いてある2つのファイルがあるとします。 発注済みとなっている注文番号を抜き出し、1のファイルで該当する注文番号を抜き出す(色を付ける、昇順などに並び替えるなど発注済み注文番号と未発注のファイルが区別できればよいです)方法をお教えください。 match関数で1と2を比べても抜き出しが出来ずどうしようか悩んでいます。 簡単ですが、添付画像に想定する模擬ファイルを添付しております。
質問日時: 2024/09/02 00:57 質問者: romniisan3 カテゴリ: Excel(エクセル)
ベストアンサー
1
1
-
この様式の雛形を作るとしたら簡単なのはエクセルですか?
この様式の雛形を作るとしたら簡単なのはエクセルですか?
質問日時: 2024/09/01 02:06 質問者: sistein カテゴリ: その他(Microsoft Office)
ベストアンサー
5
0
-
【マクロ】ファイル名の一括変更。条件を満たさなかったら、マクロを終了するコードについて
【やりたい事】 エクセルのシートに、複数の変更前のファイル名と変更後のファイル名があり 実行すると、変更後のファイル名に変更します。2個あれば⇒2個のファイル名を一括変更 ファイルの名前は、例えばA4セルにあるファイル名をD4セルの名前へ変えます 任意のファイル名をB4とC4にハンド入力。D4セルのファイル名を作成します そこで、条件として、コードに、以下の2つの条件をいれたいです ⇒やり方ご存じのかた、ヒント等、教えて下さい。宜しくお願いします ●B4からB13セルに同じファイル名があったら⇒メッセージ「重複してます」⇒マクロを終了 ⇒1つのフォルダにて、同じファイルは作れない為 ●A4からA13セルにあるファイル名のファイルがフォルダになかったら⇒メッセージ「ファイルがありません」⇒マクロを終了 ⇒変更前の実際にあるファイルのファイル名ととエクセルシート上の変更前のファイル名(A4からA13)が違うという意味です ファイル保管場所: C:\Users\2020\OneDrive\マクロ\名前変更フォルダ\ファイル名変更ファイル保管 【コード】 Sub ファイル名変更() 'フォルダパスを宣言 Dim path As String Dim j As Integer 'A2セルの文字をパスに設定 path = Cells(2, 1) & "\" j = 1 'B4セルからファイル名を更新 Do Until Cells(j + 3, 1) = "" 'A列のファイル名をB列のファイル名に更新 Name path & Cells(j + 3, 1) As path & Cells(j + 3, 4) j = j + 1 Loop End Sub 【参考。ファイル名を取得するコード】 以下、実施後、上のコードで名前を変更します Sub ファイル名取得() 'フォルダパスを宣言 Dim path As String 'ファイル名を宣言 Dim fileName As String Dim i As Integer 'A2セルの文字をパスに設定 path = Cells(2, 1) & "\" 'フォルダ内のファイル名を全て取得 fileName = Dir(path, vbNormal) i = 1 'A4セルからファイル名を表示 Do Until fileName = "" Cells(i + 3, 1) = fileName i = i + 1 '次のファイル名を設定 fileName = Dir() Loop End Sub
質問日時: 2024/08/31 23:21 質問者: aoyama-reiko カテゴリ: Excel(エクセル)
ベストアンサー
2
0
-
ワードの文字の大きさについて
大学のレポートの課題をしようと思ったのですが、ワードの文字がとても小さいです。 大学側から文字の大きさを指定されているので指定された文字の大きさ(12)で記入したのですが小さすぎます。 パソコンはマックを使っているのですが、マック仕様になっているのでしょうか? それとも12という文字サイズで書くとこんなに小さいのでしょうか?
解決済
6
0
-
ワードの保存について
ワードで文章を作成しデスクトップに保存すると添付のようにっワードのWが右下に小さくして保存されます。(エクセルは普通の形状(形)で保存されます)通常?形式で保存するにはどうしたらよろしいでしょか?
質問日時: 2024/08/30 12:22 質問者: Newkitakarasu カテゴリ: Word(ワード)
ベストアンサー
2
0
-
【マクロ】フォルダ内にあるPDFを合体させるには?有料版adobe必要?
質問1 以下のコードは2つのPDFを結合します フォルダ内にある、2つのPDFファイルのパスを、コードに指定します やりたい事は、当該、PDFファイルパス指定をせずに、フォルダ内にある2つ(2~10個)の ファイルを結合するコードに変更したいです > pdfs.Add "C:\Users\2020\OneDrive\デスクトップ\PDF結合\2438-214-20090414.pdf" > pdfs.Add "C:\Users\2020\OneDrive\デスクトップ\PDF結合\140120240812570514.pdf" ご存じの方、アドバイス・ご指導お願いします 質問2 当方、パソコンに、アドビの有料ソフトは一切いれていません しかし、PDF結合は以下マクロにて作成できています 勝手に、有料版が契約されている事はないでしょうか? NETにて調べた際に、ほとんどの、サイトでは Adobe Acrobat Pro DC(有料版)のインストールが必要と 記載がある為、質問させて頂いています 【コード】 Sub ExecuteCombinePDFs() Dim pdfs As New Collection Dim outputPath As String ' 結合するPDFファイルのパスを指定します pdfs.Add "C:\Users\2020\OneDrive\デスクトップ\PDF結合\2438-214-20090414.pdf" pdfs.Add "C:\Users\2020\OneDrive\デスクトップ\PDF結合\140120240812570514.pdf" ' さらにファイルを追加... ' 結合後のファイルの保存パスを指定します outputPath = "C:\Users\2020\OneDrive\デスクトップ\PDF結合\結合.pdf" ' PDF結合関数を呼び出します 合体サブシーシャ pdfs, outputPath End Sub Sub 合体サブシーシャ(pdfList As Collection, outputPath As String) Dim acroApp As New Acrobat.acroApp Dim pdDoc As Acrobat.CAcroPDDoc Dim pdDocToAdd As Acrobat.CAcroPDDoc Dim i As Integer Set pdDoc = CreateObject("AcroExch.PDDoc") ' 最初のPDFファイルを開きます pdDoc.Open pdfList(1) ' 残りのPDFファイルを順番に結合します For i = 2 To pdfList.Count Set pdDocToAdd = CreateObject("AcroExch.PDDoc") pdDocToAdd.Open pdfList(i) pdDoc.InsertPages -1, pdDocToAdd, 0, pdDocToAdd.GetNumPages, True pdDocToAdd.Close Next i ' 結合したPDFを保存します pdDoc.Save PDSaveFull, outputPath pdDoc.Close ' Acrobat Applicationを終了します acroApp.Exit Set pdDoc = Nothing Set acroApp = Nothing End Sub
質問日時: 2024/08/30 08:39 質問者: aoyama-reiko カテゴリ: Excel(エクセル)
ベストアンサー
3
1
-
非アクティブになっている文書をアクティブにするためにエクスプローラーのドキュメントからword文書を
windows11 word文書は閉じずに開いたままでgoogle chromeなどを使っていて非アクティブになっている文書をアクティブにするためにエクスプローラーのドキュメントからword文書をクリ ックすると毎回スクロールが一番上に戻ってしまい、「前回終了した位置から再開します」と表示されます。これを毎回クリックし、その位置に戻すのが面倒です。 どうすればエクスプローラーからword文書をクリックしてもスクロールが一番上にならずに前回終了した位置になるのでしょうか。
質問日時: 2024/08/29 20:49 質問者: yamadasiraisi1996 カテゴリ: Word(ワード)
解決済
1
1
-
Excelの条件付き書式について
Excelについて質問です。 添付した画像のような形で貸出記録表を作成しています。 貸出品はカードとし、カードのリストを2行目に入力しています。 4行目以下の貸出記録表の中で、状態が「×」(貸出中)となっているカードについて、 2行目のリストに自動で色がつくようにすることは可能でしょうか? 添付の画像の例では手動で色付けをしていますが 例えば「★001」のカードの状態が「×」なので、2行目のリスト上の「★001」をオレンジに塗りつぶしています。 これを自動で色がつくようにできますか? 可能であれば、方法とその関数を教えていただけると助かります。 説明が分かりづらいようでしたら申し訳ございません。 よろしくお願いいたします。
質問日時: 2024/08/28 19:15 質問者: HFてん カテゴリ: Excel(エクセル)
解決済
4
0
-
GoogleスプレッドシートでA1に日付8/28と入力すると B1に自動で"水"と曜日を表示させる方
GoogleスプレッドシートでA1に日付8/28と入力すると B1に自動で"水"と曜日を表示させる方法を教えてください。
質問日時: 2024/08/28 13:27 質問者: ハービー977 カテゴリ: Excel(エクセル)
解決済
2
0
-
Word「レイアウト」から「ページ設定」できない
文章の行間を開けたいのですが、「レイアウト」から「ページ設定」が開けません。 検索してみましたが、適切な記事はありませんでした。 どうすれば、ページ設定を表示することができますか? 教えて下さい。
ベストアンサー
6
0
-
【Excel】版が同じ事を示す番号を生成したい
Excelで作成した、ある集計表があります。 右端に備考欄があるのですが、ある事情があって、 備考欄を表示した状態でPDF保存、 備考欄を非表示にした状態でのPDF保存をして両方提出するのですが、 集計内容が全く同一なのか客観的に判断できるように求められました。 つまり、備考ありでPDF化した後、誤字に気づいて修正後にP備考無しでPDF化する場合もあり得るがそれが判別できるようにしたいとの事です。 日時をフッターに入れればと思いましたが、日時は出したくないと(笑 何かしらの発行番号みたいな数字を生成して右下に挿入されるようにしておけば、備考有り無しの番号が一致していれば内容は同一と証明できます。 現在日時を何らかの加工をして発行番号を生成するにはどうしたら良いでしょうか? または、そのファイルの最終更新日時から生成できれば、多少保存するタイミングずれても同一の番号になると思いました。 分かりづらいかもしれませんがアドバイスいただけたら嬉しいです。
質問日時: 2024/08/27 14:46 質問者: tanapyondai カテゴリ: Excel(エクセル)
解決済
3
1
-
複数のWord文書で1つのファイルだけ文字が小さくなってしまいます
複数のWordファイルを使っており、フォントは皆同じで「MS明朝10.5」にしています。 しかし最近、1つのファイルだけ画面の文字が小さくなってしまいました。 「MS明朝16」位にしないと他のファイルの「MS明朝10.5」の大きさになりません。 その1つのファイルの「MS明朝10.5」の文字をコピーして、正常なファイルにペーストすると、 同じく画面上で小さくなってしまいます。 しかしフォントを調べると「MS明朝10.5」のままです。 つまり、1つのファイル上の画面で「MS明朝10.5」の文字が大小の2種類になってしまいます。 これは何が原因でしょうか? なお、この異常なファイルは長年使用しており、文章を加えているのでページ数が大きくなっています。
ベストアンサー
4
1
-
ベストアンサー
2
0
-
アニメーションの設定を一括で変更したいです。
完成したパワーポイントのファイルが複数あります。各ファイルのスライド数は30~70ぐらいです。 各スライドを開いたときにある音声が流れるようになっています。 サウンド(オーディオ?)のアイコンにアニメーションが設定されています。設定は「直前の動作と同時」になっており、添付のファイルのようにアニメーションの番号が「0」となっているので、スライドが切り替わったときに自動で再生されます。 これをスライドが切り替わったときに自動で再生ではなく、クリック時に再生するようにしたいのです。 数が多いのでできればVBAで処理したいのですが、どのようにしたらいいでしょうか? ExcelのVBAならわかりますが、PowerPointはよくわかりません。 以下のURLの「4.完成したソース と 再テスト」の「shp.AnimationSettings.AnimationOrder = 0 'アニメの順番を先頭に移動する」の部分の0→1に変更すればできるかと思ったのですが、ダメでした。 https://ken3memo.hatenablog.com/entry/2023/05/19/200000 もしわかる方がいらっしゃいましたら、よろしくお願いいたします。
質問日時: 2024/08/25 20:44 質問者: CaveatEmptor カテゴリ: PowerPoint(パワーポイント)
ベストアンサー
2
0
-
パワポで4スライドで余白を少なくして見やすく大きめに印刷したいのですがどのように設定すればできますか
パワポで4スライドで余白を少なくして見やすく大きめに印刷したいのですがどのように設定すればできますか?
質問日時: 2024/08/25 12:16 質問者: sa.ma.ya. カテゴリ: PowerPoint(パワーポイント)
解決済
2
0
-
【マクロ】functionプロシージャの、変数について
【質問】 1番下のコードについて 変数Aの中身について分かりません 変数の初期値は 0 と思います ●しかし、以下のコードから見ると、 AはSheet1に定義されているように思えます 実際、Aは何でしょうか? If Sheets(i).Name = A Then ●また、以下コードについて、checkは 任意の変数かと思いますが check("Sheet1")のような、書き方はあるのでしょうか? Sheets("シート名")等なら分かるのですが。 ご存じの方、宜しくお願いします If check("Sheet1") = True Then 【コード 動きます】 Sub macro1() If check("Sheet1") = True Then MsgBox "存在します" Else MsgBox "存在しません" End If End Sub Function check(A As String) Dim i As Long For i = 1 To Sheets.Count If Sheets(i).Name = A Then check = True Exit Function End If Next i check = False End Function
質問日時: 2024/08/25 09:09 質問者: aoyama-reiko カテゴリ: Excel(エクセル)
ベストアンサー
2
0
-
wordについて質問です。 表を右から左に動かしたいのですが動きません 表にカーソルを置いた時に表の
wordについて質問です。 表を右から左に動かしたいのですが動きません 表にカーソルを置いた時に表の左上に縦横に伸びた矢印のマークが出てきてそのマークの上で左クリックしたまま右まで動かしたのですが表の中が選択されるだけで動きませんどうすればいいですか
ベストアンサー
6
0
-
googleのスプレッドシート
excelだとセルの中に=をして別シートを選択するとシート名が入りますが、スプレッドシートでは手入力するしかないのでしょうか?設定の問題でしょうか?
質問日時: 2024/08/24 14:13 質問者: denpataro カテゴリ: Excel(エクセル)
ベストアンサー
1
1
-
エクセル IF計算式?でしょうか?
エクセル365 を使用しています。 sheet1の一覧に入力されている都道府県や住所から sheet2の各都道府県ごとの担当者を表示したいです。 sheet1 Aセル Bセル Cセル Dセル 新宿区〇〇・・・ 空白 1 田中 空白 北海道〇〇市・・・ 空白 大谷 茨城県 DEF 333 伊藤 空白 空白 ABC 森山 富山県○○市・・・ 空白 群馬県 ・ ・ ・ sheet2 Aセル Bセル 北海道 田中 青森県 佐藤 岩手県 佐々木 ・ ・ ・ 茨城県 大谷 富山県 伊藤 群馬県 森山 ・ ・ ・ sheet1のA~Cセル内に、都道府県のみもしくは住所がバラバラに載っている、住所・都道府県以外の記載もある一覧があります。 sheet2にはAセルに都道府県、Bセルは担当者となっています。 sheet1のA~Cセルの中の都道府県や住所から、各都道府県ごとの担当者をsheet1のDセルに空白を開けずに一覧として表示させたい。 上記の例から A1セル →新宿区〇〇・・・ →都道府県がない 市区町村から始まる住所→Dセルに摘出しない B2セル →北海道〇〇市・・・ の住所から→sheet2一覧のBセルから北海道担当の田中を→sheet1 Dセルに表示 A3セル →茨城県のみの表記から→sheet2一覧のBセルから茨城県担当の大谷を→sheet1 Dセルに表示 4行目はA~Cセルに都道府県・住所の表記がない→何も抜き出さない A5セル →富山県〇〇市・・・ の住所→C5セル →群馬県のみの表記→sheet2一覧のBセルから富山県担当の伊藤と、群馬県担当の森山を→sheet1 Dセルに表示(伊藤・森山の順番はどちらが先でもOK) ※4行目は都道府県・住所もないが該当しないから空白とはせず、Dセルに表示する担当者名はDセル内で詰めて表示したい。 といったことがやりたいのですが、どのような式を組めばできるのか分からず・・・ 教えて頂けると助かります。 よろしくお願いします。
質問日時: 2024/08/23 13:40 質問者: べるベル カテゴリ: Excel(エクセル)
解決済
6
0
-
エクセル折れ線グラフについて教えてください。 10店舗の売上目標に対する達成率を折れ線グラフで作成し
エクセル折れ線グラフについて教えてください。 10店舗の売上目標に対する達成率を折れ線グラフで作成しましたが、どこも似たような進捗でダンゴになってしまいます。 これを見やすくする(差がない中で差をつける)方法はありませんか? グラフを大きくしたり、表示期間を短く上半期などにしたりすれば多少は見えるようになりますが、ダンゴに変わりないのでなにかアイデアを頂戴したいです。よろしくお願いします。
質問日時: 2024/08/23 06:07 質問者: m1tk カテゴリ: Excel(エクセル)
解決済
5
1
-
EXCELで数値が異なった数字を足して目標値に最も近い組み合わせを選び、かつその目標値を超えないよう
EXCELで数値が異なった数字を足して目標値に最も近い組み合わせを選び、かつその目標値を超えないようにしたいです。 上記の内容が出来る方法を教えて欲しいです。 数値(点数)は5つ程あり、増減するので書き換えれる様にしたいです。数値(点数)も縦列に追加出来る様にしたいです。 同じ数値は使える最大回数が決まっており、それを超えない様にしたいです。また、最大回数も変更出来るようにしたいです。 ①目標値(都度使用時に書き換えれる様にしたい) ②数値(変動する+縦列に追加出来る様にしたい) ③回数(目標値までに使用した数値の回数を表示したい) ④最大回数(変動するので書き換えれる様にしたい) lookup関数を使い、ある程度動かせましたが、最大回数を変えると動きが変になり、目標値を超えて計算してしまいます。ソルバーもwebで見ながら試しましたが、上手い事動かず困ってます。もし出来るなら教えて頂けたら幸いです。
質問日時: 2024/08/23 01:24 質問者: taxxxat カテゴリ: Excel(エクセル)
ベストアンサー
1
1
-
【マクロ】for nest について 別のブックを動かす際のコード
【質問したい事】 マクロが保存されているブックとは別のブックに 対して、for next ステートメントを実行したいです 以下コードまで考え、普通に動いています これで良いのでしょうか? For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row の文から、何も、別ブック・別シートについて、指定してないのですが ちゃんと、別ブックに飛んで動いています 理屈等、分かる方いましたら、教えてください 【別のブックに対してのfor nextステートメント】 Sub 抽出() Dim kagamibook As Workbook Dim kagamisheet As Worksheet Dim filePath As String filePath = "C:\Users\2020\OneDrive\マクロ\240820_あいうえお.xlsm" Set kagamibook = Workbooks.Open(filePath) Set kagamisheet = kagamibook.Sheets("ボタン作成先シート") For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 3) = "条件1" Or Cells(i, 3) = "条件1" Then Cells(i, 5) = Cells(i, 1) End If Next i End Sub
質問日時: 2024/08/22 12:49 質問者: aoyama-reiko カテゴリ: Excel(エクセル)
解決済
2
0
-
ステータスバーの合計に表示される値と計算結果の表示結果が違ってしまい、 困っています。
ステータスバーの合計に表示される値と計算結果の表示結果が違ってしまい、 困っています。 csvデータのファイルに8:50 9:20 8:00 8:30と並んでいます。 ドラッグして選択すると、ステータスバーに 合計:34:40 と表示されています。 このデータをSUMIF関数を使って合計を計算すると、10:40と表示されてしまいます。 ステータスバーに表示される値が表示されるようにしたいのですが、 何を変更したらよいでしょうか?
質問日時: 2024/08/21 22:49 質問者: yuu2222 カテゴリ: その他(Microsoft Office)
解決済
1
0
-
Excelで数値を時間数に変換する関数について
office365を使っている者です。 Excelで数値を時間数の表示に関数で変換する方法があればご教示願います。 例えば,あるセルにおいて,=VLOOKUP($B2,出力!$B:$Z,13,0)+VLOOKUP($B2,出力!$B:$Z,14,0)という数式(以下「式A」)で4.17という数値を取得したとします。(vlookupで出力シートから時間の入ったセルを引っ張り,それらを足しています) その同じセルにおいて,4.17を4時間10分又は4:10に関数で変換する方法があれば,それぞれにつきご教示いただけると幸いです。 式Aから「.」より前の部分をLEFT,FIND等で抽出し,「時間」の文字列を足し,「.」より後の部分に60をかけて小数点以下を四捨五入し,それに「分」の文字列を足すというような数式でもできそうですが,なんとも原始的な気がします。 また,セルの書式設定で時刻にしても,適切に表示されません。 よろしくお願いいたします。
質問日時: 2024/08/21 18:37 質問者: qazxcvfr4 カテゴリ: Excel(エクセル)
ベストアンサー
6
0
-
フォントについて フォントは購入すること出来ますか? 実は、筆ぐるめを使っていて 「恋文ペン字」とい
フォントについて フォントは購入すること出来ますか? 実は、筆ぐるめを使っていて 「恋文ペン字」というフォントが大好きになりました。 ポラリスのワードを使うとき、このフォントを捜したけどありません。 可能なら、購入してでも ポラリスで使いたいのですが
質問日時: 2024/08/21 12:36 質問者: Sudarabusi カテゴリ: Word(ワード)
ベストアンサー
2
0
-
Excelについて。Excelに縦1列に並んだワードをひたすら検索しているんですが、 コピー貼り付け
Excelについて。Excelに縦1列に並んだワードをひたすら検索しているんですが、 コピー貼り付けが地味に面倒いです。 エクセル関数などを使って、 一気に検索する方法はないでしょうか? やり方は分かりませんが、ハイパーリンクみたいにしてクリックするだけで出るように出来たら便利だと思ってます。 よろしくお願いいたします(>人<;)
質問日時: 2024/08/21 12:08 質問者: 八雲さん カテゴリ: Excel(エクセル)
ベストアンサー
7
0
-
あらかじめ用意したテンプレートに文字を貼り付けたい
夏休みの課題として漫画感想文コンクールの提出が出されました。 文章は事前にデータで配布された指定のテンプレートに書かないといけないのですが、 書いてみたところ、マスにうまく合わないです。 どうしたら直せますか? テンプレートはこれです https://www.manga-kansoubun.jp/download/genkouyoushi_kansoubun_2024.docx?1 またソフトウェアはLibreOfficeというものを使っています。 拙い文章ではありますが、ご回答いただければ幸いです。
質問日時: 2024/08/20 17:26 質問者: kenyskey カテゴリ: その他(Microsoft Office)
解決済
3
0
-
「フィールド更新」が表示されない
Wordのファイル内で次の2つを多数(多分、(1)は10個くらい、(2)は100個くらい)作成しています。 (1)そのファイル内にあるブックマークへのリンク (2)「新しいアウトラインの定義」で作成した見出し番号への、相互参照で作成したリンク 次のように、「フィールド更新」が表示されたりされなかったりします。 (a)「Ctr+A」でファイル全体を範囲指定して右クリックすると、「フィールド更新」が表示されない。 (b)ファイル内で(1)がなくて(2)があるところだけを範囲指定して右クリックすると、「フィールド更新」が表示される。 (c)ファイル内で(1)があるところ1カ所だけと(2)があるところ1カ所だけを含む狭い範囲を範囲指定して右クリックすると、「フィールド更新」が表示されない。 (d)別のWordファイルを新規作成して、(1)、(2)を作成しても、(a)~(c)と同じ症状が出る。 (a)、(c)、(d)の症状が出ないようにするにはどうすればいいでしょうか。 Windows 10、バージョン22H2、OSビルド19045.4780です。 Word 2021,バージョン2407、ビルド17830.20116です。
ベストアンサー
1
0
-
別シートの年間行事表をカレンダーに反映させたい
上司から社内カレンダーの作成を依頼されており、 社内の1年間の行事予定を別シート(Sheet1)に用意し、Sheet2のカレンダーに反映させたいと思っています。 vlookup関数を使用し作成したところ同じ日付に複数の予定がある場合、頭の一つしか反映されないため、困っています。 同一の日付に複数の予定がある場合でも、カレンダーに反映されるような関数の式を教えていただけないでしょうか。 色がついているセルに反映させたいと思っていますが、予定が2,3件ある場合に下に2,3行と続く形にしたいです。 不勉強でわかりにくい点もあるかと思いますが、何卒よろしくお願いいたします。
質問日時: 2024/08/19 18:44 質問者: ry5698 カテゴリ: その他(Microsoft Office)
解決済
2
0
-
ワードやエクセルのリボンについて
現在使っているPCのワードやエクセルには図のようなリボンを設定して上部に表示し、便利に使っています。 新しいPCにもワードやエクセルをいれましたがリボンを再設定しなければなりません。 これが結構面倒なことでうんざりしています。今のPC設定をコピーして新しいPCに引き継ぐ(移す)方法があったら教えてください。
質問日時: 2024/08/19 17:34 質問者: Newkitakarasu カテゴリ: Word(ワード)
ベストアンサー
1
0
-
エクセルマクロを教えてほしい(月別のシートを一つにまとめたい)
現在の状況:月別に同じ表あり。(例:A列の項目毎に、B列に値あり。A1~B10) ↓ 集計シートを作成したい。 A列=シート名(〇月) B列~K列=各シートの値を、1行にまとめて表示 (集計シート) 1行目:月,A1,A2,・・・A10 2行目:4月,(4月シートの)B1,B2・・・B10 3行目:5月,(5月シートの)B1,B2・・・B10 … 13行目:3月,(3月シートの)B1,B2・・・B10 ネットでみても該当しそうなものが見当たりませんでした。
質問日時: 2024/08/19 15:19 質問者: しらいし302 カテゴリ: Excel(エクセル)
ベストアンサー
2
0
-
エクセルを使用して、円周率を表示させる方法
円周率=3.141592・・・・・ は、無限に続くと言われていますが、 これをエクセルで表示させる方法を教えて下さい。 難しい事はわからないので、出来れば、簡単な説明で よろしくお願いいたします。
質問日時: 2024/08/19 11:27 質問者: オレンジmm カテゴリ: Excel(エクセル)
ベストアンサー
5
0
-
【マクロ】マクロが割当てされたボタンの作成する際に、作成先のモジュールにもマクロを保存できますか?
【やりたい事】 以下のコードを実行すると、実行するファイルではない別ファイルに マクロのボタンが作成されます。同ボタンにはマクロが割当てられており、動きます ですが、2つのファイルが開いていて、実行されます コードが保存されている、いろいろあり転記元.xlsmが開いている必要があります ですので、マクロボタンを作る時に、マクロボタンが作成されるファイル (240820_あいうえお.xlsx)にもマクロのコードが保存されるように出来ませんでしょうか? ⇒マクロボタンが作成されたファイル1つだけ開いている状態で、マクロを実行したいのです ご存じの方、宜しくお願いします 【マクロを実行するファイル】 "C:\Users\2020\OneDrive\マクロ\コントロールファイル\いろいろあり転記元.xlsm" 【マクロボタンが作成されるファイル】 "C:\Users\2020\OneDrive\マクロ\240820_あいうえお.xlsx" 【別のブックにマクロが割当てられたボタンを作成のコード】 Sub Sample1() Workbooks("240820_あいうえお.xlsx").Activate With Workbooks("240820_あいうえお.xlsx").Worksheets("ボタン作成先シート").Buttons.Add(Range("E1").Left, _ Range("E1").Top, _ Range("E1:F1").Width, _ Range("E1:F2").Height) .OnAction = "マクロプログラム" .Characters.Text = "マクロボタン" End With End Sub Sub マクロプログラム() Dim lastrow As Long lastrow = Workbooks("240820_あいうえお.xlsx").Worksheets("ボタン作成先シート").Cells(Rows.Count, 1).End(xlUp).Row MsgBox lastrow Range("A" & ActiveCell.Row & ":C" & ActiveCell.Row).Interior.ColorIndex = 15 Range("C" & ActiveCell.Row) = "削除" Range("A" & ActiveCell.Row & ":C" & ActiveCell.Row).Cut Range("A" & lastrow).Offset(1, 0) ActiveCell.EntireRow.Delete End Sub
質問日時: 2024/08/18 13:23 質問者: aoyama-reiko カテゴリ: Excel(エクセル)
ベストアンサー
5
0
-
【マクロ】AブックからBブックへセルの値コピーにおけるブックのアクティブについて
【質問】 以下のコードは、転記元ブックから転記先ブックへセルの値をコピー・貼付します 最初、Workbooks("転記元.xlsm").Activate の記述をしなかった場合エラーとなりました 追加後は動きました ここで質問ですが 以下の記述の前にも Workbooks("転記先.xlsm").Activate を入れなくても 動くのでしょうか?(なぜ動くのでしょうか) Workbooks("転記先.xlsm").Worksheets("Sheet1").Cells(1, 1).PasteSpecial xlPasteValues という質問です 自分のイメージは以下のイメージなためです ●転記元ブック アクティブ ⇒転記元ブックのデータをコピー ●転記先ブック アクティブ・・・・・この記述がないと、マクロが転記先へ移動しないと思います が実際は、移動して、貼付の実行をしてくれます ⇒転記先へデータを貼付 ご存じの方、ご指導お願いします 【コード動きます】 Sub 転記() Dim lastrow As Long lastrow = Workbooks("転記元.xlsm").Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row Workbooks("転記元.xlsm").Activate Workbooks("転記元.xlsm").Worksheets("Sheet1").Range(Cells(1, 1), Cells(lastrow, 3)).Copy Workbooks("転記先.xlsm").Worksheets("Sheet1").Cells(1, 1).PasteSpecial xlPasteValues End Sub
質問日時: 2024/08/17 19:29 質問者: aoyama-reiko カテゴリ: Excel(エクセル)
ベストアンサー
4
1
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
【Microsoft Office】に関するコラム/記事
-
弁護士が解説!あなたの声を行政に届ける「パブリックコメント」制度のすべて
社会に対する意見や不満、疑問。それを発信する場所は、SNSやブログ、そしてニュースサイトのコメント欄など多岐にわたる。教えて!gooでも「ヤフコメ民について」というタイトルのトピックがあり、この投稿の通り、...
-
弁護士が語る「合法と違法を分けるオンラインカジノのシンプルな線引き」
「お金を賭けたら違法です」ーーこう答えたのは富士見坂法律事務所の井上義之弁護士。オンラインカジノが違法となるかどうかの基準は、このように非常にシンプルである。しかし2025年にはいって、違法賭博事件が相次...
-
釣りと密漁の違いは?知らなかったでは済まされない?事前にできることは?
知らなかったでは済まされないのが法律の世界であるが、全てを知ってから何かをするには少々手間がかかるし、最悪始めることすらできずに終わってしまうこともあり得る。教えてgooでも「釣りと密漁の境目はどこです...
-
カスハラとクレームの違いは?カスハラの法的責任は?企業がとるべき対応は?
東京都が、客からの迷惑行為などを称した「カスタマーハラスメント」、いわゆる「カスハラ」の防止を目的とした条例を、全国で初めて成立させた。条例に罰則はなく、2025年4月1日から施行される。 この動きは自治体...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PowerPointのスライドの途中で、タ...
-
アイコン名に(1)が付いているのはな...
-
Microsoft 365 Basic サブスクリプ...
-
Microsoft Officeを2台目のPCにイン...
-
表計算ソフトでの様式の呼称
-
vba テキストボックスとリフトボッ...
-
パワーポイント「スライドショーの...
-
エクセルのVBAで集計をしたい
-
テキストボックスの文字列を上下中...
-
【マクロ】数式を入力したい。カウ...
-
【マクロ】実行時エラー '424': オ...
-
【マクロ】元データと同じお客様番...
-
【マクロ】左のブックと右のブック...
-
他のシートの検索
-
【画像あり】オートフィルターにつ...
-
【マクロ】【配列】3つのシートに...
-
Office2021のエクセルで米国株価を...
-
【マクロ】【相談】Excelブックとマ...
-
ワードの句読点が変な位置に出てし...
-
エクセルでフィルターした値をフィ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】元データと同じお客様番...
-
エクセルの関数について
-
【画像あり】オートフィルターにつ...
-
エクセルのVBAで集計をしたい
-
エクセルのリストについて
-
【マクロ】数式を入力したい。カウ...
-
【マクロ】【相談】Excelブックとマ...
-
Office2021のエクセルで米国株価を...
-
【マクロ】実行時エラー '424': オ...
-
他のシートの検索
-
エクセルの複雑なシフト表から当日...
-
【マクロ】【配列】3つのシートに...
-
vba テキストボックスとリフトボッ...
-
【マクロ】左のブックと右のブック...
-
【マクロ】変数に入れるコードを少...
-
エクセルシートの見出しの文字を大...
-
【マクロ】別ファイルへマクロを登...
-
【関数】同じ関数なのに、エラーが...
-
Amazonでマイクロソフトオフィス201...
-
ページが変なふうに切れる
おすすめ情報