Excel総合相談所 152

1 ：名無しさん＠そうだ選挙にいこう：2022/12/25(日) 07:38:10.99 .net

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

注意事項
・情報を隠すために別の問題を設定するのはやめましょう。たいていの場合その問題は的外れな設定で、期待していたものからずれた回答が返ってきます。

スレッド作成は>>980がやります

※前スレ
Excel総合相談所 151
https://mevius.5ch.net/test/read.cgi/bsoft/1664405768/

152 ：名無しさん＠そうだ選挙にいこう：2023/01/08(日) 22:00:06.62 .net

>>149
作ったよ

153 ：名無しさん＠そうだ選挙にいこう：2023/01/08(日) 23:15:15.60 .net

>>152
助かります、どこへアップロードしましたか、されますか。

154 ：名無しさん＠そうだ選挙にいこう：2023/01/08(日) 23:54:20.14 .net

>>153
だからお前の呼吸を止めた動画をはよ上げろや

155 ：名無しさん＠そうだ選挙にいこう：2023/01/09(月) 00:28:13.03 .net

レベルの低い質問は相手にされないから本当に困ってるなら詳細を追加した上でVBA質問スレに投下するか然るべき所でお金を払って依頼しろ

156 ：名無しさん＠そうだ選挙にいこう：2023/01/09(月) 07:38:11.41 .net

もしこれ本当に頼まれたとして作れる奴ここにおるんかいな。一部だけでないのか。

157 ：名無しさん＠そうだ選挙にいこう：2023/01/09(月) 08:21:06.17 .net

マウスの操作10回ぐらいでできそう

158 ：名無しさん＠そうだ選挙にいこう：2023/01/09(月) 17:58:55.00 .net

年表って、日付の列でソートするだけやん
列選択、ソート、OKの3クリックで終わり

159 ：149：2023/01/09(月) 18:55:05.14 .net

>>158
どうやったこう言うのを作れますか？
https://www.japanserve.com/nagatoshobo/images/nenpyo1768_b1.jpg

160 ：名無しさん＠そうだ選挙にいこう：2023/01/09(月) 18:55:30.36 .net

違う、違うそうじゃない

161 ：名無しさん＠そうだ選挙にいこう：2023/01/09(月) 19:03:09.67 .net

また分かりづらい年表を持ってきたな
視点が泳いで逆に理解しにくいだろ

162 ：名無しさん＠そうだ選挙にいこう：2023/01/09(月) 19:07:31.09 .net

めっちゃ笑った

163 ：名無しさん＠そうだ選挙にいこう：2023/01/09(月) 19:42:17.41 .net

例えば映像などでピンポイントにインパクトを与える目的ならありかも知れんけど、印刷物として詳細を記す用途としては微妙
普通に項目を時系列順に素直に並べた方が良い

164 ：名無しさん＠そうだ選挙にいこう：2023/01/09(月) 21:25:57.24 .net

>>159
さすが、俺w

165 ：名無しさん＠そうだ選挙にいこう：2023/01/10(火) 01:34:48.10 .net

=TEXT(A1,"0.0;-0.0")

166 ：140：2023/01/10(火) 09:18:06.99 .net

>>142
？
左側がクエリで右が参照する元のテーブルということですか？

167 ：名無しさん＠そうだ選挙にいこう：2023/01/10(火) 09:28:00.05 .net

>>143
ありがとうございます。大体分かったのですが

>そして入力用のシートに、IDを入力し、参照用データを引っ張ってくる。更にデータを追記する

ここの「参照用データを引っ張ってくる」の部分
スピルやStack、セル参照だと結局参照してる元データの並びが変わったりすると
引っ張ってきている列と、後から入力した列がズれる可能性がありますよね？
単純なソートなら同ブック内の場合連動して参照先も変わるんでしょうが、別ブックとかクエリの場合はそうはいかないですよね？

都度値で貼り付けるという方法もありますがスマートでは無いので

元データのIDでマージすれば良いんでしょうが、このIDがユニークとは限らないので

168 ：名無しさん＠そうだ選挙にいこう：2023/01/11(水) 14:16:13.18 .net

【1 Windows10】
【2 Excel2016 】
【3 いいえ】
【4 否】
すごく素朴な疑問なので恐縮です
sheet1のセルを一個だけ選択してコピーしsheet2に『リンク貼り付け』で貼り付けた際に、
『=sheet1!$A$1』みたいに絶対参照になるのですが、
これを『=sheet1!A1』みたいに相対参照で貼り付ける方法はあるのでしょうか？
セルを2個一緒にドラッグして他シートにコピペすると相対参照になるのですが、一個だけの選択だったりコントロールキーを押しながら複数セルをクリックしてコピペすると絶対参照になってしまいます……
なにか設定の違いでしょうか、それとも諦めて絶対参照の$を消して対応するしかないでしょうか
ご指導よろしくお願いします

169 ：名無しさん＠そうだ選挙にいこう：2023/01/11(水) 15:08:27.04 .net

エクセルの仕様かと。
複数セルを選んでコピペし、余計にコピペしたものは消す。
Ctrlで複数箇所を選択する際も、各箇所とも複数セルを選択する。

170 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 13:36:29.94 .net

365の超廉価版出る噂
古事記の俺にはたまらない。

171 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 14:43:32.37 .net

廉価版なんてどうせWebブラウザ版をローカルで使えるようにするだけでは
あんなもん低機能すぎて使い物にならんわ

172 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 15:19:04.52 .net

Web版はVBAやM言語(PowerQuery)は使えない
ただしOfficeScriptが使える場合はある

173 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 17:56:44.53 .net

複数の図を一括で明るさを修正する方法はありますか。
図ツールでは1つずつしか修正出来ませんし、グループ化して無理でした。

174 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 18:06:16.48 .net

じゃあできない。

175 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 18:09:42.22 .net

図って jpg とか？　普通に複数選択して設定すればできると思うけど

176 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 18:11:50.21 .net

図を複数選択した途端に図ツールのあらゆるものがグレーアウトするな
唯一、色の変更だけは使える
VBAでならやってる人見付けた　https://www.higashisalary.com/entry/vba-change-brightness　質問者本人の釣りかも知らんが　需要あるのか？

177 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 18:41:15.10 .net

>>170
超廉価版出たな
月額229円または年額2,244円
100GBのOneDriveと広告なしのOutlook電子メールが使えるぞやったな！

178 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 19:51:38.09 .net

廉価版と言ってもOfficeもExcelも使えないのに365商法は微妙

179 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 20:11:40.94 .net

普通にヤフオクとかで売られてるOffice2021とかでええんとちゃうのん？

180 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 20:41:22.43 .net

>>176
こんな感じです、ありがとうございます。。コントラストも変えたかったんですが無理そうですね。

釣りじゃないです。
とあるデータを毎日、一定時間ごとにキャプチャして比較するため質問しました。
プログラム(スクレイピング)が組めないのでアナログでやろうと。

181 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 21:10:52.79 .net

それは、Excelでやろうとしないで、画像編集ソフトでやるもの　無料でも高機能の当該ソフトはいろいろある
それでなら、複数画像だろうと、サイズ・明度・照度等々さまざまな一括処理可能　それをExcelに取り込むならまだしも

182 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 21:26:20.07 .net

いや画像編集ソフトも違うと思う

183 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 21:39:23.26 .net

画像も取り込むのはExcelでもよくある話、
DB的に使っててサンプル画像とか、
企業向けExcelはURLで画像引っ張ってくる関数が追加されたくらいだし。
となれば、Excel上で並んでいる画像の画質を一括調整したくなるのは
不思議でも何でもない。

それをいちいちDLして画像専用ソフトを開き直して調整なんて
やってられるかいな。

184 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 21:40:42.93 .net

マクロで　For Each したらええやん

185 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 21:49:50.79 .net

比較が目的であって編集は手段でしょ？
そうするとその編集いるの？って疑問が湧く

186 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 21:59:18.04 .net

比較が目的？

187 ：名無しさん＠そうだ選挙にいこう：2023/01/14(土) 22:09:31.41 .net

例えば、Webサイトのモノタロウのボルトの一覧
https://www.monotaro.com/s/c-100733/

こんなのをExcelの在庫管理で作ったとして、
それぞれの画像の明暗がバラバラだと、
認識しにくい。

比較なのか、目的なのか、編集なのか、意図がようわからんけど
DBとしての認識のしやすさを目的として求めるのであれば、
明暗の調整という編集行為は、その手段かしら？

188 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 03:15:40.87 .net

>>186
>>180

189 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 03:50:03.19 .net

古事記はサブスクの365すら払えないのかw
これだから貧乏人は廉価版(笑)とか

190 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 07:31:18.79 .net

Microsoft 365 Apps for enterprise または business

191 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 11:11:15.53 .net

>>183
ローカルファイルも持って来れるよーなったら、色々使いでもあるんやが。
後、PDFの指定ページとかも希望。多分無理やろーけど。

192 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 14:35:52.81 .net

【1 Windows10】
【2 Excel2019 】
【3 いいえ】
【4 否】

結合したセルのAを結合していないセルにコピーするとBのようになります
これをCのようにしたいのですが可能でしょうか？

http://imepic.jp/20230115/521930

193 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 14:42:26.41 .net

対象画像が何だかわからんが、WEB上の様々な出自の画像なら一括編集しちゃダメな場合だってあるんじゃ？
暗いのと明るいのを一括で調整なんて無理だろ　暗い方に合わせたら明るい方は飛んぢまう　むしろダメな事のが多い
明るさ・コントラスト・シャープネス、サイズ、それぞれを「望む状態」にするなら専用アプリのがよっぽど楽　という意味

194 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 14:46:20.71 .net

>>192
０：００のセルを削除しましょう！

195 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 14:52:59.96 .net

Bに成るのはやむを得ない　そのBを改めて飛び飛びで選択してコピー　貼り付け先で[値と数値の書式]で貼り付けてようやくCに

196 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 14:58:30.16 .net

=A1
=A3
=A5

197 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 15:17:04.75 .net

>>193
100例中95例は専用アプリを使う方が敵していても5例はexcelの方が適しているわけで、、
173の例はニッチな5例の方だったって事だ

198 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 17:27:12.26 .net

>>192
値 <> 0 でフィルターしてコピーしたら行けそうな気もする

199 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 20:44:34.43 .net

>>193
なんだか分からない以上あーだこーだ言い合うことが無意味だよ

200 ：名無しさん＠そうだ選挙にいこう：2023/01/15(日) 23:44:48.39 .net

>>192
やってみたけど、直接AからCには
出来なかった。
こんな感じでどうだろうか。

1.Aをコピーし、貼り付け先のセルに
値と数値の書式で貼り付け。
2行目が空白で貼り付けられる。

2.格子の罫線を引く。

3.ctrl+gでジャンプウィンドウ表示

4.セル選択をクリック。

5.空白にチェックをつけてOK

6.空白セルが選択されているので
右クリックから削除→上方向にシフト

完了までは他のセルを選択しないこと。
2.は後回しにしてもいいかと。

ところで、AからBへの貼り付けは
どのようにしてる？
添付の画像では6行分コピーしたのに
貼り付けは5行分だから、間に何か
プロセス挟んでる？
(当方2021でAからBへ直接貼り付け出来ず)

201 ：名無しさん＠そうだ選挙にいこう：2023/01/16(月) 16:51:29.87 .net

61722.473
ってエクセルで四捨五入できる？

202 ：名無しさん＠そうだ選挙にいこう：2023/01/16(月) 16:53:33.49 .net

>>201
どの桁で？

203 ：名無しさん＠そうだ選挙にいこう：2023/01/16(月) 16:58:14.66 .net

>>202
ごめん
小数点第一3位まで表示にしたいんどけど、この数値を手入力すると、61722.472999999になって四捨五入して値貼り付けしても永遠にできなくて

204 ：名無しさん＠そうだ選挙にいこう：2023/01/16(月) 16:59:01.25 .net

>>203
第3位でした

205 ：名無しさん＠そうだ選挙にいこう：2023/01/16(月) 19:26:45.36 .net

セルA1に19.9999が入ってて
セルA2に=ROUND(A1,2)&"MPa"
だと表示が20MPaになってしまう
20.00MPa表示にしたい場合どのように？

206 ：名無しさん＠そうだ選挙にいこう：2023/01/16(月) 19:34:20.12 .net

解決しました
=TEXT(A1,"#,##0.00")&"MPa"

207 ：名無しさん＠そうだ選挙にいこう：2023/01/16(月) 20:41:31.46 .net

>>203
その数字を次にどう使うかによって対処方は違う
https://www.newssalt.com/32247

208 ：名無しさん＠そうだ選挙にいこう：2023/01/16(月) 20:50:29.93 .net

ビット数が多いほど誤差が小さくなるもんだと思いこんでた
https://i.imgur.com/9jadiZB.png

209 ：名無しさん＠そうだ選挙にいこう：2023/01/16(月) 20:55:35.92 .net

同志たちはpop体フォント使ったことありますか？

210 ：名無しさん＠そうだ選挙にいこう：2023/01/16(月) 21:20:51.01 .net

>>203
関係ないけどLibreofficeのcalcではならんなぁ…
.4730000000000…のままだ
内部処理違ってんだな

211 ：名無しさん＠そうだ選挙にいこう：2023/01/16(月) 21:24:28.61 .net

>>207
>>208
ありがとう
四捨五入が最後で、この数字を使ってこの後何かをするわけじゃないです
循環小数が残るのがエクセルの仕様で誰がやっても同じ結果でこれ以上は手作業しかないってことが分かればOK
どうやら整数が32768〜65535で、小数点以下が0.098から0.125刻みで起こるみたいで、32768ってIntegerの最大でその2倍が65535ってことくらいは分かったんだけど
2進数に変換するからだろうね

212 ：名無しさん＠そうだ選挙にいこう：2023/01/16(月) 21:27:08.62 .net

浮動点少数

213 ：名無しさん＠そうだ選挙にいこう：2023/01/17(火) 16:55:53.18 .net

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

https://i.imgur.com/aWbDryk.png
このような表のB列で、指定された数値より小さい値のうち、最も上にある数値と同じ行のA列の数値を表示させる方法ってありますか？
LOOKUPやVLOOKUP関数を使っても、うまく表示できませんでした。

214 ：名無しさん＠そうだ選挙にいこう：2023/01/17(火) 16:56:44.63 .net

>>213の場合だと、「0.4」を表示したいという意味です。

215 ：名無しさん＠そうだ選挙にいこう：2023/01/17(火) 17:04:04.51 .net

>>213
上からみていって、
30より76（B1）は大きいから次
30より49（B2）は大きいから次・・・
で、B5の2の横にあるA5セルの0.4って意味か

逆のような気がするが・・・

216 ：名無しさん＠そうだ選挙にいこう：2023/01/17(火) 17:07:44.03 .net

配列数式？
=INDEX(A1:A21,MATCH(TRUE,B1:B21<D2,0))

217 ：名無しさん＠そうだ選挙にいこう：2023/01/17(火) 17:10:56.76 .net

>>216
うお、すごい
でも配列数式にする必要は特にないはず
最初の一個めが帰ってくるので。

218 ：名無しさん＠そうだ選挙にいこう：2023/01/17(火) 22:18:06.16 .net

>>209
プライベートで使ってる。デフォルトのポップ体はクソだから外部からダウンロードしたフォントを使っている。
流石に仕事でポップ体なんか使えないけどw

219 ：名無しさん＠そうだ選挙にいこう：2023/01/17(火) 22:54:07.45 .net

JK丸ゴシックお薦めだぞ

220 ：名無しさん＠そうだ選挙にいこう：2023/01/17(火) 23:13:24.54 .net

YouTuberのヒカルが使っているフォントがオススメ
特にパワポで映える

221 ：名無しさん＠そうだ選挙にいこう：2023/01/17(火) 23:54:45.72 .net

>>216
ありがとうございます！これで卒論を書ける……本当に感謝です！

222 ：名無しさん＠そうだ選挙にいこう：2023/01/18(水) 01:22:44.43 .net

book1のSheet2のA1セルに=Sheet1!A1と書きます。
book1のSheet2をコピーしてbook2に移動させると、A1セルの値が自動的に=[book1]Sheet1!A1に変わると思いますが、変えずにコピペする方法はあるんでしょうか？

セルが1つだけなら数式の文字をコピペでいけるんですが、たくさんあると大変です。
ctrl+Hが一番楽ですかね？

223 ：名無しさん＠そうだ選挙にいこう：2023/01/18(水) 01:52:37.40 .net

そうですね

224 ：名無しさん＠そうだ選挙にいこう：2023/01/18(水) 08:00:07.07 .net

>>222
ほかにも
indirect("Sheet1!A1")って書けば固定されるけど、
一回だけなら置換でいいと思う

225 ：名無しさん＠そうだ選挙にいこう：2023/01/18(水) 08:44:05.80 .net

分かりました。
ありがとうございます。

226 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 13:11:54.12 .net

A1:D100に0~100の数字がランダムに書かれています。
そのうち0のセルを全てデリートしたいため、0のセルを全て選択したいのですが、ctrl+fで0を検索すると10とか20のセルも引っかかってしまいます。

現状、別のシートで=if(A1:D100="","",A1:D100)と書いてから値貼り付けで対応しているのですが、これより良さげな方法はありますか？
書式変更で0を表示しないという案は却下でお願いします。

227 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 13:20:58.35 .net

失礼、数式の一つ目の""は0です。

228 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 13:28:25.80 .net

filter(a1:d100, a1:a100<>0)
計算式合ってるかな？

229 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 13:30:39.94 .net

2次元かいな？
横が少ないなら、横も計算対象にすれば良いだけや

230 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 13:34:27.90 .net

>>228
A1:A100ではなく、A1:D100に数字が入っています。
あとデリートしたいというのは0のセル全てに対してdeleteキーを押したいという意味であって、セル自体の削除をしたい訳ではありません。

231 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 13:36:03.94 .net

>>226
検索ダイアログのオプションみてみたら気づくものあると思う

232 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 21:06:10.79 .net

お願いします。

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

VBAでセルの金額を足して格納する先としてlong型の変数を用意していたのですが、
今期、とうとう金額が増えてオーバーフローしてしまいました。
そこで、変数の宣言でLong型としていたところをCurrency型に書き替えたら、エラーもでずに
正常に動作するようになりました。

これでよかったのでしょうか？
「long型 オーバーフロー 対策」で検索しても「Currencyに変えろ」という
アドバイスはどこにも見当たらないので不安です。

233 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 21:30:15.74 .net

>>232
そういやそんな型もあったなぁ・・・
ってレベル
普通にdoubleでいいと思う
本当はdecimalがあれば一番良かった

currencyについての考察
http://kashi.way-nifty.com/jalan/2014/02/currency-c09b.html

を見るとcurrencyでも悪くないと思う
ただ、小数が入った時の挙動が不安定になりそう（税、利息、歩合などなんだかんだで小数は発生するため）

234 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 21:42:45.31 .net

>>232
64bit Excel なら LongLong の方が無難かも
（Currency は小数点以下4桁持ってるから割り算などをやってたらオーバーフローしなくても Long と結果が異なることがあり得る）

235 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 21:51:34.77 .net

>>233
> ただ、小数が入った時の挙動が不安定になりそう（税、利息、歩合などなんだかんだで小数は発生するため）
と言いながら
> 普通にdoubleでいいと思う
ってどう言うこと？

> 本当はdecimalがあれば一番良かった
宣言はできないけどCDec( ）で値作ってVariantに格納できる
https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/decimal-data-type

236 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 21:58:49.59 .net

>>233
小数以下がほぼないなら、明示するって意味でcurrencyでもいいと思う
言ってる意味がわかんないならdoubleが安全です

237 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 22:21:32.19 .net

ありがとうございました。
32bitエクセルでも使用するファイルなので、currencyのままとします。
ありがとうございました。

238 ：名無しさん＠そうだ選挙にいこう：2023/01/19(木) 22:24:17.27 .net

>>193
ちょっとズレてるな
1行目はこの話と何の関係も無いしタダのイチャモン余計なお世話。というかなんで一括編集がダメなんだよｗ個別編集なら良いのか？
2行目も意味不明。なんでわざわざ明るい方まで選択してゲインを上げるんだよｗ
3行目に至っては最早見えない物が見える妄想患者レベル

239 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 00:18:46.71 .net

【1 Windows10】
【2 Excel2019 】
【3 いいえ】
【4 否】

他の人と会社の受注状況を表した売上管理表を共有しています
そのEXCELシートは、売上が確定したらその行を青色に表示するルールになっています

そのファイルをパワークエリで引っ張って来て必要な列だけ読み込むと元々のセルの色が消えてしまいます
セルの色を残すか色が青色である事をパワークエリで変換する時に反映させる方法はありますでしょうか？

240 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 00:20:57.64 .net

セルに入力された頭文字と一致するフォルダ名んもフォルダに、セルの中身を入れ込むことは出来ないでしょうか？
セル
1A 山田
2A 鈴木

フォルダ名
1A
2A

というフォルダがあった場合、フォルダ名を一括で
1A 山田
2A 鈴木
にするということです。分かりづらくてすいません お願いします

241 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 00:43:00.79 .net

>>239
色は使わず
確定したら「確定」とか「1」とか入力する列を作るのが普通ですよ

242 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 01:09:16.90 .net

>>241
そうなんでしょうけど
新入りなので会社が長年これでやって来た事に対して変更を言えない立場なのです

243 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 01:16:25.30 .net

自分でひらめいたけど

1一度共有ファイルをコピー
2各行にそのセルの色を取得する関数を埋め込み
3セルの色が黄色ならば「確定」の文字を表示
4パワークエリでそのコピーファイルを読み込んで変換
5簡易マクロを利用して、上記のファイルのコピーや確定表示、パワークエリの一連の動作をワンボタンで行えるようにする

というので行けるかな

244 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 01:17:09.87 .net

>>242
マクロで色拾って>241をやる

245 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 01:35:22.21 .net

>>231
できました！

246 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 01:40:52.36 .net

ああセルの色を取得する関数はないのか。。

自分でVBAでその関数を作ってみたけど
自分で作った関数てコピペ出来ないんですか？

247 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 01:43:29.52 .net

>>244
そのマクロで色を拾うのが上手く行きません

ネット検索して
getcolorinfoなる関数を作ってみたのですが
コピペして他の行に貼ると、そのコピペ元のカラーまでコピペされて上手く行かないのです。。
とうすれば良いんでしょ

248 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 02:09:12.12 .net

>>247
色を拾うユーザー定義関数なんて、たったこんだけだよ？何か変なことやってない？
Function getcolorinfo(R)
　　getcolorinfo = R.Interior.Color
End Function

249 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 02:43:11.03 .net

>>248
ありがとうございます

標準モジュールにそれを書き入れて
セルで＝getcolorinfo(A1)
とするとA1のセルの色が数値で出てきますが
そのA1セルをフィルハンドルで下に引っ張ってもA1のセルがA2以降にコピペされてしまうのです

A1が黄色
A2が青色であってもA2まで黄色になってしまうということなのです。

A1と入れずにカレントセルを指定する方法があるのかもですが

250 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 02:47:39.75 .net

あ、オートフィルというのか。。

251 ：名無しさん＠そうだ選挙にいこう：2023/01/20(金) 03:35:34.93 .net

>>249
そりゃ当たり前だ
数式だけコピーしたい時は特殊な貼り付けから数式を選ぶんだよ
マウス操作だと右クリックメニューの貼り付けのオプションの左から3番目にfxと書かれたアイコンがあるじゃろ、それで貼り付けるんだよ