Excel総合相談所 130

**名無しさん＠そうだ選挙にいこう** · 2017/12/24(日) 09:11:43.15

▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類　　　　 .】 Windows**
【2 Excelのバージョン　】 Excel**
【3 VBAが使えるか　　 .】はい･いいえ
【4 VBAでの回答の可否】可･否

▼━関連スレ━━━━━━━━━━━━

前スレ
Excel総合相談所 129
https://find.5ch.net/search?q=excel

Excel VBA 質問スレ Part51
https://find.5ch.net/search?q=excel+vba

【質問不可】Excel総合相談所スレの雑談・議論スレ4
https://find.5ch.net/search?q=excel+%E3%80%80%E7%9B%B8%E8%AB%87%E6%89%80

**名無しさん＠そうだ選挙にいこう** · 2018/03/30(金) 06:22:40.19

>>702
読みながら、たしかにそうだろうな、想定できる役職を一通り書いておいて、さらに将来的な
空白セルの分まで参照して式をつくるべきかな、と考えていたら

>>703
これでバッチリできました！
どういう仕組で機能しているのかはわからないので、これから詳しく解析してみます
ありがとうございます

**703** · 2018/03/30(金) 06:47:11.36

>>704
この式は「前方一致」だから、例えば"久保田部長"で検索するとして、
"大久保"はスルーするけど、"久保"はヒットしちゃうので注意が必要。

**名無しさん＠そうだ選挙にいこう** · 2018/03/30(金) 07:05:11.09

>>705
それはもう仕方ないですね
役職を除外して参照するという処理をする以上、役職リスト等を参照しない限りは、参照したい
文字が含まれていればすべてカウントするという処理をするしかないでしょうし

**名無しさん＠そうだ選挙にいこう** · 2018/03/30(金) 08:12:02.11

1日目朝昼夜
2日目朝昼夜
：

こういうデータシートから
朝昼夜朝昼夜…という並びでグラフ化するにはどうしたらよいですか？

**名無しさん＠そうだ選挙にいこう** · 2018/03/30(金) 11:26:04.43

【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2016
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可

セルA1に1をセルB1に2を入力して印刷
セルA1に3をセルB1に4を入力して印刷
セルA1に5をセルB1に6を入力して印刷
これをA1が99、B1が100になるまで繰り返してるのですがVBAでできないでしょうか？

**名無しさん＠そうだ選挙にいこう** · 2018/03/30(金) 11:45:41.65

>>708
できます。

**名無しさん＠そうだ選挙にいこう** · 2018/03/30(金) 16:58:52.86

>>709
簡潔に纏められ、分かりやすい解答だと思います。

**名無しさん＠そうだ選挙にいこう** · 2018/03/30(金) 17:07:23.58

>>700
それ本気？冗談？

**709** · 2018/03/30(金) 17:53:26.88

いや、悪気はないです。
今PCが手元にないので。スマホでも書けそうだけど。

この場合、もしプリンターが複数あるなら、その辺もマクロで書いておく方がいいと思う。
プリンターの設定間違えてほかのプリンターで処理してしまうと50枚印刷されてしまうことになるので。

**名無しさん＠そうだ選挙にいこう** · 2018/03/30(金) 17:58:51.79

プリンターは1台しか接続していない場合だとどういったマクロになりますか？

**709** · 2018/03/30(金) 19:30:11.24

dim i as integer

for i = 1 to 50
cells(i,1)=(i * 2)-1
cells(i,2)=(i * 2)
activesheet.printout
next i

こんな感じでは？

loop until の方がいいような気もするけど、とりあえず。

**名無しさん＠そうだ選挙にいこう** · 2018/03/30(金) 22:25:17.79

>>708
vba使わなくても予め50シート作っておいてまとめて印刷するのはどう？
マクロわからない人でも保守できるよ

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 03:19:03.12

どうでも良いけど印刷関係のマクロ作るなら、既定のプリンタをpdf,xdw,xpsあたりに変えておかないと、満足にデバッグ出来ない気がする

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 12:11:04.45

エクセルは、モッサリ感が半端ないのに、
50シート作ったら、仕事にならない感じがする。

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 12:25:37.98

回答：Accessでやりましょう

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 12:30:13.76

このスレでそれはなしな
いわゆる普通の事務員でAccessを使える香具師はそう多くない

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 13:00:22.90

accessを少しでも知ってたら、こんな作業をやらせようとは思わんわ

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 13:36:20.49

Accessは知ってるけど>>708の作業ごときでAccessはないわ

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 14:36:33.97

"Excel VBA 連続印刷差込印刷"
あたりでググると、サンプル結構ありそうだ。

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 17:42:56.81

一時的にでも５０シート作って印刷１回にした方がいいんじゃないの
VBAで５０回印刷とか酷い時間になる

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 18:27:11.52

別に、事務員ならどうせ日中暇なんだからぽちぽちやっときゃええやろ

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 18:56:15.89

そもそも、>>708の作業に意味があるように見えないっていう
穴を掘らせて埋めさせる的な刑罰の一種?

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 19:08:51.25

データと出力を別けてればよくあるパターンだと思うよ。
1人一枚の出力で50人分とか。
VLOOKUPで社員コード引っ掛けて、データ拾って出力。

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 19:28:25.05

ほかのセルにはA1とB1を使った数式がいくつも入ってんじゃないの？
まあ番号札とかアンケート用紙みたいなのを印刷するだけの簡単なお仕事でも別におかしくはないけど

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 20:38:49.59

【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2013
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
以下の条件に合致する場合、3列目にOKの文字を出力したいです
条件：1列目の数字が同じかつ2列目の数字がひとつ上の2倍

例）
1 1500
1 4000
2 20000
2 22000
↓（関数結果）
1 1500
1 4000　 OK
2 20000
2 22000

どなたか方法を教えてもらえませんでしょうか

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 20:46:12.70

>>728
C2にこの式を入れて下にコピペ
=IF(AND(A1=A2,B2/B1=2),"OK","")

でも、その例で4000は1500の2倍じゃないよね
条件が「2倍」じゃなくて「2倍以上」じゃないの？

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 20:48:07.71

>>729
こんなに早くありがとうございます
2倍以上が正しいです
本当にありがとうございます
早速試してみます

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 20:51:49.24

>>730
2倍「以上」ならこうね
=IF(AND(A1=A2,B2>=B1*2),"OK","")

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 20:56:35.44

>>731
できました！
ありがとうございます！！
このご恩は一生忘れません！！！

**ぴころ** ◆lHG3Yzo0a6 · 2018/03/31(土) 21:07:39.85

うむ（＾▽＾）

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 21:11:49.31

>>725
出荷する荷物に貼る用紙を作成するためです
入力する番号は荷物の通し番号になります

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 21:39:53.07

半分に切って使うのかな

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 23:17:51.90

Accessがドストライクな案件だけに惜しいな
テーブルに番号の組み合わせを入れて（扱う番号の拡張性も高い）
レポートに欄を作って印刷するだけ

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 23:25:26.00

俺もシリアル番号の印刷とか片手間仕事でたまにやるわ
エーワンのラベル用紙に末尾を1から30まで変えながら印刷とか
以前はサインペンでせっせと書いてたらしい

**名無しさん＠そうだ選挙にいこう** · 2018/03/31(土) 23:29:09.82

しょーもない仕事はクレバーに一瞬で解決できるのに、
しょーもない仕事が発生する場所にクレバーな人材はいない

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 02:10:51.95

シート50枚作って、プリントは手作業で一括というのを
批判覚悟でPowerShellで書いてみたVBAよく知らないもので。

$excel=new-object -ComObject Excel.Application
$excel.Visible=$true
$wb=$excel.workbooks.add()
$ws=$wb.ActiveSheet();

for($i=0;$i -lt 50;$i++){
$n=$i*2+1
$left=$ws.Cells.Item(1,1)="$n"
$right=$ws.Cells.Item(1,2)="$($n+1)"
$ws=$wb.Sheets.Add()
}
$ws.Delete()

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 02:11:35.92

このまま実行すれば行けるはず

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 08:41:08.25

その程度の処理をpowershellで書けてVBAで書けない上にVBAスレを見ていると言う謎

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 09:24:14.18

>>739
$left, $rightが意味不明
セルへの代入で文字列化する必要もないし

foreach($i in 0..49){
$ws.Cells.Item(1,1).value()=2*$i+1
$ws.Cells.Item(1,2).value()=2*$i+2
}

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 10:15:43.66

perlが変数にいちいち$付けるの嫌だああってrubyでは無くしたのに、
また同じようなことしとる

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 10:15:53.41

中学生が頑張って書いてる姿を想像するとキュンと来る

**714** · 2018/04/01(日) 11:03:26.32

>>708
ごめん間違ってた。直しました。
activeprinterのところはプリンター名直すか、削ってもオーケーです。
最大値100じゃなくて4にしてます。

Sub test()

Const START_NUM As Integer = 1 '数値の開始値
Const FINISH_NUM As Integer = 4 '数値の終了値
Const PRINTER_NAME As String = "Microsoft Print to PDF" 'プリンター

Dim i As Integer

i = START_NUM

Do Until i = FINISH_NUM - 1

Cells(1, 1) = (i * 2) - 1
Cells(1, 2) = Cells(1, 1) + 1

ActiveSheet.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False, ActivePrinter:=PRINTER_NAME

i = i + 1

Loop

End Sub

**739** · 2018/04/01(日) 12:52:34.06

>>741
VBAスレッドじゃなくExcelスレッドなんでVBA関係なく参考になるから
（VBA使わないのはシートとプログラムは完全分離したい、中に埋め込みたく
　ないという思考あるもので）。

>>742
あたまに０入れたいとかあるかな～と思って
left,right は質問のかたが何やってるかわかりやすいかなと思った次第。

**739** · 2018/04/01(日) 12:56:50.11

>>742
考えてみたら、
あたまの０、これは計算時に省かれちゃうな。
ってことは、私のこの部分意味なかったってことやな。あちゃ。

**745** · 2018/04/01(日) 14:00:26.09

まだ間違ってるわ。
do loop until i > FINISH_NUM \ 2
に直してください。
細かいこと言えばまだいろいろあると思うけど。

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 17:00:32.36

【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2010
pngファイルをwindowsフォトビューアーで開いた後、エクセルにコピーアンドペーストで貼り付けたいのですが、貼り付けることができません。
PowerPointには貼り付けれるのですが…
excelでは挿入機能を使うしかないのでしょうか。
いい方法があれば教えていただきたいです。よろしくお願いします。

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 17:08:59.92

ペイントで開けばできる

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 17:25:50.36

Wordやパワポと違ってExcelは挿入からしかできませんね。

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 17:44:58.03

フォトビューアーのメニューにわざわざペイントあるんだから
それ使うんじゃまずい？
それ以外ならSnipping Toolではいかが？

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 17:50:53.13

　>>749
前提を覆して申し訳ないが、
フォトビューワーは使わない。何故なら、同じ用な点でめんどくさいから
常にペイントで開くようにしてみては・

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 19:09:15.96

>>753
フォトビューワーのメニューにペイントがあるから
直接でもフォトビューワー経由でもそれほど変わら
ないはずなんだけどね。

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 20:07:50.24

>>750-754
ありがとうございます。ペイントを経由して貼り付けようと思います。

**ぴころ** ◆lHG3Yzo0a6 · 2018/04/01(日) 20:23:11.78

うむ（＾▽＾）

**名無しさん＠そうだ選挙にいこう** · 2018/04/01(日) 21:36:52.21

順番が逆のような気がしないでもない
たぶん画像にデータを付加、またはデータに画像を添付したい
ってのが本来の目的な気がする　　回り道して余計な仕事増やしているだけのような　いや、ひとりごと

**名無しさん＠そうだ選挙にいこう** · 2018/04/02(月) 01:51:37.01

【1 OSの種類　　　　 .】職場環境：Windows7　自宅環境：Windows10
【2 Excelのバージョン　】職場環境：Excel2016　自宅環境：Excel2010
※質問用のエクセルファイルは自宅環境で作成しましたが、実際に使用するのは職場環境です
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】可

https://dotup.org/uploda/dotup.org1500173.xlsx
上記のように、エクセルにてパレード図を作成しようとしています。
ピボットテーブルにて件数ごと降順で並び替え、かつ件数が1件のものはグループ化しその他として一番下にしたいです。
しかし、降順でソートしたあと、その他を一番下に持っていこうとすると、
降順ソートが解除され、その他以外順番がばらばらになってしまいます。
全部手動で並び替えるのはかなり手間なので、ピボットテーブルの機能で並び替える方法があったら教えてください。
ピボットテーブルを値として貼り付け、普通の表にすれば並び替えられますが、
ブックがごちゃつくし、あとでデータを追記する際煩雑になるので、可能ならピボットテーブルのまま並び替えたいです。

**名無しさん＠そうだ選挙にいこう** · 2018/04/02(月) 04:19:37.56

みなさんフォントって何使ってますか？
最近だと遊ゴシック？
でも古い資料とかとの整合性とか考えると…セルの幅とか勝手に変わっちゃうし
でもMSPゴシックもなぁ…

**名無しさん＠そうだ選挙にいこう** · 2018/04/02(月) 07:25:01.21

>>758
excel 2016
グループ化した後、列ラベル欄で手動並び替えにして自動並び替えを外す
件数の欄で降順に並び替え
その他ラベルで移動を選択して末尾へ移動

**名無しさん＠そうだ選挙にいこう** · 2018/04/02(月) 07:26:14.92

>>759
そのまま
古いファイル開いてコロコロ変わるのが一番ウザい

**名無しさん＠そうだ選挙にいこう** · 2018/04/02(月) 07:38:09.60

>>759
游ゴシックは全く使わないようにしてるな
文字の高さがずれるのか見ててイライラする
エクセルだとひとつ前のメイリオUIにしてる
整合性は全く考えていないのでMS Pゴシックにはしていない

**名無しさん＠そうだ選挙にいこう** · 2018/04/02(月) 14:33:21.85

>>762
メイリオの方が行間広くないです？
もうちょいまともな標準フォント用意して欲しい。

>>700
「もっと難しいのを」って書いてるから、多分冗談なんだろうけど。
この式、エラー出るよ。

**名無しさん＠そうだ選挙にいこう** · 2018/04/02(月) 15:02:20.82

>>763
　
なんで　>>700　はわざわざあんなに難しくしたのかが
これが意味不明なんだわ～～～

真面目に書けば
奇数の判断なんて mod(n,2) が1なら奇数0なら偶数ってだけの話なのに。
わざとなんだろな

**名無しさん＠そうだ選挙にいこう** · 2018/04/02(月) 15:52:45.53

>>761
>>762
ありがとう
フォントだけ変わってくれればいいのに行間が変わるからめんどくさい
この辺の対策しないところをみると、メイリオ以降の行間が正常で旧フォントが行間が妙に狭いという形にしたいのかな
meiryoKeConsoleだとセル幅も変わらずフォントだけ変更できるんだけど他人に渡すとバグっちゃうのかな？
あと、明朝は遊明朝にするとセル内の表示高さがバグるというか逆になっちゃうんですね
何かとややこしいなぁ…

**名無しさん＠そうだ選挙にいこう** · 2018/04/02(月) 19:01:19.14

英語と日本語と混在だから、MeiryoUIくらいしか選択肢が無いんだよな
かなが正方形でなくなって、英字がちょっと広くなっちゃうけど

自分しか使わないファイルは、meiryoKeGothicにしてる

**名無しさん＠そうだ選挙にいこう** · 2018/04/02(月) 20:04:50.19

>>766
meiryoKeGothicなんて今知った

**名無しさん＠そうだ選挙にいこう** · 2018/04/02(月) 20:30:44.33

まだXPの頃から使い続けてるな > Ke

**名無しさん＠そうだ選挙にいこう** · 2018/04/03(火) 07:39:32.78

>>760
できました
ありがとうございます

**名無しさん＠そうだ選挙にいこう** · 2018/04/03(火) 10:04:11.98

【1 OSの種類　　　　 .】 Windows7
【2 Excelのバージョン　】 Excel2013
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否

Excelて各セル（行）の高さを表示する機能や関数はありますでしょうか？
表形式の文書を作っていて、各行の高さをセル内の行数にあわせて調整するものの、それを一目で見たいのです
例えば、A1セルには1行目の高さ、A2セルには2行目の高さ（以下繰り返し）のような感じで。

**名無しさん＠そうだ選挙にいこう** · 2018/04/03(火) 10:58:42.23

>>770
ない

**名無しさん＠そうだ選挙にいこう** · 2018/04/03(火) 20:17:28.86

セルの表示形式で、例えば文字列の場合に赤字で表示するとき、
[赤］@
で出来るけど、この「赤」を英語にすることってできます？
要は、英語版のExcelだとどう設定すれば良いのか知りたいです。

**名無しさん＠そうだ選挙にいこう** · 2018/04/03(火) 21:21:45.20

>>772
普通に[Red]でいいんじゃね？
https://support.office.com/en-us/article/create-or-delete-a-custom-number-format-78f2a361-936b-4c03-8772-09fab54be7f4

**名無しさん＠そうだ選挙にいこう** · 2018/04/03(火) 22:27:38.19

>>773
ありがとうございます。
日本語版ではRedが使えないということは、英語版からカスタマイズされてて、Redは省かれてるですね。

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 00:00:41.35

フォントをms pごしっくにしない理由ってなんかあんの？デフォルトでよくね？

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 00:07:05.31

見苦しいから

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 00:55:24.31

見苦しいのか
理系で論文書いてたら当たり前のフォントだから何の違和感もないけど

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 02:20:02.38

>>775
非常識だからだよ
書体以外でも変なことしてるんじゃ？

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 05:35:39.48

論文書く時のフォントはArialだな

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 06:37:40.97

>>766
meiryoUIに1票
ke知らないから見てみるわ
でもたぶん使い分けめんどいから結局UIな気がする

>>775
MS Pゴシック
なんであんな汚いフォント使うのか、まったく理解に苦しむ

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 07:46:16.98

meiryoUI >= MS P(UI) >>> 游UI
現行デフォルトの游ゴシックは、文字がかすれたり上下余白がおかしくなるからダメ

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 07:53:49.29

メイリオから続く狂った行間は何を押し付けようとしてるんだろう

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 08:02:47.76

MSPゴシックは解像度低くても読める事が優先のフォントだから高解像度だと煩すぎて駄目だな
逆に游ゴシックは高解像度特化だから低解像度だと読めん
メイリオはガキ臭くて仕事で使う気になれん
結局は游ゴシックにしてるわ

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 09:10:58.67

游ゴシックは、昔からの帳票類がどれもこれもレイアウト総崩れで論外

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 11:50:54.61

そおゆう四角四面でガチガチなガラパゴスビジネスリテラシーにうんざりしてんじゃね
「こうでなければならない」だの「これしかない」みたいなのをぶっ壊したいんだ
たかだか数十年の「当たり前」ってのはこれからの数十年もおんなじ
なんてのを否定しちまえばいいんだ　　個人的な感想ですけど

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 17:49:59.79

>>775
今はデフォルトが遊ゴシックだよ

>>780
keはメイリオ改みたいなもの
パッチで改造するものだから普及はしてないので
自分で使うくらいにしかならない

>>784
結局それなんだよね
新しい環境でやろうにもレイアウトが全部崩れるってのが
まぁ全言語共通行間？みたいに変更したいようだけど

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 21:06:27.97

【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2016
【3 VBAが使えるか　　 .】はい
【4 VBAでの回答の可否】否
=TODAY()を使用するとなぜか昨日の日付になってしまいます。
やろうとしていることはカレンダーを作成し当日のみ条件書式でハイライトすることです。
途中何度か関数を入れ直すと過去の日付をハイライトしたり変な挙動をしつつ最終的には昨日で止まっています。
ちなみに計算は自動にしてます。
真新しいファイルで作成しました。
どなたか御存知でしたら教えてください。

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 21:43:31.60

>>787
PCの時間狂ってんじゃないの？

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 22:21:09.68

タイムゾーンがおかしいのでは？

**名無しさん＠そうだ選挙にいこう** · 2018/04/04(水) 22:52:59.58

>>787
数式うp

そもそもワークシートに並んでるカレンダーの数字はどうやって入力した？

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 01:43:43.35

>>788
確認したのですがあってました

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 01:44:40.19

>>789
確認しましたが正しいです

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 01:48:40.60

>>792
now関数はどうなりますか？
あと、vbaで、date関数は？

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 01:52:35.76

>>790
日付はctlr+で入力しオーフィルハンドルで下にひっぱっただけの極々単純な入力方法です

条件書式は=($A3=TODAY())
=$A3=TODAY()
両方試して変わりなかったので上を入れてあります

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 01:54:54.37

>>793
nowは明日試します

vbaでdate関数、
そのカレンダーの日付をdateにしてみるという意味でしょうか？
vbaでやる意味を教えていただけると有り難いです

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 02:05:37.19

ワークシート関数の戻り値と、vba関数（now、time、date）の戻り値が同じか試してみる。
通常は同じだろうけど、違えばそれが原因を探る手がかりになるでしょ。

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 02:11:40.44

>>796
解説有難うございます
試したらまた報告します

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 02:13:11.18

>>795
更新は当然してますよね？
F9押すか、再計算するか。

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 07:43:15.15

>>798
>>787で最初に書いた通り自動計算です。
しかも手動で再計算も何度もしました。

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 07:50:31.63

時計がずれてるかロケールが変わっている
now()は多分9:00ずれていると思う

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 09:55:46.83

>>800
>>791,>>792ご覧ください。
=nowも普段使ってますがずれていません。

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 10:02:47.45

コメント有り難いですがループしてます。。

**名無しさん＠そうだ選挙にいこう** · 2018/04/05(木) 11:32:57.53

まずシンプルにどこかのセルに
=todat()
だけ入れてみてください。
それでもおかしいですか？