Excel総合相談所 129
■ このスレッドは過去ログ倉庫に格納されています
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 .】 Windows**
【2 Excelのバージョン 】 Excel**
【3 VBAが使えるか .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
▼━関連スレ━━━━━━━━━━━━
前スレ
Excel総合相談所 126（実質127）
https://find.2ch.net/search?q=excel
Excel VBA 質問スレ
https://find.2ch.net/search?q=excel+vba
【質問不可】Excel総合相談所スレの雑談・議論スレ
https://find.2ch.net/search?q=excel+%E3%80%80%E7%9B%B8%E8%AB%87%E6%89%80 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
名前に付いてなんですが、
例えばA4:Z99を4000回INDEX〜MATCH等で参照するとして
MATCHに全部A4:Z99と書くのと、A4:Z99に2〜3文字程度の名前をつけて
名前で参照するのでは、どちらが軽快でしょうか？
MATCH(150,A4:Z99,1)
MATCH(150,原価A,1) [A4:Z99に"原価A"という名前を定義]
こんなかんじですが、上と下、どちらが軽快ですか？ >>95
やったらええがな
カンだけど多分変わらないぞ 表計算使い始めて分からないことがあるので質問させてください。
A1 B1 C1のセルがあって、
B1の背景に色がついたら、B1の数値をA1に表示。
C1の背景に色がついたら、C1の数値をA1に表示。
どちらも色がついた場合は特に何も無し。
とするには、どのような式を入力すればいいでしょうか？
お願いします。 >>98
色がついたら、ということは基本的にできない
b2に1を入力することで分岐させる
A1＝if(B2=1,b1,"")
B1の条件付き書式はB2が1なら〜で設定する すいません、質問させてくだい。
エクセルのファイルを画面上に２つ以上見えているとします。
そこで、ショートカットキーを使ってファイル間をアクティブセルを移動させることは出来ませんか？
Ctrl +TABではセルは移動しますが、ほかのエクセルファイルは最小化されてしまいます。画面上のエクセルファイルは見えたままにしておきたいです。
わかる方お願いいたします。 >>98
ＶＢＡを使えば可能ではある
ただ、>>99みたいな運用にした方が少なくとも自力でＶＢＡを組めないうちは、良いかとは思う セルのBackColorがRGB白以外なら 〇を△ □を× とかなんとかで
いけそうな気もする 気がするだけだけど VBAを使って、計算結果を記入
→そこを読み取ってグラフが作成され？
→それをコピぺして別シートへ貼り付け
このときグラフを一緒にコピペしてかつ、等間隔に縦横とならべたいんですが、そんなこと可能ですか？ テンプレ無しに答える人がいれば
ぐだぐだとテンプレ無しの質問者が増えるわな
まあ同一人物かも知れんが ▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
基本的なことですが、オートシェイプの標準？フォントの設定の仕方を教えてください
(1) オートシェイプで四角形を貼り付ける
(2) 右クリックしてテキストの編集を選択
(3) オートシェイプの縁を選択してフォントとサイズを設定
(4) シェイプに文字列を書き込む
(5) (4)で書いた文字の一部をコピーして同じシェイプ内にペースト
(6) 【ここが問題】なぜか別のフォント、サイズで貼り付けられる
⇒オートシェイプの標準のテーマ？ というのがある模様 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
いくつかの数値を中央値から飛び出してる値が一番少なく均すような計算をしたいのですが
どのような関数が使えるでしょうか 中央値と平均値の差分を出しても均すようにはならないですし
各数値の最大の絶対値と中央値？平均値？の差分が最小になるように計算すればいいのでしょうか？ それとも偏差が最小になるように計算すればよいでしょうか
数学が全然わからず混乱しています 異常値を除いた平均ならTRIMMEAN関数ってのがあるよ
自分でコマ膜調整したいなら、2016ならAVERAGEIFSってのがあるけど2013は知らん AVERAGEIFなら、2013にもあるが……
AVERAGEの配列数式にした方が上下双方の異常値を取り除くならやりやすいかもね 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
マクロに関して質問させて頂きます、初めてなので不都合があったらすみません
シート1で差が2以上ある自然数を2つ入力し、シート2にその2つの自然数の間の数を補完してコピペする事は可能ですか？ すみません、宜しければその操作やVBAを教えて下さい シート1に入力するのは手動？
どことどこのセルに入力するの？ >>115
シート1に入力する自然数は手動で入力です
その自然数と補完した間の数をシート2に入力したいです 例をあげると分かりやすい。
A1に5、A2に10 を入れると、
別シートのA1に5、A2に6、、、10で終わるってこと？ >>117
>>118
何度もすみません、例を挙げます
シート1のA1に3、B1に6と入力すると、シート2のA1を開始点としてA1に3、A2に4、A3に5、A4に6と入力されるようにしたいです >>119
標準モジュールに書くこと
Sub foo()
Set 転記元シート = Sheets("sheet1")
Set 転記先シート = Sheets("sheet2")
開始 = 転記元シート.Cells(1, 1)
終了 = 転記元シート.Cells(1, 2)
転記先行数 = 1
For i = 開始 To 終了
転記先シート.Cells(転記先行数, 1) = i
転記先行数 = 転記先行数 + 1
Next
End Sub >>120
回答ありがとうございます
調べながら入れてみます もう一つお願いします
転記先シートの開始点のみ指定し、終了を指定せずに>>119の動作を行いたいです >>106 ってどなたかわかる方いらっしゃいませんか？ >>124
そのようですね、すみません…
無事動きました、ありがとうございました >>125
全然基本的なことじゃないな、これ
貼り付けオプションがッ出るので「元の書式を保持」を選択 iOSだとVBA使えないのか
これまでpcでやってた計算を出先のipadでも！というのは幻想に終わるのか… エンター押すとマクロ起動する
っていうことってできるの？
マクロ起動させるにはマウスでクリックしかないの？ >>127
ありがとうございます
それだと貼り付け1回分しか変わりません
毎回やらなくても良いようにしたいのです コマンドボタンでも一つ置いといて、そのSheetを開いた時に
そのコマンドボタンにフォーカスを移すように仕組んどけば
Enter一発でマクロ起動は可能
でなければ、セル入力や変換確定のたんびにマクロが走ってしまう >>128
ｉＯＳがプログラミングで機能を増やすってことをコンセプトからはずしているんだから仕方がない
アプリはＯＳが予定する気がない機能を使うには多大な労力が必要だから切り捨てるのもやむを得ない >>129
Enterじゃなくてもいいならonkeyで割り当てるとか、Enter以外にも反応してしまうが、selection changeイベント使うとか方法はあるかな
>>131
成る程、その手があったか。面白い。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
また少し教えて下さい、前回の延長の質問です
シート1で入力した単語と同じ行のセル2つに数字をそれぞれ入力し、シート2の列Aにシート1のセル2つの数字間を補完し、列Bに補完した数字のぶんだけ文字列をコピペするマクロを作りたいです
分かり辛いと思うので例を貼ります
↓のようにしたいです
https://i.imgur.com/vvGyzLS.jpg >>134
小出しにされるとめんどくさいから、やりたいことの最終型書いてくれない？
コード読んでも全然分かってないんでしょ？ >>132
iPadで仕事がどこでもできるわけじゃあないんだね
VBAを使うんならノートpcがいいんだな
残念だ >>136
例を見てもよく分からないですね。
罫線もマクロで引くの？
データのクリアはどうするの？ あと1、5、6、10と入ってるけど、
常に、C3=D2+1なの？ >>139
罫線はあらかじめ用意してあります、データのクリアはしません
分かりにくい例で申し訳ないです…
画像の状態ならB2に「ああああ」、C2,D2で1,5と入力するとF2〜F6に1〜5、G2〜G6に「ああああ」と入力されるものを作りたいです
>>140
そうです あと文字列、数1、数2がそれぞれ2つ入ってるけど、もっとたくさん入る場合もあるんですよね？ >>143
ttps://i.imgur.com/1MWrja9.jpg
ただし、一番最初の数値が1以外で始まるとダメ。 Excel2016でファイルを開くと勝手にフォントが変わってしまいます（取り消し線や下線の設定なども消える）
その後、修正して保存しても、開くとまた元に戻ってしまいます
今のところ、対策としては一つしかなく、別のExcelファイル（内容が空のファイルでも良い）を開いた状態で該当のファイルを開く
あるいは、同じExcelファイルの別のシートを最初に開くように保存して、開いたあとに該当のシートを見ると保存した時の状態で開けます
要するに、いきなりそのファイルのそのシートを開くとバグるようです
なんらかの設定によるものなのかと思っていろいろいじりましたが、今のところは上記の方法でしか対策できません
解決策をご存知の方はおられますか？ >>144
ありがとうございます
一番最初の数字というのは>>134の場合だとC2と言う事ですよね ＞【1 OSの種類 .】 Windows8.1
＞【2 Excelのバージョン 】 Excel2013
＞【3 VBAが使えるか .】 いいえ
＞【4VBAでの回答の可否】 可
図のような二曲線間の垂直の距離xを求めたいのですが何か方法はありませんか？
実際に用いるデータは無数に点があるので
系列間の点と点の距離を求める形になると思います
https://i.imgur.com/psdeP7P.jpg >>147
（オレンジの面積ー青の面積）/長さ
四角形と三角形を足していけばいずれ答え貼っでる
例えばオレンジの2-4は
12*2＋2*2/2になる IF(($R$8>=Y7)*AND($T$8<=AA7),$T$8-$R$8,0)+…
貰ったエクセルの関数なんですが*の意味って何ですか？ 論理演算の論理積
AかつB、つまりand(A,B)と同じ意味になる
あと、その式の
AND($T$8<=AA7)
のANDは意味がない
($T$8<=AA7)
となる
で、
($R$8>=Y7)*($T$8<=AA7)
は
and(($R$8>=Y7),($T$8<=AA7))
と同じ
（AND各場所間違えてるっぽい） >>151
早い回答ありがとうございます
論理積かなと思いつつもANDがあってでも場所が変でーだけども正しく動いてて？？？状態でした and(A,B)でAかつB
なのが正しい
>>149は試してみたらわかると思うけど、正しく動いてない 結果が正しいかどうかはなんとも言えないけど、Excelの関数や論理式のことがよくわかってなくて試行錯誤した結果なんだろうなとは想像がつく >>146
そうですね、C2ですね。
そこに1以外の数値がくるなら、コードの下から3行目、4行目のj+1のところを少し変える必要がある。 >>152
他の言語とか知ってたら一瞬ん？ って思うけど And は関数だから エクセルの数式内で、関数に見える言語構造ってある？
ifもandも全部関数なのかな >ifもandも全部関数なのかな
ヘルプくらい見よう ちゃんと考えたことがなかったけど、ワークシート+数式は言語かなあ
セルは変数とみなせるし、複数のセルに数式を並べれば、順次処理や条件分岐っぽいこともできそうな気がする 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
シート1のA1にデータを入力
↓
シート2に同じデータがあるかどうか検索する
↓
あった場合はシート1のA2に○
無ければ☓を出力する
シート1に入力する時にvlookupを使うと完全一致の場合でしか検索できず、長い名前の物があると入力が大変(例えば、検索したい名前が「Ase kaki man ase ase」の場合全てを入力しないと☓が出力されてしまう)
そこで、検索したい名前の一部を入力すると候補が出てくるようにしたい(例えば、上記の例で言うと、検索で「Ase kaki」と検索したら最後まで自動的に入力されたことになる。もしくは、それに類似したものが複数あるなら候補を表示する)
イメージとしては記載したとおりですが、もっと良い方法があれば教えて下さい >>164
vlookupは、検索単語に＊をつけると、あいまい検索できる。
例えば
ase＊
と入れるとaseを含む文字列全部検索する。
詳しくはココ見るといいよ
http://excel-forest.net/2017/03/25/anpasado/ 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel10
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
フォルダの中に連番のファイル名のCSVファイルを入れてます。
エクセルのセルに、そのリスト名を並べて表示してます。
ファイル名はこんな感じです。（地名＋時刻＋aかb）
横向きに書いてますが上から順番に並んでいます。
福岡09時30分A.CSV 福岡12時A55分A.CSV 福岡15時30分A.CSV
福岡09時30分b.CSV 福岡12時A55分b.CSV 福岡15時30分b.CSV
東京09時30分A.CSV 東京12時A55分A.CSV 東京15時30分A.CSV
東京09時30分b.CSV 東京12時A55分b.CSV 東京15時30分b.CSV
これをファイル名の同じ地名ファイルで同じ時刻で上から順番に並べるようなマクロを教えてください （行節約するため横向きに書いてます）
福岡09時30分A.CSV 福岡09時30分b.CSV
東京09時30分A.CSV 東京09時30分b.CSV
福岡12時A55分A.CSV 福岡12時A55分b.CSV
東京12時A55分A.CSV 東京12時A55分b.CSV
福岡15時30分A.CSV 福岡15時30分b.CSV
東京12時A55分b.CSV 東京15時30分b.CSV >>164
VLOOKUPより、COUNTIFの方が良くないか？
一個でも一致があれば、○にするって言うなら、IFの論理式的にも簡単だし 候補を出すんだと、文字ごとに絞ったリスト作ってデータの入力規則のリスト使うのが俺は好み
作業列でその項目がCOUNTIFで指定セル内にあるか調べて、ROW()で行数の掛け算をする
そして、作業列の数字を大きい順にリストにして、範囲を名前で定義して、データの入力規則使う
作業列の計算式を工夫すれば、アルファベット順に並び替えとかも可能 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
初心な質問かもしれませんが宜しくお願いします。
16年実績・17年実績のそれぞれのシートにはa月・b商品名・c個数・d実績が記入してあります。
［例］
a b c d
1.3月 りんご 5 500
2.3月 みかん 5 500
3.4月 ばなな 3 300
4.5月 いちご 4 400
16年と17年の商品毎の同月までの進捗を別シートに出したいのですが、
sumifで集計すると16年には去年の年間の実績を入力しているので16年は年間で、17年は10月までとなります。
進捗を出すシートに例えば「10月」など入力したら、16年・17年の10月までの進捗が出るように出来ませんか？
自分が、16年の実績を出したい月までで貼り付けていけばいいのでしょうが、もし方法あるなら教えて頂ければと思います。 >>171
実際の表での月の表示はどうなっているのかな？
それによっては、シリアル値にしてしまった方が簡単にできるし
シリアル値にしないならしないでやりようはあるし >>173
レスありがとうございます。
月の表示は「10」と入力で両方から反映できるように数字が入れてあります。
元々は「17-10」・「16-10」のような「年ー月」だったのをデータ分割して末尾の10だけにしたので戻す事もできます。
書き込んだ後、自分なりに調べてsumif の条件を≧10とかでならないのか？とも思っていますが
その場合、３月〜２月で拾いたいのが、数字のみなので1〜10で拾ってしまうのでは？「16-10」のように「年ー月」の表示に戻した方が拾えるのかな？とも考えています >>174
恐らくわかっていると思うけど条件的にSUMIFじゃ全然足りないから
SUMIFSを使うことになる
便宜上同じシートでやってしまうとして
A列を年B列を月、C列を商品名、D列を個数、E列を実績
G1に開始月、H1に終了月
J2〜実績のための商品名
K1をA列にある2016年、L1をA列にある2017年とした場合
K2=SUMIFS($E:$E,$B:$B,">="&$G$1,$B:$B,"<="&$H$1,$C:$C,$J2,$A:$A,K$1)
で実績が出せるかなって感じに設定してみた後は、L列や下方向にオートフィルをすれば
希望に近いものができるかな、と。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
質問です
例えばＡ1のセルの色が赤ならば
自動でＢ1のセルに1と入力するにはどうすればよいでしょうか？ Sub Macro1()
If Range("a1").Interior.Color = 255 Then
Cells(1,2).Value = 1
enfif
End Sub 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016（365）
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 否
例えばA1に4月と入力して、オートフィルでA8までドラッグする。
ここでマウスをプッシュしたままだと、11月って出ますっけ？
ここでドラッグをやめたら、11月までオートフィルで入力されますよ、と分かるように。
どこかに設定があります？ ＞ここでマウスをプッシュしたままだと、11月って出ますっけ？
やってみればいいのでは？ 自分の環境では出ないんです。
以前は出てたような気がして。 >>175
ありがとうございます。
すぐには試せないので明日夜試してみます。 【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2013
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
質問です。
登録シートと出力シートがあります。
登録シートから出力シートにvlookupで飛ばします。
検索値が2000件程度あるため、一気に印刷したいです。
コードをわかる方教えてください。よろしくお願いいたします。 >>172
訂正
「A」「b」は末尾
福岡09時30分A.CSV 福岡12時55分A.CSV 福岡15時30分A.CSV
福岡09時30分b.CSV 福岡12時55分b.CSV 福岡15時30分b.CSV
東京09時30分A.CSV 東京12時55分A.CSV 東京15時30分A.CSV
東京09時30分b.CSV 東京12時55分b.CSV 東京15時30分b.CSV
これをファイル名の同じ地名ファイルで同じ時刻で上から順番に並べるようなマクロを教えてください （行節約するため横向きに書いてます）
福岡09時30分A.CSV 福岡09時30分b.CSV
東京09時30分A.CSV 東京09時30分b.CSV
福岡12時55分A.CSV 福岡12時55分b.CSV
東京12時55分A.CSV 東京12時55分b.CSV
福岡15時30分A.CSV 福岡15時30分b.CSV
東京15時30分A.CSV 東京15時30分b.CSV
こうなります。行節約するため、書き込みの時横向き２つ並べて書いてます。
時刻9時30分早いほうが先頭に並び下の方は時刻の遅い15時30分がくるように
したいです。 >>185
この板は32行まで書けるんだから、ややこしいことしないでくれ
わかりにくいわ
並べる前と並べたあとで2レスにすればいいんだよ それから、分は必ず2桁？「05分」みたいになってる？ >>184
ピボットテーブルですか！！
ありがとうござます！やってみたいと思います。 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2016
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
同じ項目で整理している表が複数シートあって、一つのシートの行を足したり削除したりして項目を変動させると、他のシートも連動して同じように行追加、削除ができるようにしたいのですが何かいいやり方ないですか？ >>189
row挿入と削除のコマンドをハンドルする。
イベントを発行するためのクラスと、イベントを受けるオブジェクトモジュールが必要。
クラスからraiseeventで発行。
オブジェクトモジュールでwitheventで受ける。
cpu使用率を上げない為に、SetTimer関数などを使ってイベントの発生を監視。 テーブル使って列を挿入したら、テーブルの色が変わります。
規則正しい縞々が崩れます。
そうならないようにする方法ありますか？ 【1 OSの種類 .】 Windows10
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
中古パソコンの店で
購入時に限り、２００３搭載を￥１０００でやる
とありましたので依頼しました。使ってみると
「このエクセルは、もうだれかに使われているライセンスだから、買い直してください」
みたいなメッセージでも、暫くしたら出るのかなと思ってみていたら
全く何の不都合もなく使用できています
２００３とか、このように古いこのディスクを
まだ今まで誰も使ったことがないから、警告メッセージが出ないのである
と解釈しておけばいいのですか？
出来てからだいぶたつディスクなのに、いままで誰も使ったことがないなんて
どういうことなのか不思議なので、質問してみようと思います >>193
2003の時代はライセンスの管理がいい加減だったから
ぶっちゃけ何回でも使用できてた
ほかのどんなアプリでも、そういうのが当たり前の時代だったというだけのこと >>192
条件付き書式で色を塗ればいい
例えば、
=MOD(ROW(),2)=1
で好きな色の塗り潰しを指定すれば、奇数行なら塗り潰しって設定になるから、シマシマは崩れない ■ このスレッドは過去ログ倉庫に格納されています
