Excel（エクセル）(10ページ目)

使いこなせるととても便利なExcelですが、使い方がわからなくて困ってしまう場面も多いと思います。マクロの組み方がわからない、VLOOKUP関数の設定について教えてほしい、データを元にグラフの作成をしたい等、ここで相談してみましょう。

回答数

気になる

EXCELマクロ最下行のセルの数字をコピペして、最後にその数字に１を足した数を入力

B列に数字が入力されています。 C列には数字と文字が入力されています。 B列,C列 5,佐藤 ,田中 ,鈴木 ,田中2 ,田中3 B列の最後尾にある（この場合5）数字をC列に入力されている行分、入力し、最後にその数字＋1 をB列に入力するマクロを教えていただけないでしょうか。 5,佐藤 5,田中 5,鈴木 5,田中2 5,田中3 6 自分で考えて、 Range("B65536").End(xlUp).Select Selection.Copy Range(Range("B65536").End(xlUp).Offset(1),Range("C65536").End(xlUp).Offset(, -1)).Select ActiveSheet.Paste 5の貼り付けまではできたのですが、6を入力することができません。よろしくお願いします。

質問日時: 2024/01/12 10:34 質問者: 7skies

ベストアンサー

1

0
Excelの画面表示

Excelの画面の文字の濃淡にムラがあります。プロダクトキーを購入したものですがWordでは均一です。むらを無くすにはどうしたらよいでしょうか。Win10 2021年版です。

質問日時: 2024/01/11 18:10 質問者: CMP32

解決済

5

0
Excel週ごとの集計を関数で

よろしくお願いします。 Excelで複数年分（5年ほど）入力されたリストから、「〇年〇月第〇週の集計」という集計を行い、できれば毎年の同じ時期の数量の比較をグラフでしたいと考えています。 WEEKDAY関数で週ごとに数値を出すことはできるのですが、それを月別に行う方法がいまひとつよくわかりません。データが膨大なため、できれば自動化を行いたいのですが、ピボットでもうまくできなかったので、関数で自分で簡単に修正などできるようにしたいです。しかも、面倒なことにせるに入力されてくる日付データがA1セル「2024」、B1セル「1」、C1 「23」という風にわかれており、シリアルになっていないのです。。（DATE関数で2024/1/23と直してはいます。。）うまくわかりやすくまとまっていない質問文かもしれませんが、よろしくお願い致します。

質問日時: 2024/01/11 10:14 質問者: perikan2

解決済

2

0
Excelの文字表示について

A列に214k、B列には008.1と文字を合わせて表示させたいときD列のように214k0となってしまいます。本当は214k000,214k008.1と表示させたいんのですが何かいい方法はないでしょうか？

質問日時: 2024/01/10 15:28 質問者: nameneko111

ベストアンサー

5

0
web版Excelで作成しOneDriveに保存したものをデスクトップ版Excelで開くことに問題は

web版Excelで作成しOneDriveに保存したものをデスクトップ版Excelで開くことに問題はありませんか？

質問日時: 2024/01/10 12:36 質問者: ゆずの。

解決済

2

0
エクセルの集計で

A列に日付，B列に金額が入っています。 A1 24/1/1，B1 750円 A2 24/1/1，B2 500円同じ日付の合計金額が1000円を超えた場合，合計額が1000円になるように C1 750円，C2 250円などと自動で処理させることは可能でしょうか？エクセル詳しい方，ご教示お願いします。

質問日時: 2024/01/10 09:19 質問者: katayama19

解決済

3

0
エクセルの列の幅を固定

初心者質問ですいません。エクセルで、A列を標準から、広くします（ドラッグなどで）。 Aが広くなり、B以降はデフォルトのまま。ここで、保存しますが、再度開くと、列の幅がデフォルトに戻ってます。（すべて）どうすれば、幅を広くしたまま保存できますでしょうか？よろしくお願いします。バージョンは2021です。

質問日時: 2024/01/08 15:31 質問者: ankorogd

解決済

3

0
変数として取得した文字データの色の指定

excel vba 見様見真似の初心者?です。 excel vba で　文字データとして取得した変数に関し、色の指定はできるでしょうか? 繰り返し構文の中で、セル範囲の文字データを順番に変数として取得し、他の文字データとして合成して文のデータを作りますが、その変数部分だけ赤色にするというようなことを考えています。コードとして示していただけると幸いです。

質問日時: 2024/01/08 12:14 質問者: Tanshanunchi

ベストアンサー

4

0
Excel共有設定のままでオートシェープを挿入、編集したいです共有設定のまま編集出来るようにする方

Excel共有設定のままでオートシェープを挿入、編集したいです共有設定のまま編集出来るようにする方法をご教授お願いします

質問日時: 2024/01/08 11:42 質問者: skw763ay

ベストアンサー

1

0
Excel関数について

Excelで例えばA1のセルに「1-10」という文字列が入力されています。A2に「1-4」を入力すると、A3には A1の残数として「6-10」と表示ができるような関数はないでしょうか？１－１０とはケース№で、１－４とは出荷した№になり、残っているケース№をわかるようにしたいのです。よろしくお願いします。

質問日時: 2024/01/07 16:43 質問者: Chiたん

ベストアンサー

5

0
Excelでこういう年を切り替えられる簡易なカレンダーを作ったのですが、年や月を変えると、色が付い

Excelでこういう年を切り替えられる簡易なカレンダーを作ったのですが、年や月を変えると、色が付いてるところも変えられるようにしたくてそれってどうやったらいいですか？

質問日時: 2024/01/06 17:18 質問者: Chiiharun

ベストアンサー

12

0
ExcelのVBAのセル範囲について

ExcelのVBAのセル範囲について、1セルだけの場合、列だけ複数の場合、行だけ複数の場合、範囲が広範囲、4列5行の場合、別シートの場合、それをCells(1,1)のように表したいですあるシートの一部にある表を複数の全てのシートを作りながらコピペ実行の時の高速化ができるVBAの作り方に行き詰っておりますセルひとつひとつのはできたのですが、完了までにとても時間がかかりますお助け下さい

質問日時: 2024/01/05 17:54 質問者: ひかりりあ

解決済

4

0
エクセルで約600のSheetから「クロス集計」が可能ですか？

アンケートを実施し、エクセルで集計をしています。回答者ごとにSheetを準備して、質問項目ごとに「〇」であればエクセルのSheetに「1」を入力しました。600人ほどから回答があり、質問項目ごとの集計は「串刺し算」で出来ましたが、この約600Sheetをそのままにして、そこから「クロス集計（性別や年代別）」は可能でしょうか？性別や年代別の質問もアンケートに入れてあります。「クロス集計」は一つのSheetからしかできないのでしょうか？よろしくお願いします。

質問日時: 2024/01/05 11:13 質問者: okachan231664

解決済

4

0
VBAの高速化について

コピー&ペーストと印刷設定について高速化を目指したいので教えていただけますでしょうか。 dim　については省略させて頂きましたまず Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.PrintCommunication = False Application.EnableEvents = False を設定しました。 Sheets("設定").Range("$P$1:$AE$292").Copy Range("A1").Select ActiveSheet.Paste Range("$A$1:$P$292").PasteSpecial Paste:=xlPasteColumnWidths '列幅コピー Range("$A$1:$P$292").PasteSpecial Paste:=xlPasteFormats '書式コピー Application.CutCopyMode = False ActiveSheet.Range("B2").Value = wdate With Worksheets(sh.Name).PageSetup .Orientation = xlLandscape '印刷設定の向きを横向き（Landscape）に設定 .FitToPagesTall = False'印刷範囲の横を1ページ分で収める .FitToPagesWide = 1'印刷範囲の横を1ページ分で収める .Zoom = False'拡大縮小なし .PrintArea = "$A$1:$P$292"'印刷範囲を$A$1:$H$292にする .PrintTitleRows = "$1:$7"'印刷タイトル行を設定する .HeaderMargin = Application.CentimetersToPoints(0) 'フッター .FooterMargin = Application.CentimetersToPoints(0)'ヘッダー .CenterHorizontally = True '水平化 .CenterVertically = False '垂直なし End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.PrintCommunication = True Application.EnableEvents = True と今の状況はこうなっております。作成完了までの待機が長いので、高速化についてご教授願えないでしょうか。よろしくお願いいたします

質問日時: 2024/01/04 23:26 質問者: ひかりりあ

解決済

2

0
エクセルでマクロでテキストデータを保存したい

タイトルだけではわかりづらいかもしれません。 Chat-GPTに聞いたのですが、ちゃんと意図を汲み取ってもらえなかたのか、思ったようなマクロを作ってくれませんでした。どんなマクロを組めば思った動作してくれますか？因みにマクロ記述はできないので、Chat-GPTに聞いたり、「マクロの記録」を使ったりする程度の知識しかありません。質問(Chat-GPTにも同じ内容で聞いています) --＜質問＞------------------------ エクセルで次のマクロ作って・windowsアクセサリのメモ帳を開く・エクセルのsheet1のA5セルからA11セルまでをテキストデータとしてクリップボードにコピーする・クリップボードの内容を先に開いたメモ帳にテキストデータとして貼り付ける・メモ帳をcp.batというファイル名でC:\TEST内のファイルを上書きする --＜回答＞------------------------ ChatGPT 以下が、指定された要件に基づいてExcel VBAで作成されたマクロです。このマクロは、メモ帳を開き、A5からA11のセルのデータをクリップボードにコピーしてメモ帳に貼り付け、最後に指定のファイルパスにある既存の cp.bat ファイルを上書きします。 ~~~~~~~~~~~~~ Sub OpenNotepadCopyPasteAndOverwriteFile() Dim textData As String Dim notepadPath As String Dim filePath As String ' メモ帳のパス notepadPath = "notepad.exe" ' アクセサリのメモ帳を開く Shell notepadPath, vbNormalFocus ' A5からA11のセルを取得してテキストデータに結合 For i = 5 To 11 textData = textData & Range("A" & i).Value & vbCrLf Next i ' クリップボードにコピー With CreateObject("Forms.DataObject") .SetText textData .PutInClipboard End With ' メモ帳にクリップボードの内容を貼り付け Application.Wait Now + TimeValue("00:00:02") ' 2秒待機 SendKeys "^v" ' Ctrl + V ' ファイルのパス filePath = "C:\TEST\cp.bat" ' メモ帳を保存 Application.Wait Now + TimeValue("00:00:02") ' 2秒待機 SendKeys "^s" ' Ctrl + S Application.Wait Now + TimeValue("00:00:02") ' 2秒待機 SendKeys filePath Application.Wait Now + TimeValue("00:00:02") ' 2秒待機 SendKeys "~" ' Enter ' メモ帳を閉じる Application.Wait Now + TimeValue("00:00:02") ' 2秒待機 SendKeys "^w" ' Ctrl + W End Sub ~~~~~~~~~~~~~

質問日時: 2024/01/04 19:31 質問者: guest_zzzz

ベストアンサー

4

0
勤怠管理で始業時刻を基準に計算させるには？エクセルで勤怠管理表を作成するにあたって、例えば8時30

勤怠管理で始業時刻を基準に計算させるには？エクセルで勤怠管理表を作成するにあたって、例えば8時30分が始業時刻とする場合、社員は8:05にタイムカードに記録した場合や7:58などに記録した場合は、始業時刻より余計な時間分も勤務時間を計算する上でふくまれてしまいます。とにかく8:30より早く出勤する場合でも、管理上セルの値は8:30になるように変換したいです。また、万一、7:20に記録した場合をセルに入力した場合は、1時間単位の7:30に変換したいです（朝1時間、時間外勤務を計算させるため）。社員が全員、8:30に記録してくれたら、エクセル上の計算はたやすいのですが、出勤時間は皆、バラバラなので始業時間前の何分かも勤務時間を計算するときに余計に加算されるため、あくまでも始業時刻の8:30を基準に計算させるためには、関数式をどう言う風に工夫すればよいですか？それとも、関数式では無理ですか？なお、終業時刻についても同じ理屈です。よろしくお願いします。

質問日時: 2024/01/04 19:09 質問者: donkey4302

ベストアンサー

3

0
Excel2010の小数点の計算式の結果に＋－を表示する

次のようにExcel2010の小数点の計算式の結果に＋－を表示したい＋－の記号は大文字と小文字の場合で表示したいです。全て小文字の+,−になってしまうのでしょうか？普通に計算すると＝7.1010-7.0953 　0.0057→+の記号が先頭に表示されてない例えば　　　　=7.1010-7.0953 結果（半角の場合）　　　(全角の場合)　　　　　　　+0.0057　　　　　+0.0057 逆の場合　　　　　　　=7.0953-7.1010 結果　　　　-0.0057→答えの前に-の記号が小文字で表示される。（大文字の－でも表示したい）計算結果　　　が+の場合は+の記号が小文字でも大文字でも表示されない。　　　　解りづらい質問ですいません。宜しくお願いします。

質問日時: 2024/01/03 12:50 質問者: xjapan4041

解決済

3

0
複数エクセルファイルの合成

お世話になります。エクセルファイルの結果を１シートにまとめたいのですがコピペ以外で何か対応方法はございませんか？現状としてファイル名　1.csv ～500.csv　までありファイルの中身は3行程度の　住所　氏名　となっております。年賀状データが複数存在する状況です。理想としましては、１枚のシートに連結ができればダブりなどの処理もできますので良いかと思っているところです。お力添えよろしくお願いいたします。

質問日時: 2024/01/03 08:39 質問者: romniisan3

解決済

9

0
Googleシートでマクロ

Googleシートで、MSのExcelのようにマクロって使えるのですか？ ①YES ②NO ③その他解答欄へ

質問日時: 2024/01/01 11:54 質問者: 49951185325241650

ベストアンサー

4

0
Excel関数かなにかでスムーズに処理するにはあなたならどうしますか？

Excel関数かなにかでスムーズに処理するにはあなたならどうしますか？図にあるシートで左から右のように処理したいのですが私の場合はどれもめんどくさい方法になってます。

質問日時: 2023/12/31 14:13 質問者: 49951185325241650

ベストアンサー

5

0
１行目のデータ（A1:G1）をコピーして、２～４９９９９行へ貼り付ける効率的な操作方法は？

Excel2013 １行目のデータ（A1:G1）をコピーして、２～４９９９９行へ貼り付ける効率的な操作方法を教えて下さい。 ※貼り付け先の２～４９９９９行には、何もデータが入力されていません。よろしくお願い致します。

質問日時: 2023/12/31 05:58 質問者: tomoyochan

ベストアンサー

4

0
Excelの空白セル

=COUNTA(B1:B10)で、B1からB10の10個のセルのうち、空白以外のセルの個数が出ます。ここで、C1のセルに1、B1のセルに=IF(C1=1,””,2)と入れると、B1のセルは、空白になりますが、=COUNTA(B1:B10)では、空白以外と判断されます。ゆえ、B1セルをコピーして値貼り付けしても空白以外と判断されます。さらに、B1セルをアクティブにしてエンターすると、やっと、空白と判断されます。ここまで手間を掛けずに空白と判断する設定はありますか。

質問日時: 2023/12/30 20:51 質問者: kamejiro

ベストアンサー

2

0
ゴルフコンペの成績表で、例えばある人の優勝回数を表示したいのですが

総勢１５人ぐらいの仲間で、20年ぐらい続いているコンペの参加者の優勝回数が出るようにしたいのです。毎回、成績表は、エクセルで、例えば１位から15位までを保存しています。一人ひとり数えればいいのでしょうが、入力と同時に分かるといいなと思いまして、その方法を教えて頂きたければと思います。よろしくお願いします。

質問日時: 2023/12/30 16:49 質問者: opthhd

ベストアンサー

4

0
エクセルで作った勤怠表に発生する時間の誤差の修正方法を教えていただけないでしょうか？ A1セルに出社

エクセルで作った勤怠表に発生する時間の誤差の修正方法を教えていただけないでしょうか？ A1セルに出社時刻、B1セルに退社時刻、C1セルに出勤時間の項目があり、A2セルからA25まで出社時刻の入力欄、B2セルからB25まで退社時刻の入力欄、C2セルからC25まで、休憩時間12:00〜12:50と15:00〜15:10までを差し引いて計算させた1日の勤務時間の関数式（参考:C2には=IF(COUNT(A2:B2)<2,"",B2-A2-MAX(0,MIN(77/144,B2)-MAX(1/2,A2))-MAX(0,MIN(91/144,B2)-MAX(5/8,A2))) ）が入力されています。そして、C26は、24日分の勤務時間の合計が返される関数式が入力されております。しかし、C26の合計やC2〜C25の各勤務時間の値に1分や2分の誤差が発生します。修正する方法は、ありますか？宜しくご教授お願い致します。

質問日時: 2023/12/29 13:09 質問者: donkey4302

ベストアンサー

6

1
Excelで男女や有無など丸囲みする資料で〇を挿入してカーソルで微調整し有無に丸囲みを実施しておりま

Excelで男女や有無など丸囲みする資料で〇を挿入してカーソルで微調整し有無に丸囲みを実施しております。 1つや2つくらいであればコピペでやれなくはないのですが、申告書で50箇所以上〇をつけて有無の選択をしなくてはいけません。また有無は1つのセルに有・無となっていたり、それぞれ1つセルに有、無の場合もごさまいます。クリック操作で切り替えは可能でしょうか？分からないなりにイメージしている要望としては以下となります。セルの値は有無が入力されており、クリックすると〇の画像が表示され囲み丸風にする、もう一度押すと〇の画像が非表示になり、ただの有になる無しのパターンも〇表示、非表示切り替えられるようにするなどなお、上記のような手間をかけるなら地道に50箇所〇コピペ調整をすれば良いと思われるかもしれないので補足ですが、資料は１回きりではなく高頻度で回答が必要になるため、効率化を図れたらと考えおります。模索中ですが、image関数や条件書式などであるセルの値を参照し有の場合は〇みたいなものを現在考えおりますが、可能であれば直感的に任意の場所をクリック操作などで実現したいです。 ※値参照だと複数箇所の確認が必要になるので選択誤りなどがおきそうとも考えます。皆さまのお知恵をお借りしたく何卒よろしくお願いいたします。

質問日時: 2023/12/28 16:10 質問者: HS83als

解決済

3

1
各セルの表記を（項目人数～～～）と一つのセルにまとめて表記したい。

エクセルでA1からE1に項目、A２からは各項目の人数を入力すると、E2からは一つのセルに（項目人数～～～）と表記される計算式は出来ますか。出来るのであれば教えてください。ホテルのフロントなどで使いたいのです。 A B C D E 1 大人 A B C 2 1 2 1 1　→ 大人1A2B1C1 3 2 1 3 2　→ 大人2A1B3C2 4 2 2 1 1　→ 大人2A2B1C1

質問日時: 2023/12/28 09:13 質問者: けいまふり

ベストアンサー

6

0
近似式エクセルについて分かる方いましたらお願いします。 f=から始まる近似式、グラフを右クリック

近似式エクセルについて分かる方いましたらお願いします。 f=から始まる近似式、グラフを右クリックしたら式が更新されるそうなんですが、できません。どうしたら良いですか？

質問日時: 2023/12/27 10:17 質問者: あき9852

解決済

1

0
フィル機能について

フィル機能についてお尋ねします。行のセルを複数選択してセル右＋を押下しただけで最後まですべてコピーされます。下一行だけコピーしたいのです。こんな症状は長年経験したことがないです。又選択も複数同時ができにくいです。保護のロックを外すと一時直りますが再起動すると同じです。保護のロック解除をエクセル全体の規定にして試めしたいですが方法が分かりません。アドバイスお願いできませんか。

質問日時: 2023/12/26 18:28 質問者: yt16

解決済

1

0
EXCELの計算式のコピーについてのしつもんです。 10万件以上の支店が縦にずらっと続いています。

EXCELの計算式のコピーについてのしつもんです。 10万件以上の支店が縦にずらっと続いています。 1月から12月の部分に複雑な関数の計算式が入っています。その1月から12月の12個を選択し、右下の十字を作ってダブルクリックしても、10万件以上の支店✕12のセルにコピーされません。なのでドラッグして下までコピーしているのですが、10分以上かかるものもありこまっています。という質問の回答にコピー範囲をすべて範囲選択しドラッグして、コピー範囲外2ドラッグしたあと、元の位置にドラッグを戻す。そのあと改めてダブルクリックすると一番下まで。コピーできる、という方法で一度は成功したのですが、本日やってみると、できませんでした。できたり、できなかったりですが、なにを変えるといいのでしょうか。 (コピー範囲に空欄はありません。)

質問日時: 2023/12/26 12:43 質問者: lancru333

解決済

4

0
勤務時間を割り出す、関数式を教えて頂きたいのですが、少し複雑で例えば項目名としてA1セルに出社時刻と

勤務時間を割り出す、関数式を教えて頂きたいのですが、少し複雑で例えば項目名としてA1セルに出社時刻とし、B1セルに退社時刻とし、C1セルに勤務時間とします。そして、A2には例えば8:00、B2には17:00と入力すると、C2には休憩時間を引いた8:00と返すようにしたいとおもいます。ただ、条件があり、昼休憩が12:00から12:50の50分間と3:00から3:10の10分間の計1時間が休憩時間となっております。さらに、正社員は8:00-17:00勤務ですが、パート社員は9:00-16:00があったり、9:00-12:00の午前のみ勤務者があったり、また、反対に12:00-16:00の午後のみ勤務者があったり、10:00-16:00勤務者がいたりで不規則です。なので、勤務時間合計から一律の休憩時間60分を引くことが出来ません。正社員なら、勤務時間から50分＋10分の60分引くことになりますが、午後勤務者だと勤務時間から10分だけ引く計算になるしで、単にセルの計算式だけでは、条件をつけないと答えが出てきません。当方の知識では不可能なので、条件付きの関数式を教えていただけないでしょうか。宜しくお願い致します。

質問日時: 2023/12/25 21:05 質問者: donkey4302

ベストアンサー

3

0
当番表の作成について

Excelで年間の当番表を作成したいです。教えて頂きたい事については平日、祝日の当番を表示する関数です。 A列に記載のある6人（Aさん～Fさん）で当番をやる事とし、 C列には該当する曜日か、別で作成してある祝日リストに記載があれば「祝」と表示される様にしています。 D列には平日（月曜～土曜）の当番、 E列には祝日の当番を表示させたいです。（日曜日は祝日でも基本的に当番はいないもの　としたいです）平日の当番の順番は Aさんから開始、Fさんまで一巡をしたら次はBさんから開始し、Aさんは一番後ろに、その次はCさんから開始、Bさんは一番後ろにといった流れにしたいです。 A→B→C→D→E→F、 B→C→D→E→F→A、 C→D→E→F→A→B、 D→...　と言ったイメージです。祝日については平日と2日連続になろうがA～Fの6人で順番に回していく事としたいです。 OSはWindows10 Excelは2010　です。よろしくお願いいたします。

質問日時: 2023/12/25 17:18 質問者: GreenTea__

ベストアンサー

3

0
エクセルで連勤チェックをしたいです。

画像みたいな感じで、５連勤、６連勤、7連勤・・・と、それぞれ連勤があるかないかをチェックをしたいのですが、５連勤以上しか見ることができず、６連勤があっても５連勤もありになってしまいます。関数でこうした処理は不可能でしょうか？マクロもChatGPTと一緒に頑張ってみたんですが、こちらの伝え方が悪いのかどうがんばっても重複処理をしてしまいます。それぞれの連勤回数を出力するようにできないでしょうか？ Sub CountConsecutive() Dim dataRange As Range Dim cell As Range Dim consecutiveCount As Integer Dim output5Consecutive As Range Dim output6Consecutive As Range Dim output7Consecutive As Range Dim output8Consecutive As Range Dim output9Consecutive As Range Dim output10Consecutive As Range Dim set5ConsecutiveCount As Integer Dim set6ConsecutiveCount As Integer Dim set7ConsecutiveCount As Integer Dim set8ConsecutiveCount As Integer Dim set9ConsecutiveCount As Integer Dim set10ConsecutiveCount As Integer Dim isConsecutive As Boolean Dim ignoreCounts As Collection Dim ignoreCount As Integer ' データの範囲を指定（F5:AJ5に合わせて変更） Set dataRange = Range("F5:AJ5") ' 5回連続の結果を出力するセルを指定（AY7に合わせて変更） Set output5Consecutive = Range("AY7") ' 6回連続の結果を出力するセルを指定（AZ7に合わせて変更） Set output6Consecutive = Range("AZ7") ' 初期化 consecutiveCount = 0 set5ConsecutiveCount = 0 set6ConsecutiveCount = 0 set7ConsecutiveCount = 0 set8ConsecutiveCount = 0 set9ConsecutiveCount = 0 set10ConsecutiveCount = 0 isConsecutive = False Set ignoreCounts = New Collection ' データを順に確認 For Each cell In dataRange If cell.value = "出勤" Then consecutiveCount = consecutiveCount + 1 isConsecutive = True Else If isConsecutive Then ' 10回以上連続の場合は無視 If consecutiveCount >= 10 Then ignoreCount = 10 Else ' 5回以上連続の場合 If consecutiveCount >= 5 And Not Contains(ignoreCounts, consecutiveCount) Then set5ConsecutiveCount = set5ConsecutiveCount + 1 ignoreCounts.Add consecutiveCount End If ' 6回以上連続の場合 If consecutiveCount >= 6 And Not Contains(ignoreCounts, consecutiveCount) Then set6ConsecutiveCount = set6ConsecutiveCount + 1 ignoreCounts.Add consecutiveCount End If Then set10ConsecutiveCount = set10ConsecutiveCount + 1 ignoreCounts.Add consecutiveCount End If End If isConsecutive = False consecutiveCount = 0 End If End If Next cell ' データ範囲の最後で5回以上連続している場合 If consecutiveCount >= 5 And Not Contains(ignoreCounts, consecutiveCount) Then set5ConsecutiveCount = set5ConsecutiveCount + 1 ignoreCounts.Add consecutiveCount End If ' データ範囲の最後で6回以上連続している場合 If consecutiveCount >= 6 And Not Contains(ignoreCounts, consecutiveCount) Then set6ConsecutiveCount = set6ConsecutiveCount + 1 ignoreCounts.Add consecutiveCount End If ' 結果を出力 output5Consecutive.value = "5回以上連続：" & set5ConsecutiveCount & "セット" output6Consecutive.value = "6回以上連続：" & set6ConsecutiveCount & "セット" End Sub Function Contains(col As Collection, value As Variant) As Boolean On Error Resume Next Contains = (col.Item(value) <> 0) On Error GoTo 0 End Function

質問日時: 2023/12/25 09:14 質問者: jirou9754

解決済

7

0
PC タスクバーのexcelによく使うファイルの候補を表示したい

windows11で Excel® 2021 MSO (バージョン 2311 ビルド 16.0.17029.20028) 64 ビットを使っています。　以前はタスクバーにあるエクセルのアイコンに毎日使うエクセルファイルの候補が表示されていたのですが、タスクバーのピン留めを外したり留めたりしているうちに、候補が表示されなくなりました。特定のExcelファイルを表示させるにはどうしたらいいでしょうか？　通常は、対象のExcelファイルをタスクバーにドラッグ＆ドロップするとピン留めされると思うのですが、「駐車禁止」のようなマークが出てピン留めされないのです。　いろいろ調べましたが自分では解決できないので、分かる方がいましたら教えてください。よろしくお願いします。

質問日時: 2023/12/24 09:17 質問者: willesden

ベストアンサー

1

0
シート保護時のカーソル（セル）の移動について

添付画像のようなシートを作成しました。枠線で囲われているセルは、結合しています（A2:B2、A3:C3・・・のように）。さらに、各枠セルのロックを外して、シートの保護（「ロックされていないセル範囲の選択」のみを可にして）をかけています。この状態で、下矢印でセルを移動させると3行目の次が6行目に飛んでしまいます。個人的には、4行目に移動して欲しいのですが・・・。なぜ、6行目に飛んでしまうのでしょうか？（私のExcelのバージョン2010がいけない？）下矢印で、4行目に移動させることはできないでしょうか？

質問日時: 2023/12/23 17:19 質問者: ママチャリ

ベストアンサー

3

1
Excelの共有ファイルについて質問です。

Excelの共有ファイルについて質問です。共有ファイルをデスクトップにコピーして、行の挿入などの加工をし、データを入力したいのですが、共有している皆さんには迷惑は掛かりますでしょうか？データを入力後は、列の挿入したところなどは、元通りにして、元のフォルダーに戻し、ファイルを置き換えれば、問題ないでしょうか？よろしくお願いいたします。

質問日時: 2023/12/23 02:07 質問者: ボアヒロ

ベストアンサー

3

0
Excelの質問です。A列の数字と、B列の数字を照らし合わせて、同じ数字を横に並べたいのですが・・・

Excelの質問です。 A列の数字と、B列の数字を照らし合わせて、同じ数字を横に並べたいのですが、うまくいきません。（100行は参照したいです）どうぞよろしくお願い致します。

質問日時: 2023/12/23 00:11 質問者: ボアヒロ

ベストアンサー

4

0
Excelの数字と文字列の結合が上手く出来ません

Excelの質問です。 A列の19：56と B列の2023/12/22(金)を C列に結合し、2023/12/22(金)19：56 と表示したいのですが、どうしたらよいかわかりません。宜しくお願い致します。

質問日時: 2023/12/22 22:15 質問者: ボアヒロ

ベストアンサー

7

0
エクセルで、入力できる箇所をわかりやすくするにはどの様な方法が、良いか教えて下さい。ちなみに、入力

エクセルで、入力できる箇所をわかりやすくするにはどの様な方法が、良いか教えて下さい。ちなみに、入力できない箇所は入力しょうとしても、入力できない様になっています。

質問日時: 2023/12/22 16:38 質問者: チクタク55

ベストアンサー

5

1
文字コードが全て範囲内であるか

Excelで、セル内の文字の文字コードが全て、ある範囲内であるかどうかの判定はどうすればいいですか。範囲内であれば、そのセルの右セルに○を設定する、などで結構です。

質問日時: 2023/12/22 14:49 質問者: kKhu7hdO

解決済

3

0
エクセルファイルが開かなくなった

昨日の夜まではエクセルファイルで入力をしていましたが、今朝エクセルを立ち上げると、ファイルが開かないのです。ファイルを開いても何も表示されず、固まったような状況で、右上の「×」を2度、3度クリックしてエクセルを修了することは出来ます。それから暫く悪戦苦闘でなんとかファイルが開くようになりました。しかし、PCの動きも遅くなっているようです。昨夜PCを閉じるときに、更新はありませんでした。一晩で何があったのでしょうか？

質問日時: 2023/12/22 14:10 質問者: new_hana

ベストアンサー

3

0
エクセルの印刷がうまくいきません

Microsoft Office 365 ProPlusのエクセルを使用しています。作成物を印刷すると2枚目と３枚目の間に大きな空白が出来てしまいます。また３枚目と４枚目の間にも大きな空白が出来てしまいます。空白なく各ページ同じ長さで印刷をできるようにするにはどうしたらよいでしょうか？

質問日時: 2023/12/22 12:13 質問者: yasumitsuyo

ベストアンサー

1

0
シフト表を自動でカレンダーに反映したい

エクセルの関数で質問です。下記エクセルファイルですが、シフト表というシートには名前と日付、シフトが記入されています。カレンダーというシートには月単位で変更できるカレンダーがあるのですが、自動でシフト表というシートのシフト（1/1であればJ4）がカレンダーのシートの日付の下のセル（1/1であればB5）に自動で入るような関数を教えてください。また、シフト表のシートで複数名のシフトを入れた場合、選択したらその人のシフト表をカレンダー形式で自動で表示させるようにもしたいです。 https://38.gigafile.nu/1226-b3a4527674f3abddee37098783f9143e2

質問日時: 2023/12/22 10:10 質問者: milkcandy003

解決済

4

0
エクセルで写真のようなデータの離散図を示したいです。横軸α、縦軸βで右のデータと左のデータを別の色か

エクセルで写真のようなデータの離散図を示したいです。横軸α、縦軸βで右のデータと左のデータを別の色か形で出したいです。やり方を教えてください。よろしくお願いします。

質問日時: 2023/12/21 11:13 質問者: なぽお

解決済

3

0
エクセルのオートフィル？ドラッグして連続ででる値が壊れている。これはなに？

何と質問していいのかわからないんのですが、、画像を参考にして下さい。・エクセルのオートフィルっていうんですか？？範囲の右下のポッチをドラッグする。そうすると値は入る・その右の列でVLOOKUPで値を拾っているが、なぜかひろえないので・オートフィルでセットした値を見るとセルの値が38.9までは問題ないのですが39から「39.0000000000001」という値になって同じような感じで値がずれ続けます（ただし、小数点１位であれば見た目の問題はありません）。見た目の表面上は（小数点１位では）うまくいってるのですが、なぜか途中から値に小数点以下のかなり大きな所でおかしな値が入っており、Vloolupで拾う事ができません。これはどうしたらなおるのでしょうか？どうぞどうぞよろしくお願いいたします。

質問日時: 2023/12/21 11:13 質問者: abc123abc123abcd

ベストアンサー

2

0
タスクバーのexcelに特定の候補を常に表示したい

windows11で Excel® 2021 MSO (バージョン 2311 ビルド 16.0.17029.20028) 64 ビットを使っています。以前はタスクバーにあるエクセルのアイコンに毎日使うエクセルファイルの候補が表示されていたのですが、タスクバーのピン留めを外したり留めたりしているうちに、候補が表示されなくなりました。特定のExcelファイルを表示させるにはどうしたらいいでしょうか？いろいろ調べましたが自分では解決できないので、分かる方がいましたら教えてください。よろしくお願いします。

質問日時: 2023/12/21 08:01 質問者: willesden

解決済

1

0
エクセルでプルダウンから5つ条件を選択し、金額を出力するツールを作りたい

エクセルでタイトルにあるツールを作りたいです。添付画像をご確認ください。条件は以下です。・水色のプルダウン5つを選択したら、それに該当する金額をピンクに出力したい。・プルダウンの条件は青枠に記載。・選択されたプルダウンのパターンによって赤枠の数値をピンクに持って行きたい。・どの条件がどの金額になるかはここに記載していませんが別表で決まっている。例＞夏にアメリカに四人でLCCで毎回レストランなら220000など。別表も同じエクセルのシートにあったほうがいいのかという判断がつきませんでした。この条件では作成できません、という回答でも構いません。マクロに対応できませんので、E2に”～”を入力して、C9に”～”を入力してといった形で教えていただけると幸いです。よろしくお願いいたします。

質問日時: 2023/12/20 17:19 質問者: goonist

解決済

4

0
エクセルの絶対参照を一部外す方法＝R4/index(sheet2!$G:$G, match(レポー

エクセルの絶対参照を一部外す方法＝R4/index(sheet2!$G:$G, match(レポート!$H$4, sheet2!$E:$E, 0)) この「レポート」のあとの2つの$だけ外して、$H$4をH4にする方法が分かる方教えてください。一つではなくたくさんのセルを同時にするためです

質問日時: 2023/12/20 15:16 質問者: lancru333

ベストアンサー

5

1
EXCELの計算式のコピーについてのしつもんです。 10万件以上の支店が縦にずらっと続いています。

EXCELの計算式のコピーについてのしつもんです。 10万件以上の支店が縦にずらっと続いています。 1月から12月の部分に複雑な関数の計算式が入っています。その1月から12月の12個を選択し、右下の十字を作ってダブルクリックしても、10万件以上の支店✕12のセルにコピーされません。なのでドラッグして下までコピーしているのですが、10分以上かかるものもありこまっています。ダブルクリックでできないのはなぜでしょうか。ほかにいい方法はありませんか

質問日時: 2023/12/20 14:11 質問者: lancru333

ベストアンサー

1

0
エクセル関数について、分かる方いましたらご教授ください。お願いします。 AとBの差を求める関数＋その

エクセル関数について、分かる方いましたらご教授ください。お願いします。 AとBの差を求める関数＋その小数点第２位だけを表示する関数はありますか？

質問日時: 2023/12/20 12:39 質問者: あき9852

解決済

2

0
エクセルの散布図でラベルの位置を下端に移動して目盛を表示すると目盛がY軸0に表示されて、その下の端に

エクセルの散布図でラベルの位置を下端に移動して目盛を表示すると目盛がY軸0に表示されて、その下の端には表示されません。下端に移動するにはどうしたらよいでしょうか

質問日時: 2023/12/20 07:40 質問者: skor

ベストアンサー

1

0