回答数
気になる
-
指定文字の間に
A1のセルに123456と入力すると●の部分に123456の数字が入り SSセ令和6年第 ●●●●号 をSSセ令和6年第 123456号になるようにしたいのですが 式を教えていただけないでしょうか
質問日時: 2024/05/15 18:57 質問者: tokoro42811
解決済
5
0
-
Googleスプレッドシートでファイルを跨っての関数設定方法について
Googleスプレッドシートでファイルを跨っての関数(index,match)の設定方法についておしえてほしいです。 エクセル同志ではなく、Googleスプレッドシート同志でのindex,match関数の設定方法です。 関数がそもそも変わるのか、他の理由かでうまく設定できておりません。 詳しい人からのアドバイス、具体的な関数設定事例が掲載されたサイトURL、画像などが 有りましたら送っていただきたいです。 ご解説もいただきたいので、お早めによろしくお願いいたします。
質問日時: 2024/05/15 12:00 質問者: hts_m2g
ベストアンサー
1
0
-
Excelで縦軸の書式を0:00形式の時間にするにはどうすればよいでしょうか?
経過時間をグラフに織り込む場合 私の認識では、 ・0:00形式では無理で、秒数に直す必要がある。 しかしそれだと 縦軸のメモリが200000などとなってしまう。 ↓ これを0:00の時間にしたい。 さらに、私のグラフでは、 日付と時間の数値が離れている場所にある。(Ctrlを押して離れたところを選択し直さないといけない) どうすれば縦軸の目盛りを0:00形式の時間にできるでしょうか? 表示だけでいいです。 (また0:00形式のデータをグラフにできるのでしょうか?)
質問日時: 2024/05/15 10:50 質問者: july_plan
解決済
1
1
-
エクセルで年休を管理する方法について
年次有給休暇表をエクセルで作ろうと思っています。 出勤データはタイムカードデータがcsvでとれるので、それを使って自動計算できるように したいです。データとしては、当月営業日数、実勤務日数、年休使用日数を出力できます。 毎月、手入力を極力少なくして、データを参照する形で表にしたいです。職員は20人程です。 おすすめのテンプレート等ありましたら、教えていただければうれしいです。
質問日時: 2024/05/14 16:32 質問者: yu090
ベストアンサー
2
0
-
Excel
Excelであらかじめ作成してある資料の数値を、別なExcelに反映させることはできたのですが、その原資を毎月コピーして使用するとき、毎回一部分一部分の行の数値を一つ一つ入れ替えるのが面倒です。 一度に済ませる方法はないのでしょうか? 分かりづらくて申し訳ないです。 行はC3~C49まであります。 ='[入出庫帳(令和6年4月).xlsx]Sheet1'!C3 ='[入出庫帳(令和6年4月).xlsx]Sheet1'!C3 ='[入出庫帳(令和6年4月).xlsx]Sheet1'!C3 のC3の部分の3の数値を49まで消しては入れ替えてを1つずつやっています。 これを一気に ='[入出庫帳(令和6年4月).xlsx]Sheet1'!C3 ='[入出庫帳(令和6年4月).xlsx]Sheet1'!C4 ='[入出庫帳(令和6年4月).xlsx]Sheet1'!C5 のように一気に済ませたいです。 カーソルで下までスクロールしただけではなりませんでした。
質問日時: 2024/05/14 13:09 質問者: アルミーナ
ベストアンサー
5
0
-
エクセル:一覧表に存在する文字が含まれているセルを抽出したいです
Sheet1のA列のセルに、一覧表にある花が含まれている場合は1を立てるという数式をご教示いただきたいです。 COUNTIFSやワイルドカード検索など試しましたがなかなかうまく行かず、知恵をお借りしたいです。 ※Sheet1の文字の並びはバラバラです。花の名前が最初にあったり途中にあったりします。 ※Sheet2の一覧は実際には40個ほどあります。 以下の場合だと、B列に数式を入れ、①②④⑤に1が立つというイメージです。 【Sheet1】 A列 ①さくら回廊_千葉 ②ひまわり畑散策 ③いるかショー_品川 ④さくら周遊 ⑤青いネモフィラの絨毯 ⑥くじら海峡 【Sheet2】一覧表 A列 さくら ひまわり ネモフィラ コスモス バラ よろしくお願いいたします。
質問日時: 2024/05/14 12:29 質問者: Mayer
解決済
5
0
-
エクセルで日付を数字+アルファベットと比較したい
A列に日付(2024/5/14)と入力されていて、B列にA列の日付の西暦の末桁+月で「45・・・」と入力されています。 このA列とB列が合っているか否かを条件付き書式で判定したいのです。 但し、月が10、11,12月はX,Y,Zになります。 2024/11/15なら「4Y・・・」というようになります。
質問日時: 2024/05/14 11:53 質問者: 教えてOK知恵袋
ベストアンサー
4
0
-
エクセルの計算
画像のようにローマ字を指定の数字に自動変換したいです。 例えばA=1、M=4、Z=8など。 上のローマ字と同じ位置の数字に変換したい認識です。 その場合、どのような数式(関数)にしたらよいでしょうか。
質問日時: 2024/05/13 22:38 質問者: 夢巫女
ベストアンサー
7
0
-
ベストアンサー
5
0
-
セルの内容表示が邪魔になる
excel2003を使っています。 セルをクリックすると、 内容が列表示(ABC----)のバーの上の枠に表示されます。 (この枠を何というのか分かりません) セル内容が1行だけなら問題ないのですが、 コンカチしているような場合では表示が複数行に及ぶため、 列表示を塞いでしまい、邪魔になります。 これを消す、 または邪魔にならないよう、 回避させるさせるような設定を教えてください。 宜しくお願いします。
質問日時: 2024/05/13 10:58 質問者: nagahaha
ベストアンサー
2
0
-
Microsoft365に変えたのですが、リボンに「データ分析」という邪魔なものが追加されています。
このボタンを消す方法をご存じありませんか?
質問日時: 2024/05/13 08:14 質問者: ピクセル7
ベストアンサー
6
0
-
解決済
4
0
-
解決済
5
0
-
エクセルでの作業計算方法について
すみません。エクセルの計算方法でおしえて頂きたい事があります。 下記の添付で[開始時刻]をいれて[終了時刻]も入力します。[休憩時間]を入力した上で実働時間が算出されます。[全体時間(分)] 作業をおこなう上で1分間で例として6個作業をおこなう上で 作業数量が30000函の際に終了予定をもとめたいのです。下記[終了予定]には休憩時間の時間の間は入れないようにしたいです。 休憩時間は 12:15~13:00 15:00~15:15 18:00~18:10 上記の時間は[終了時間]に反映しないようにしたいと思います。 休憩時間の算出についての計算式は =IF(COUNT(A6:B6)=2,MAX(MIN("12:45",B6),A6)-MIN(MAX("12:00",A6),B6)+MAX(MIN("15:00",B6),A6)-MIN(MAX("14:45",A6),B6)+MAX(MIN("18:15",B6),A6)-MIN(MAX("18:00",A6),B6),"") になります。この計算式もこのサイトで教わりました。 上記を踏まえまして、終了予定時間を算出する方法を教えてください。 何卒、よろしくおねがい致します。
質問日時: 2024/05/11 22:34 質問者: rikt11220809
解決済
8
0
-
Microsoft1Officeの互換ソフトについて
基本的なことはまったく問題ないですが、セル幅や余白が変わるのが困ります。 そもそもセル幅や余白ってなぜ変わるんでしょうか? 変わる余地がないと思うのですが。
質問日時: 2024/05/11 11:35 質問者: ピクセル7
ベストアンサー
1
0
-
【マクロ】読取専用のファイルの名前を変更して、別フォルダへ名前を付けて保存するためには
【やりたい事】 ・読取専用ファイルの名前を変更をしたい。保存先は読取専用ファイルとは別フォルダ ・変更後のファイル名は、以下のファイルの A1セル に書いてあります。 A1セル⇒ 20240511 のみです ・イメージは、転記元.xlsxから、実行。読取専用ファイルを別の名前にして別フォルダへ保存です 【読取専用ファイル】 C:\Users\2020\OneDrive\マクロ\原本ファイル\読取専用_原本ファイル.xlsx 【変更後のファイル名の場所】 C:\Users\2020\OneDrive\マクロ\転記元.xlsx A1セル 【名前付けて保存をしたい場所】 C:\Users\2020\OneDrive\マクロ\20240511.xlsx
質問日時: 2024/05/11 10:43 質問者: aoyama-reiko
解決済
1
0
-
【マクロ】その時、その時で変わる範囲を、フォルダの違う別ブックへ転記する為には ※参考画像あり
【やりたい事】 下記、画像1のA2:C4 を、画像2の赤枠に転記する マクロを作りたいです ご存じの方、宜しくお願いします 【条件】 ・画像1と画像2の表のサイズは全く同じ ・画像1と画像2の表にあるデータの数は常に変化 ・イメージは、画像1のデータを全て、画像2のデータの下にコピペしたいです ・貼付方法は出来れば、値 貼付です。出来なければ普通のコピペにてOKです ・転記先のファイル名は、変更になる事が多い為、以下のマクロコードのように ファイル名・シート名を、転記元ブックのA3とA5から取得したいです。 ⇒転記元のブックに、ファイル名・シート名が書いてあるという意味です 【転記元ファイル。画像1】 C:\Users\2020\OneDrive\マクロ\転記元.xlsx 【転記先ファイル。雅俗2】 C:\Users\2020\OneDrive\マクロ\転記先\転記先.xlsx 【参考マクロ:1行だけを別ブックへの最終行へ転記するマクロ】 Sub 別ブックへ転記ファイル名変更() Dim ws1 As Worksheet Dim wb2 As Workbook Dim ws2 As Worksheet Dim maxrow2 As Long Dim row2 As Long Set ws1 = Worksheets("転記元") Set wb2 = Workbooks.Open(ws1.Range("A3").Value) Set ws2 = wb2.Worksheets(ws1.Range("A5").Value) maxrow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row row2 = maxrow2 + 1 ws2.Cells(row2, 1).Resize(1, 3).Value = ws1.Cells(1, 1).Resize(1, 3).Value End Sub
質問日時: 2024/05/11 10:33 質問者: aoyama-reiko
解決済
3
0
-
Excel ピボットテーブルで日付に関する悩み
売上データのCSVがあり、「何月何日に何個売れたか」という内容です。 これをピボットテーブルで、1か月間の集計表を作りました。 (行が月日、列に販売個数) 4/10と4/25にしか売れなかった場合、この2日間の2行しか表示されないのです。 本当は4/1~4/30の30行の集計表の中に、4/10と4/25の箇所にだけ個数が入るように、 つまり毎月カレンダーの様に表示させたいのですがどうすれば実現できますか?
質問日時: 2024/05/10 16:30 質問者: tanapyondai
解決済
4
0
-
エクセル関数を教えてください
例えばD9のセルに”超過勤務”と入力された場合、N9のセルにF9からI9の値が18:00から24:00だった場合に限定し、開始時刻のG9から終了時刻のF9と、同じく開始時刻のI9から終了時刻のH9の時間を足した値を返し、それ以外の場合は ”エラー”とする関数を教えてください。なお、N9からH9の値に18:00から24:00まで以外の値が入力された場合も”エラー”と表示させたいです。よろしくお願いします。
質問日時: 2024/05/10 13:39 質問者: HAKUBANOTAMAGO
ベストアンサー
3
0
-
エクセル初心者です 関数の入れ方を教えてください
B列の個数をC列のセットで掛ければD列の通りになりますが、求めたい数値はF列の通りになります。 3行目 実際の数値の10の位が奇数の場合は偶数になるように繰り上げて+20 330→340→360 4行目 実際の数値の1の位が奇数の場合は10の位が偶数になるまで繰り上げて+20 345→360→380 5行目 実際の数値の10の位が偶数の場合はそのまま+20 360→380 どのような数式、関数を入れればいいのでしょうか? 宜しくお願いします。
質問日時: 2024/05/10 00:10 質問者: 多肉植物沼にハマりかけマン
ベストアンサー
4
1
-
Excelのチェックボックスの使い方について。 チェックボックスにチェックを入れると、セルに文字が表
Excelのチェックボックスの使い方について。 チェックボックスにチェックを入れると、セルに文字が表示されるようにしたいです。 用途としては、複数個チェックボックスを作成し、選択したチェックボックスによってセルに表示される文字が変わるようにしたいです。 例 チェックボックス1にチェックをいれると、セルA1に月曜日と表示される。 チェックボックス2にチェックを入れると、セルA1に火曜日と表示される。 何もチェックしていない場合は、セルA1は空白。 設定方法があればご教授いお願い致します。
質問日時: 2024/05/09 14:06 質問者: amonatu
解決済
4
0
-
Excelのpivotについて質問です
Excelのpivotついて質問です。 初心者でよくわからないので教えてください。 総計を出したところ「全体の~数」「全体の合計金額」と名前が出てしまいます。 全体のとかは必要なくただの「~数」「合計金額」にしたいのですがそこを選ぶと小計、ブロック、総計の名前は変更できませんと出てきます、名前の変更はできないのでしょうか?
質問日時: 2024/05/09 13:26 質問者: あんこげ
解決済
1
0
-
エクセル 白黒印刷で白線を印刷しない方法
エクセルで、ページ設定>シート>白黒印刷 にチェックを入れると印刷時に白線が黒線で印刷されてしまいます。 これを白線(印刷しない)のままで印刷できませんか? もしかしたらプリンタの設定で対応できるのかもしれませんが、色々な環境で印刷するファイルなので、できればエクセルの機能で設定したいです。 よろしくお願いいたします。
質問日時: 2024/05/09 09:41 質問者: bari_saku
ベストアンサー
3
1
-
【関数】先頭だけにある、半角スペースを、とりのぞく事はできますか?
以下のデータには、半角スペースが入っています。 本データの先頭のみの半角スペースをとりのぞく事はできますか? 契約の残高 200,000 299,999 123456 0 ※スペースは全て半角です
質問日時: 2024/05/09 06:03 質問者: aoyama-reiko
ベストアンサー
4
0
-
【関数】適切な文字数の数字を取り出したい
【やりたい事】 A1セルに以下の数字があります。 やりたい事は、B1セルに関数を入れ 鬼滅の刃ケース1であれば、1,999,999を ケース2であれば、299,999を 取り出したいです 左から2番目の数字です ご存じの方、教えて下さい ケース1 A1セル 契約の金額 1,000,000 1,999,999 12345 0 0 ケース2 A1セル 契約の残高 200,000 299,999 123456 0 条件:取り出し数字は、左から数えて、2番目にある数字です スペースが必ずあります。スペースの文字数に規則性なしです 【考えた関数】 =MID(A1,20,10) ケース1の場合はうまく取り出せますが、ケース2だと うまう、299,999を取り出す事が出来ません
質問日時: 2024/05/08 21:42 質問者: aoyama-reiko
ベストアンサー
9
1
-
エクセルのセルに同じ大きさのフォントが異なる大きさで表示される原因は何でしょうか
なぜ表示の大きさが異なるかわからないのですが、セルにマウスをあてると同じフォントサイズなのに異なる大きさで表示されております 書式をコピーして貼り付けても表示が変化しません どこを調べたらよいか教えていただけますでしょうか どうぞよろしくお願いいたします。 画像のように い11610もK9999同じフォントサイズなのにこんなに大きさが異なって表示されております
質問日時: 2024/05/08 21:11 質問者: daruma3
ベストアンサー
1
0
-
LOOKUP関数を使えばいいのでしょうか。
Excelで列または行の最後の値を検索する方法 (現金出納帳で使いたい) 1. 4月という現金出納帳sheetの別のsheetに計算用のsheetを作る。(まとまったレシートを計算する) 2. そこから4月の現金出納帳sheetに値を表示させたい、LOOKUP関数を使えばできるようです。 しかし=LOOKUP(2,1/(B:B<>""),B:B)これだと、B列の最後の値だけを取得できるだけです。 私がやりたいと思うのは、例えば計算用のsheetのAからZZまでの列の最後の合計金額を入力したとして。 4月という現金出納帳sheetの、ある列にAとかGとかを入れて検索すれば、sheetの計算用と連携してその最後の合計金額が現金出納帳の「支出」の欄に取得できるような関数を知りたい。 補足説明 現金出納帳 AとかGとかを入れればの列は、G列に入れてI列の「支出」の欄に取得できるということです。
質問日時: 2024/05/08 20:49 質問者: ihuyi
ベストアンサー
2
0
-
エクセルの関数について教えてください。(データベース、検索)
勤怠関係のエクセルで以下のような物を作りたいと思っています。 ・条件 1、従業員数約100人 2、日祝以外の平日休みが個人によって異なる。 3、日によっては休日にならないこと・勤務時間が異なる変形労働制 4、年度によって平日休みが変わるので年度ごとに休みの日を表示させたい 社員NOー氏名ー年度数値 この辺りを使い検索値にできないだろうか。 平日休みの曜日により、スケジュールがことなるため曜日ごとに塊を作ればベースはできるかも。 という想像を頭でしてみましたが、うまく形にできません。 何かいいアドバイスを教えください。
質問日時: 2024/05/08 19:05 質問者: stop-stop
ベストアンサー
1
0
-
時間によってファイル名が変わるエクセルをほかのエクセルでデータを参照する方法
お世話になっております。 時間になったら自動的にエクセルが50個くらいでき、 それをいちいち見に行かなくて済むように、 集計用のエクセルを作成し、そこにブック間のリンクを張りたいです。 ※24時間見る可能性があるため、now関数を使用してデータ反映を検討しています。 ※Excel2003を使用 ファイル名が変わるので悩んでいます。 博多_店舗エクセル この博多の前に日付+時間が文字列で自動付与されます。 ※例 202405010400博多_店舗エクセル このエクセルができるタイミングが、0400.1200.1500.1800.2100の5回です。 4時・12時・15時・18時・21時に新しいエクセルができ ファイル名の最後の4桁が変更されます。 データのできる場所は同じ場所にできます INDIRECT関数でやると、ファイルを開いていないと更新されないと見たことがあるので、 店舗エクセルを開いていなくても、集計シートだけひらけば データが反映できるようにするにはどうしたらよいでしょうか・・・。 お力を貸してください。 よろしくお願いいたします。
質問日時: 2024/05/06 13:17 質問者: ASNASNASN
解決済
3
0
-
WPS OFFICEでの縦書きについて
WPS OFFICEでの表計算モードなんですが、文字を縦書きにするにはどうすればいいのでしょうか? 「~」この文字なんですが、Excelでは縦書きになりますが、WPSではなりません。 他の文字ではなるのですが、この文字だけできないのでしょうか?
質問日時: 2024/05/06 11:43 質問者: ピクセル7
ベストアンサー
1
0
-
Excelで、決まった行を繰り返しコピーする
Excelで決まった順に並んだ行をまとめて、下にどんどんくっつけて、コピーしていく。 コピーするにあたって、A列に○があれば、コピーする。 ○がなければコピーしないという関数を教えてください。 例):(この場合は決まった配列の3行を、A列の値によって、下にコピーしていく) A列 B列 1 ○ リンゴ 2 みかん 3 ブドウ 4 ○ リンゴ 5 みかん 6 ぶどう 7 8 9 10○ りんご 11 みかん 12 ブドウ
質問日時: 2024/05/04 23:21 質問者: sakufeb
解決済
3
0
-
【マクロ】ファイル名の変更について
【やりたい事】 A3セルにあるファイル名(ファイルパス)から A7にあるファイル名(拡張子なし)へ 変更をする、マクロを組みたいです ご存じの方、教えて下さい 【ファイルの場所】 C:\Users\2020\OneDrive\マクロ\テストフォルダ1 フォルダの場所は常に変わらないです 【変更前のファイルパス⇒A3セル】 C:\Users\2020\OneDrive\マクロ\テストフォルダ1\20240504あいうえお.xlsx 【変更後のファイル名⇒A7セル】※任意のファイル名をこちらで入れます 22220101あいうえお
質問日時: 2024/05/04 07:59 質問者: aoyama-reiko
ベストアンサー
5
0
-
Aというブックの1というシートに、Bというブックの2というシートにある数字などが入力されている表をコ
Aというブックの1というシートに、Bというブックの2というシートにある数字などが入力されている表をコピーして貼り付けると、貼り付けた表内の数字が「N/A」となってしまうのは何故なのでしょうか? それでも「N/A」のセルをクリックすると、左上の方に数式だけは正しいものが表示されます。 解決方法まで教えていただけましたら幸いです。
質問日時: 2024/05/03 19:10 質問者: ゲオミニ
解決済
2
0
-
EXCELのシート上に存在する一つの表をその表全体だけをドラッグする場合で、その表が横にも縦にも膨大
EXCELのシート上に存在する一つの表をその表全体だけをドラッグする場合で、その表が横にも縦にも膨大な量ある場合、その表があるシート全体をドラッグするのではなく、その表全体だけをドラッグする方法はどんなものがあるでしょうか? 初めのセルから表の端まで引っ張るのは、表の範囲が広ければ広い程大変ですし、CtrlAではシート全体をドラッグしてしまうので、どうすればよいか分からないので、教えていただきたいです。
質問日時: 2024/05/03 19:04 質問者: ゲオミニ
解決済
4
0
-
エクセルで 例えば 伊藤と名前のついたファイルを検索する方法を教えてください
エクセルで 例えば 伊藤と名前のついたファイルを検索する方法を教えてください 少し検索しましたが分かりませんでした コントロール+ F ? 何かでエクセルに限りませんが ファイルを検索することはできますか パソコンでのエクセル とかファイルの検索を教えてください パソコン エクセル
質問日時: 2024/05/02 19:53 質問者: necotarou2222
ベストアンサー
2
0
-
エクセルの条件付き書式について教えてください
A1のセルに日付を入力します A1の日付の範囲が2024年1月1日から2024年2月28日の範囲内、かつA1の日付以降2月28日内の場合のみ色を付けるという条件付き書式にしたいです 教えてください
質問日時: 2024/05/02 16:29 質問者: yurija
解決済
4
0
-
【マクロ】毎回、ファイル名が変わるファイルへの 文字列の転記
【やりたい事】 以下のコードをご覧ください。 コード説明です ファイル名やシート名の場所が一切、変わらない場合に転記元ファイルのA1~C1のセルの値が 別フォルダの、book2へ最終行に転記されます。本マクロは動きます。 同マクロは転記先の名前が固定のファイルの場所ですが 今回は 転記先のファイル名が、毎回変わる場合のマクロを知りたいです。シート名は変わりません。 転記元のファイル名は変わりません。転記先のみ変わります。 転記先の、ファイルとシート名は、常に、以下の場所★にて取得します ご存じの方、教えて下さい 【転記元ファイル・シート】 ・ファイル名 C:\Users\2020\OneDrive\Shinji\マクロ\テストフォルダ1\転記元.xlsx ・シート名 転記元 【今現在の、固定の転記先ファイル・シート】 ・ファイル名 C:\Users\2020\OneDrive\マクロ\テストフォルダ1\Book2.xlsx ・シート名 Sheet1 ★【常に変更となる転記先ファイル・シート】 【転記元ファイル・シート】のA1セル 例C:\Users\2020\OneDrive\マクロ\テストフォルダ1\20240502Book2.xlsx 【転記元ファイル・シート】のB1セル 例Sheet1 【転記元ファイルのA1-B3セルの値をbook2セルのSheet1の最終行のA1-B3に転記するコード】 Sub 別ブックへ転記2() Dim ws1 As Worksheet Dim wb2 As Workbook Dim ws2 As Worksheet Dim maxrow2 As Long Dim row2 As Long Set ws1 = Worksheets("転記元") Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\" & "Book2.xlsx") Set ws2 = wb2.Worksheets("Sheet1") maxrow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row row2 = maxrow2 + 1 ws2.Cells(row2, 1).Resize(1, 3).Value = ws1.Cells(1, 1).Resize(1, 3).Value wb2.Save MsgBox ("完了") End Sub
質問日時: 2024/05/02 14:17 質問者: aoyama-reiko
解決済
2
0
-
エクセルで「-0.0」と表示させる方法 Excel2016で質問です。 統計で対前年度比を求める際、
エクセルで「-0.0」と表示させる方法 Excel2016で質問です。 統計で対前年度比を求める際、%の小数点第2位を四捨五入して、小数点第1位まで表示させるとします。 当年度が前年度よりわずかに少なかった場合、「-0.0%」という計算結果になることがあります。 この場合、Excelではどうしても「0.0%」と「-」マイナス符号が取れてしまうのですが、これを「-0.0%」と表示させるにはどうしたらよろしいでしょうか? ご教示のほど、よろしくお願いいたします。
質問日時: 2024/05/02 11:39 質問者: gootaroh
解決済
4
1
-
【マクロ】シート名を取得する為には
【やりたい事】 ファイル名とシート名を取得したい。 ファイル名は、A1セルに記述。 シート名は、B1セルに記述。 記述すファイルは、ファイル探す.xlsm なお、ファイル名を記述するコードは以下のとおりできています。 本コード利用でも、別コードでOKでございます。 ご存じの方、いましたら、教えて下さい 【取得したファイルとシート名】 (シート名) Sheet1 (ファイル名) C:\Users\2020\OneDrive\Shinji\マクロ\テストフォルダ\a.xlsx 【マクロが記録されているファイル】 ファイル探す.xlsm ※探すファイルとは別フォルダ 【ファイル名をAセルに記録するコード】 ※本サイトにて、詳しい方に、教えて頂きました Sub GetFileName() Dim myPath As String Dim myFile As String myPath = "C:\Users\2020\OneDrive\マクロ\テストフォルダ" myFile = Dir(myPath & "\*.*") If myFile <> "" Then Range("A1").Value = myPath & "\" & myFile Else MsgBox "ファイルが見つかりませんでした。" End If End Sub
質問日時: 2024/05/02 07:40 質問者: aoyama-reiko
解決済
2
0
-
VBA Private Sub Worksheet_Changeで
現在下記のコードで”●”を転記することはできるのですがクリアすることもしたいのです 動作としてはsheet1のP.R.T列に値が入ったら各sheetの指定したセルに●を転記させています 今度はsheet1のP.R.T列に値が修正されたときや消されたときには今まで●が転記されていたsheetのセルから●を消したいのです修正された場合は今までのセルを消して指定したセルに転記です AIに相談してもうまくいきませんでした、どのようにしたらうまくいくでしょうか? Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("AC:AC")) Is Nothing Then If Application.WorksheetFunction.CountIf(Target, "撤去") > 0 Then MsgBox "AC列の変更が検出されました。" FindAndActivateSheet Target End If End If Dim KeyCells As Range Set KeyCells = Union(Me.Range("P:P"), Me.Range("R:R"), Me.Range("T:T")) If Not Intersect(Target, KeyCells) Is Nothing Then Dim cell As Range For Each cell In Intersect(Target, KeyCells) If cell.Value <> "" And InStr(cell.Value, "→") = 1 Then Dim searchValues As Variant searchValues = Split(Mid(cell.Value, 2), "-") If UBound(searchValues) >= 2 Then Dim sheetName As String Dim cellRef As String sheetName = searchValues(0) cellRef = searchValues(1) Dim ws As Worksheet On Error Resume Next Set ws = ThisWorkbook.Sheets(sheetName) On Error GoTo 0 If Not ws Is Nothing Then Dim checkCells As Range Dim c As Range Set checkCells = ws.Range("I3, I9, I15, I21, I27, I33") For Each c In checkCells If Trim(c.Value) = Trim(cellRef) Then Dim markCell As Range Set markCell = ws.Range("I" & c.row + 1 & ":AF" & c.row + 3).Find(What:=searchValues(2), LookIn:=xlValues, LookAt:=xlWhole) If Not markCell Is Nothing Then Dim words As Variant words = Split(markCell.Value, " ") Dim word As Variant Dim markFound As Boolean markFound = False For Each word In words If Trim(word) = Trim(searchValues(2)) Then markFound = True Exit For End If Next word If markFound Then markCell.Offset(1, 0).Value = "●" End If End If End If Next c End If End If End If Next cell End If ' P、R、T列の値がない場合、各シートのマークがあるセルをクリアする Dim ws_clear As Worksheet For Each ws_clear In ThisWorkbook.Sheets If ws_clear.Name <> Me.Name Then ' 自身のワークシート以外のみを処理 Dim markRange As Range Dim clearCell As Range Set markRange = ws_clear.Range("I:AF") ' マークを探す範囲を指定 For Each clearCell In markRange ' セルの上の行が存在し、かつセルの値が "●" の場合にマークをクリア If Not IsEmpty(clearCell.Offset(-1, 0)) And clearCell.Value = "●" Then clearCell.ClearContents ' 値がないのにマークがある場合、マークをクリア End If Next clearCell End If Next ws_clear End Sub
質問日時: 2024/05/01 16:59 質問者: kacky76
解決済
1
1
-
excel で二つのどちらかを選ぶ
excel でお願いします。 二つのセルに勝負をする二人の氏名が入力されています。試合は点数ではなく勝ち負けで決まります。 勝負が決まったら勝者は同シートの勝者セルに氏名を入力します。勝者の氏名が入力されたら、敗者の氏名を別シートに入力する方法を教えて下さい。 よろしくお願いいたします。
質問日時: 2024/04/30 21:36 質問者: pkakinotane333
ベストアンサー
5
0
-
【マクロ】フォルダからエクセルファイルの名前を取出すためには
表題の事を実行し、エクセルのAセルに エクセルのファイル名を書きたいです Aセルを書くエクセルは以下のフォルダ以外にある 任意のエクセルです。何でも良いです。 ご存じの方いましたら、教えて下さい ※フォルダにエクセルファイルは1つしかない ※フォルダにエクセル以外のファイルはある 【フォルダの名前】 C:\Users\user\Documents\Aフォルダ 【パスの名前】 C:\Users\user\Documents\Aフォルダ\a.xlsx
質問日時: 2024/04/30 16:21 質問者: aoyama-reiko
ベストアンサー
6
1
-
マクロの有効化するダイヤログにつきまして
よろしくお願いします。 エクセル2019を使用しています。 現在正常に動作しているマクロを含むxlsmファイルをコピーし、階層は同じフォルダ内(信頼できる場所に登録済)にてhoge_test.xlsmファイルにリネームし、テストファイルとしていろいろコードを試してみようとしたところ、コピーしたファイルではマクロが無効化されているらしくマクロが動作しませんでした。それで一度トラストセンターで全てのマクロを有効にしてみたのですがそれでもマクロが実行できませんでした。 マクロを実行するとデバッグ画面になり「コードに記述したシートがない」と保護やシート内にロックがかかっていたりする際によく経験したエラーになります。ちなみに、コード内に記述したパスは何度見直してもファイルパスとシート名には問題がありません。 思い当たる点としましては、 おそらく、以前ではマクロを含むファイルを開いた際「このブックでのマクロを実行を許可しますか?」みたいなダイヤログが出ていて、信頼できるファイルであれば「OK」にした記憶があるのですが、今回コピーしたファイルではそのダイヤログが出てきません。もしかしたら以前に、その警告ダイヤログが出た際に、今後警告は出さない、にチェックをしてしまったのかもしれません。 そのダイヤログを復活させることは可能でしょうか? 以上、よろしくお願い申し上げます。
質問日時: 2024/04/30 15:38 質問者: maru11586
ベストアンサー
4
0
-
ベストアンサー
4
0
-
文字列になっている時間をVBAで処理できません。
B列に”(PM有休)”という値があるのに、E列が16:30の4.5時間前より遅い時、E列を黄色に塗りつぶししたいです。 なお、B列の予定は人や季節によって30分単位で異なり、8:00や夕方に出勤する人もいます。その場合も、B列のスケジュールに入っている退勤予定時間の4.5時間前よりE列の時間が遅い場合はE列を黄色に塗りつぶししたいです。 B列もE列もその他の全てのセル値は数値ではなく文字列になっています。 B列の値は例えば”7:30~16:30 (PM有休)”、E列の値は”位置(携帯) 11:30(島根県○○市”のように入っています。 これは、システムから出力した際に自動で文字列になります。 使用するシートはActiveSheetのみで、検索は17行目からですが、最終行は月によって異なります。 現状文字列になっている時間を処理する事が出来ません。 どのようにコードを組めばいいのでしょうか。ご教示ください。
質問日時: 2024/04/30 10:08 質問者: dear2151
ベストアンサー
6
1
-
行数が不規則な一週間ごとの合計値の計算をVBAで実行したいです。
初歩的な知識しかなく、startRowと列以外は不規則で組み方も思いつきません。 以下の条件をVBAで実行するにはどのようなコードを書けばよろしいでしょうか? ご教示ください。 1.使用するシートは ws = ActiveWorkbook.ActiveSheet とします 2.検索のstartRow = 24行目とし、 最終行は lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Rowで取得します。 3.対象の表は1か月分の縦型のカレンダー形式ですが、B列の日付は文字列で出力されています。 4.日曜から土曜までをワンサイクルとして、AA列に罫線が入っています。 5.この表の中で4/4(27行目と28行目)はセル結合されています。これは自動出力された状態であり、他列の関連で防げないものとします。 5.最終行から最下の罫線の一つ下までのJ列の合計をAA列の最終行に入力(値でもSUM関数でもどちらでも構いません) 同じように24行目までサイクル毎にJ列の合計をAA列の下線の行のセルへ入力する。
質問日時: 2024/04/29 18:40 質問者: dear2151
ベストアンサー
2
1
-
ある列、或いは、ある行のセル内に存在する全ての数字を小数点第何(例えば、第二)位までの数字までしか表
ある列、或いは、ある行のセル内に存在する全ての数字を小数点第何(例えば、第二)位までの数字までしか表示しないようにする数式(関数)は何がありますか? 例えば、A列の1∼5のセルにそれぞれ、 A1「3.8659」A2「4.69785」A3「5.8754」 A4「6.87361」A5「7.13624」 とあるとすれば、 A1「3.86」A2「4.69」A3「5.87」 A4「6.87」A5「7.13」 のように、 すべての数字を一度に小数点第二位までの表示に統一する数式(関数)があれば知りたいです。 よろしくおねがいします。
質問日時: 2024/04/29 14:47 質問者: ゲオミニ
解決済
3
0
-
エクセルの順位別一覧表の自動作成について。 例えばドジャースの打順一覧(打率表示もあり) 右端に関数
エクセルの順位別一覧表の自動作成について。 例えばドジャースの打順一覧(打率表示もあり) 右端に関数RANKを挿入してベッツが1位、大谷が2位、スミスが3位と表示、その順位を参照して順位別一覧表を別に作ることは出来ます。 これをワンクッションおかずに、ドジャース打順一覧をもとに、ドジャース打率順位表を自動作成する方法があれば教えていただきたいです。 よろしくお願いします。
質問日時: 2024/04/29 11:53 質問者: kdsalad00
ベストアンサー
1
0
-
エクセル 価格表から単価を呼び出す方法
エクセルのシートに次のような価格表があります。 商品コード|幅|高さ|単価| 12345|100|200|1000 12345|100|300|1300 12345|100|400|1600 12345|500|200|1500 12345|500|300|1800 12345|500|400|2000 別のシート上で、A列に商品コード、B列に幅、C列に高さを入力するとD列に自動的に単価が表示される仕組みを作りたいです。 ただし、幅・高さは100・200であれば当然に単価1000を取得しますが、例①幅100×高さ230のときは単価1300 例②幅250×高さ100のときは単価1500が呼び出されるように売単価を取得させたいのですが、何か方法がございましたらお教えください。 よろしくお願いいたします。
質問日時: 2024/04/28 15:17 質問者: ケイ2793197
解決済
3
2
-
シートAで横に並んだ項目→シートBで縦に並んだ項目にする。
シートAで横に並んだ項目→シートBで縦に並んだ項目にしたいです。 例えば シートA 建物 住所 責任者 (B3 C3 D3) シートB 建物名 住所 責任者 B3 C3 D3 ・・・としたいです。 効率的に反映させる方法をおしえてください。
質問日時: 2024/04/28 14:47 質問者: sp2020
解決済
5
0
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
最新のコラム/記事
-
マッチングアプリで出会ったカップルは成婚率が高い!?結婚カウンセラーに聞いてみた
パートナーとの出会いの場として、もはや主流となったネット婚活やマッチングアプリ。中でも手軽に登録できるマッチングアプリは、10代から50代と幅広い年代が利用している。一方で、“相手の目的が投資関係の詐欺や...
-
メダロット:第250話「Vol.250※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
メダロット:第249話「Vol.249※期間限定公開」
天才メダロッター六葉カガミの戦いを描く「メダロット再~リローデッド~」(漫画:伯林、監修:イマジニア)、20周年を迎えた『メダロット』が新たなストリーでココに再起動!!★全話無料で読める、週刊メダロット通信...
-
日本古来の伝統工芸「金継ぎ」で修復した食器は前と同じように使えるの?
大切にしている食器が割れてしまったら、きっと誰もが「元に戻したい」と願うだろう。「教えて!goo」にも「割ってしまったお気に入りの食器を復活できる?」という質問があり、最適な方法について様々な意見が寄せら...
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
-1234 を (1234) と表記する由来は?
-
エクセルで現場ごとに機材の移動状...
-
他部署からもらう データで、 何か...
-
Excel 1の位の数字で処理を分岐させ...
-
Excelのセルの色を変えた行(すべて...
-
エクセルの数式について教えてくだ...
-
Excelでの記号と特殊文字について ...
-
とびとびの大量セルを選択したいの...
-
MACにおけるエクセルの入力トラブル...
-
ある表にフィルターをかけて出てき...
-
Lookup関数
-
エクセルの数式バーのフォントが急...
-
再質問です。マクロの修正箇所を教...
-
エクセルで「ページレイアウト」→「...
-
EXCELの散布図で日付が1900年になっ...
-
【マクロ】VLOOKUPにて参照元にデー...
-
exselの質問です
-
エクセルでファイルの最終更新日を...
-
Excel 大小比較演算子による「文字...
-
エクセルの問題です。絶対値の最大...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ字に...
-
(マクロ)vlookupの元データを同じブ...
-
エクセルで上位バイトのセルと下位...
-
exselの質問です
-
Excel 大小比較演算子による「文字...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の最大...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こんな...
-
Excel関数-文字列で自動作成された...
-
Excelデータをコピペして、ペースト...
-
ユーザー定義関数をアドイン登録し...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元にデー...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がうまく...
-
エクセルで表
-
エクセルの表で1年間の曜日を自動...
-
西暦和暦
おすすめ情報