Excel総合相談所 129

**名無しさん＠そうだ選挙にいこう** · 2017/10/02(月) 18:58:15.04

▼━質問テンプレ (出来れば使ってね) ━━━
【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

**名無しさん＠そうだ選挙にいこう** · 2017/10/02(月) 18:58:49.11

▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･1 現行スレ内で既出の質問が無いか、ページ内検索をしよう。(Ctrl+F)
･2 図やコードを書く場合、TABや連続する半角スペースは無視されるので注意。
･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。
･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。
･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。
･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
･7 VBAはプログラム言語のVisualBasic(6以前)に近い処理が可能で　Excelに関係ないことも出来ます。
　　Excelの操作に関係ない部分は、スレ違いなのでこのスレでは回答が得られにくいです。
　　ここで聞くよりもVBスレやAPIスレなどの該当スレで質問しましょう。
　　但し向こうはプログラマのスレなので､構文規則などの最低限の事は覚えてから質問しましょう。
　　ここみたいに丸投げはダメですよ。
･8 うまくいかなかったにしても自分でやってみたこと(組んだ数式やコード)は書きましょう。
　　例えエラーになる式やコードでも、何をやりたいのかを的確に把握する手がかりになります。
　　その上で、どううまくいかないのかを具体的に書きましょう。
　　エラーが出るなら、何処でどういうエラーが出るのか、
　　想定外の結果が出るなら、条件と想定上の結果、実際の結果などを詳しく書いてください。
･9 マルチは嫌う人が多いのでなるべく避けましょう。マルチをすると､逆に回答は得られにくくなると思ってください。
･A テキストボックス(エディトボックス)、コンボボックス(ドロップダウンリスト)、リストボックス、コマンドボタン、
　　チェックボックス、オプションボタン(ラジオボタン)、スピンボタン、スクロールバー、等の質問をするときは、
　　ユーザーフォーム、コントロールオブジェクト、フォームオブジェクトのどれなのかを必ず書くこと。

**名無しさん＠そうだ選挙にいこう** · 2017/10/02(月) 20:42:47.62

いちおつ

**名無しさん＠そうだ選挙にいこう** · 2017/10/02(月) 22:12:58.32

いちおつです！

**名無しさん＠そうだ選挙にいこう** · 2017/10/03(火) 17:02:52.68

【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2013
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
　　
　　　　　　　　　　
10/02　16:30　２００　１５０
10/02　16;20　３４０　２３０
10/02　16:10　３００　１２０
10/02　16:00　１００　５０
10/02　15:50　４００　１９０

Ａ列は日付、Ｂ列は時間、
Ｃ列は高い数値、Ｄ列は低い数値が降順に取得しています。

データは２行目から降順に１０分締めの時間で所得しています。
一週間分あります。

10/02の16:30から16:00の高い数値の中で最も高い数値をC3
10/02の16:30から16:00の低い数値の中で最も低い数値をD3に
出したいです。

出来たら日付、指定した時間を入力したらその期間の高い数値、
低い数値が出るようにしたいです。

お願いします。

**986** · 2017/10/03(火) 18:33:39.95

>>5
MAXIFS関数とMINIFS関数で簡単にできるよ。
サンプル作ったけどクラッシュしてデータ消えたし休憩時間終わった。調べてみ？

**名無しさん＠そうだ選挙にいこう** · 2017/10/03(火) 19:12:38.09

>>6
その二つの関数は、2016からの実装
質問者の環境では、エラーになるだけだ

**名無しさん＠そうだ選挙にいこう** · 2017/10/04(水) 01:05:30.28

式を取得する自作関数（紹介されてたやつ）が2007でエラーになるんですが
回避方法ありますか？

function test(f as range)
　test = f.value
end function

とかいうのは動きましたが、
test = f.formula
だとエラーになります。

**名無しさん＠そうだ選挙にいこう** · 2017/10/04(水) 04:08:48.43

>>5
＞10/02　16:30　２００　１５０
＞10/02　16;20　３４０　２３０
＞10/02　16:10　３００　１２０
＞10/02　16:00　１００　５０
＞10/02　15:50　４００　１９０

＞データは２行目から降順に１０分締めの時間で所得しています。
＞高い数値の中で最も高い数値をC3
＞低い数値の中で最も低い数値をD3に出したいです。

ん？
2行目からデータが入ってるなら、
C3には340、D3には230が入ってるんじゃないの？
C1とD1や、他の列に計算式入れていいの？

あとデータは3行目からに出来たりしない？
(これは別に出来なくてもいいけど、もしコピペ貼り付けしたデータなら・・・程度)

**986** · 2017/10/04(水) 05:38:31.50

>>8
渡したセルの数式や、エラーの内容を書くべきじゃないかな

**986** · 2017/10/04(水) 05:52:06.42

>>7
これは失礼した。2013からだと思ってたわ。

>>5
指定した日づけ、時間ってのが指定した日時って意味なら日付と時間をまず足して作業列e列へ。

数式は3種類くらいあるけど、例えば配列数式を使う方式
{=max(if((e列が開始日時以上か)✱（e列が終了日時以下か),Ｃ列))}

**名無しさん＠そうだ選挙にいこう** · 2017/10/04(水) 12:07:08.79

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

A列に6桁の予算コード
BCD列に予算コードに伴う予算区分(前から2桁ずつがB,C,Dに割り当て)

同じようにF列に10桁の部署コード
GHI列に部署コードの区分(3桁,4桁,3桁が割り当て)

これを各該当コード部分と区分をアンダーバーで
つなげた値を表示したいと思ってます。
素人知識で作ったのは以下の感じ。

Dim yosan As String
Dim busho As String
Dim i As Long
Dim n As Long
n = Cells(Rows.Count, "A").End(xlUp).Row

For i = 3 To n
Cells(i, "A") = Format(Cells(i, "A"), "'000000")
yosan = Cells(i, "A")
Cells(i, "B").Value = Left(yosan, 2) & "_" & Cells(i, "B").Value
Cells(i, "C").Value = Mid(yosan, 3, 2) & "_" & Cells(i, "C").Value
Cells(i, "D").Value = Right(yosan, 2) & "_" & Cells(i, "D").Value

**名無しさん＠そうだ選挙にいこう** · 2017/10/04(水) 12:07:37.19

>>12の続き

Cells(i, "F") = Format(Cells(i, "F"), "'0000000000")
busho = Cells(i, "F")
Cells(i, "G").Value = Left(busho, 3) & "_" & Cells(i, "M").Value
Cells(i, "H").Value = Mid(busho, 4, 4) & "_" & Cells(i, "N").Value
Cells(i, "I").Value = Right(busho, 3) & "_" & Cells(i, "O").Value
If Cells(i, "O").Value = "000_" Then
'※最後3桁の区分がないときは空白処理
Cells(i, "O").Value = ""
End If
Next

約55,000行くらいあるデータで30秒ほどかかるんですが、
もうちょっと早くする方法はないでしょうか。

**名無しさん＠そうだ選挙にいこう** · 2017/10/04(水) 12:28:49.54

>>13
これのM,N,Oというのは書き間違いです…
G,H,Iにそれぞれ置き換えです

**名無しさん＠そうだ選挙にいこう** · 2017/10/04(水) 12:29:59.60

>>12
ワークシートを一括で配列に読み込んで、配列の中だけで文字列の処理して、最後にワークシートに一括コピーすれば2秒で終わるよ

**名無しさん＠そうだ選挙にいこう** · 2017/10/04(水) 12:48:10.00

>>15
それを素人に手ほどきしてくだせえ

**986** · 2017/10/04(水) 13:16:41.77

>>16
14が言いたいのはつまり
Sub　aaaa()

　　　　'読み　必要なサイズのRangeをまるごとメモリに読み込み
　　　　Dim　Data　As　Variant
　　　　Data　=　Range("A3:O1000").Value
　　　　
　　　　'処理　(Cells(行,列).valueに相当。但し列はABCではなく123で指定）
　　　　Data(1,　1)　=　Data(1,　1)　&　"_"　&　Data(1,　2)
　　　　
　　　　'書き　Data配列の大きさに合わせて値を出力
　　　　'データのサイズ変更が無いと分かっている時はRange("A3:O1000").value=Dataとかでもいいが、こう書けば間違いない。
　　　　Range("A3").Resize(UBound(Data,　1),　UBound(Data,　2)).Value　=　Data

　　　　'※数式があると消えるので、値しか無いようにすること
　　　　
End　Sub

あと今のコードのままでも前後にApplication.ScreenUpdating　=　False～Application.ScreenUpdating　=　Trueしたらかなり改善するはず

**名無しさん＠そうだ選挙にいこう** · 2017/10/04(水) 14:36:45.12

>>10
セルの数式は単に参照してるだけです。
=test(i3)

エラーは忘れました。手元になくて。

**986** · 2017/10/04(水) 16:03:02.93

>>18
数式のエラーなの？実行時エラーなの？
i3ってセルアドレスかな？I3のセルがどういう状態なのか。数式は何が入っているのか
シンプルなプログラムなので、使い方が間違っているとしかおもえない

**名無しさん＠そうだ選挙にいこう** · 2017/10/04(水) 18:33:24.66

使ってるＥｘｃｅｌが最近やたらと考え中が続いてフリーズとかするのですが、
新しいファイルにそのままコピペすれば今まで通り使えるようになりますか？

**986** · 2017/10/04(水) 19:04:56.11

>>20
エクセルが？ブックがの言い間違いかな。
改善する可能性はあるけど、原因を見つけたほうがいいと思う。
順番にデータや式を消していって大きく改善する場所を見つけよう
あと、外部ファイルリンクが無いかの確認と、高さゼロのシェイプが長年のコピペで増殖して、とてつもない量のラインが隠れてる事もある。適当なシェイプを描いて選択してCtrl+AしてDeleteだ。重症な場合は、「高さゼロのシェイプを消すマクロ」でググると出てくる

**名無しさん＠そうだ選挙にいこう** · 2017/10/04(水) 21:03:34.08

>>21
外部リンクでありがちなのは、名前の定義と条件付き書式だよな
他人が使っていたファイルを引き継いで使うと割りと無駄かつ外部リンクもとのファイルがない
名前や条件付き書式が大量にあることがある

明らかに生きてない外部リンクのある名前や条件付き書式削除するだけで
動作が大分軽くなるケースが多々あるので動作が重いときは、まずチェックだ

**名無しさん＠そうだ選挙にいこう** · 2017/10/04(水) 22:03:38.30

エクセルファイルを整理した。何年も同じファイルを使っているとワークシートも増えてきて、同じワークシートでも行が増えてくるとどこに何があるかわかりにくくなる。
そこで、とりあえずファイルのコピーを作り、あまり使わないワークシートは削除した。そのあいたところに同じワークシート内の別の項目をコピーした。
これまでは検索で別の項目へ移動していたが、これで検索しなくてもワークシートの切り替えで別の項目へ移動できるようになり、かなり便利になった。

**名無しさん＠そうだ選挙にいこう** · 2017/10/04(水) 22:28:51.75

OneDriveやらDropBoxとかのクラウド系がオイタしてる可能性も微ﾚ存

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

てか糞みたいな他人の作ったワークシート使うの死ぬほど苦痛だわ
表の並びが整理されてないのを無理やり見やすくしようとあがいてべたべた色塗ってんじゃねえよ
まず四角くなってない表を整理してから配布してこい糞が

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 01:51:57.01

愚痴はせめて雑談スレに書け

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 12:15:50.63

VBAで一個基本的なところを教えて欲しい
マクロ1でa1～a5を配列aとして格納する
別のモジュールマクロ2をCALLで呼び出す
マクロ2で配列aを使いたい
マクロ2で別途配列aを定義して格納しなければならないもの？

それと、マクロ2で新たに作成した配列bをマクロ1で使いたい場合、どうやるのが普通？

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 13:01:46.26

>>27
今の宣言のしかたは？

宣言すら判らんのならセルに格納すれば簡単だ

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 14:32:03.25

>>28宣言という言葉の意味がよくわかってないけど、
dim a(1 to 100) as variant
って定義している
やっぱりマクロが終了したら別マクロで共有することはできない？？
一旦セルに書き込んで、別のマクロに戻った際は、そのセルから値を拾うって考え方か

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 16:08:16.48

>>29
http://officetanaka.net/excel/vba/variable/05.htm

12 · 2017/10/05(木) 18:19:21.65

>>17のアドバイスをもとに以下の感じで作ってみました。
結果は5,6秒で完了するように！
だいぶ早くなったので助かりました。
ただUBoundがいまいちよくわかってません。
ワークシートの表では1列の情報が1次元、1行の情報が2次元の配列ということ？

Dim i As Long
Dim Data As Variant
Data = Range(Cells(3, 1), Cells(Rows.Count, 8).End(xlUp)).Value

For i = 1 To UBound(Data, 1)

Data(i, 1) = Format(Data(i, 1), "000000")
Data(i, 2) = Left(Data(i, 1), 2) & "_" & Data(i, 2)
Data(i, 3) = Mid(Data(i, 1), 3, 2) & "_" & Data(i, 3)
Data(i, 4) = Right(Data(i, 1), 2) & "_" & Data(i, 4)

Data(i, 5) = Format(Data(i, 5), "0000000000")
Data(i, 6) = Left(Data(i, 5), 3) & "_" & Data(i, 6)
Data(i, 7) = Mid(Data(i, 5), 4, 4) & "_" & Data(i, 7)
Data(i, 8) = Right(Data(i, 5), 3) & "_" & Data(i, 8)
If Data(i, 8) = "000_" Then '※8列目の区分がないときは空白処理
Data(i, 8) = ""
End If

Next

Range("A3").Resize(UBound(Data, 1), UBound(Data, 2)).Value = Data

**986** · 2017/10/05(木) 18:27:19.78

>>31
uboundは配列の要素の最大値を返す関数。
,1なら一次元目（cells.valueで取り込んだ場合は行数に相当）
,2なら二次元目（列数に相当）
つまりCellsと同じ！
ウォッチウィンドウの使い方を覚えると良いよ。デバッグしながら変数の中身が見れるので色々理解できると思う

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 18:55:49.87

>>31
たった55000件で5秒はかかりすぎだなあ
配列をVariantからString型に変更して、ワークシートから読み込む部分をValueからTextに変えて
最後にワークシートに書き戻す時Screenupdating = False以下略で画面更新と再計算を切ってみ

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 19:45:32.09

>>30
ありがとう
ちょっと運用の仕方悩ましいな

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 22:07:45.56

いろいろ便利な機能があるが、なぜかセルをクリックすると指定したセルへ飛ぶ機能がない。何万行もあるわけだから、これがないとかなり不便。
ここで重要なのは絶対アドレスではなく、相対アドレスへ飛ぶようにすること。なぜかというと何度も行挿入や桁挿入を繰り返していると絶対アドレスへ飛んでも意味がない。
ジャンプ機能も絶対アドレスのようだし、しかもワンクリックではない。検索なら名前を工夫すれば的確に飛べるが、これもワンクリックではない。

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 22:13:12.94

>>35
ハイパーリンクは？
セルにはやったことないが

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 22:33:40.50

>>35
userformでいいじゃん
1分もありゃ作れるけど

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 22:33:54.79

userformじゃないか、ただのフォームでええわ

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 22:51:41.69

光ケーブルがあればどこへでもいける

指定したセル　てのに名前を付けとけば>>36 の言うハイパーリンクで飛べる
セルのみならず、オブジェクトに名前付けても飛ぶ　なんならシート越えて飛ぶ
それを応用して最左端シートにメニューを羅列し、メニューに添った内容の
各シートを行き来するようなシロモノはごまんと見てきた　概ね好評

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 23:34:03.64

ワンドライブでエクセルオンライン使ってるんですが
どうやって写真を挿入すれば良いですか？

**986** · 2017/10/05(木) 23:38:47.05

>>35
onkeyでカレントセルから移動するだけのショートカットキー登録すればいいじゃん

**名無しさん＠そうだ選挙にいこう** · 2017/10/05(木) 23:49:36.53

>>19
どうも
「＝」を取り除くために mid を使ってて
長さを省略したのがエラーの原因だったようです。
いろいろなエラーでなかなか動かなかったんで相談してみましたが
不正確な投稿でおさわがせしました。

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 02:10:35.55

>>31
マクロの最初に

Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

マクロの終わりに

Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

を入れてみ
多少だけど速くなるかも

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 06:42:47.10

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

24時間体制で５分おきにデータを降順に取得しています。
a列に５分おきの時間、b列にその時のデータが表示しています。
見ずらいので１５，３０，４５，００分ごとの時間が来たら
取得したデータのセル（b列）に色を付けたいのですが、可能ですか？

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 07:30:50.71

7:00 200 7:00 200
6:59 132 6:55 132
6:58 132 6:50 233
6:57 132 6:45 199
6:56 132 6:40 102
6:55 132 6:35 281
6:54 233
6:53 233
6:52 233
6:51 233
6:50 233
6:49 199
6:48 199

もう一つ、
a列に１分毎の時間、c列に５分毎の時間、
d列に５分毎に取得したデータが入っています。
b列にa列の時間がc列の５分以内と一致したらd列から抽出できるように
したいです。

**986** · 2017/10/06(金) 12:24:35.64

>>44
条件付き書式で出来るかな
その中の数式でminute関数で分取り出して、mod関数で5で割り切れるときに書式設定するように設定すれば良い

**986** · 2017/10/06(金) 12:30:12.14

>>45
vlookup関数、またはindex関数とmatch関数でできる。

12 · 2017/10/06(金) 12:47:41.75

>>43
そのおまじないはもう既にいれてるんすよね

あと>>33variantをstringにというのは型指定変えるだけじゃだめなんですかね？

**986** · 2017/10/06(金) 13:02:30.34

>>31
最初のレンジ指定が重いはず
いっその事全部メモリに読み込めば？

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 13:07:39.97

バージョン 1708 (ビルド 8431.2094 クイック実行) が来た。

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 17:02:23.12

>>47
返答ありがとうございました。
ＶＬＯＯＫＵＰで試していますが
時間の例えば１５分から２９分抽出方法が分からないです。
できればよろしくお願いします。

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 17:15:58.93

Windows10+Excel2016+マクロありブックで次のようなトラブルを体験しました。
同じような体験した方いらっしゃいますか？

Windows7+Excel2010で開発したブック。一人１シート(20前後＋αのシート)で普段は各人の
シートを非表示、マクロによってシートを表示する際に人によっては不要な行を非表示とする処理を
入れていた。Windows7+Excel2010(2013)までは異常なく実行できていた。

ところが、Windows10+Excel2016の環境で利用しはじめたところ、行の非表示処理でエラーとなった。
マクロではなく、手作業で非表示の操作を行おうとすると
「オブジェクトがシートからはみだします。その操作はできません。」と表示された。
オブジェクトがシートの最下行にあると行の非表示ができないらしいが、当該シートには図形は入れてない。
オブジェクトの名前を表示する簡単なマクロで調べたところ、コメントと判明。
コメントの編集をしようとしたところ、コメントの枠がシートの最下行まで移動していたことが判明。
各人のシートからすべてのコメントを削除してようやくマクロが支障なく動くようになったというもの。

Excel2010だと、コメントの書式設定画面では枠のサイズは変更できるけど、位置を指定する項目はない。
どうやったらいいんだろう？

**986** · 2017/10/06(金) 18:34:40.06

>>52
こういうマクロ使えば‥？
http://excel-ubara.com/excelvba5/EXCELVBA215.html

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 19:01:02.26

ある値xを、複数のマクロで利用するんだけど
各マクロで毎回計算させるのと、ある値xを計算するだけのマクロを作って、それをCALLするのと、どちらがおすすめ？

52 · 2017/10/06(金) 19:19:28.68

>>53
早々のアドバイスありがとうございます。常時表示のときのもののようなので、
これを実行した後にコメントを非表示にするという処理が有効かどうか、試してみたいと思います。

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 19:22:36.05

>>54
そりゃ後者
ってかグローバル変数でいいｊんじゃないか

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 19:39:43.12

>>56
グローバル変数って使ったことないんだよね
いまいちピンとこない

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 19:48:14.94

>>45

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 19:52:58.17

>>45
５分以内に合致する場合はっていうけど
合致するものが二つある場合はどっちを採用するの？
6：59だとすると、7;00と6:55が該当ぽいんだが

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 20:00:25.60

>>59
ご返信ありがとうございます。
6:59だと6:55に属します。
7:00になると7:00から7:04まで7:00の数値に属します。
わかりにくい文章ですみませんでした。

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 20:02:05.06

>>45
>>45の結果にするなら
B1==SUMPRODUCT((C$1:C$7>A1-TIME(0,5,0))*(C$1:C$7<=A1)*D$1:D$7)
で、下方向にオートフィルで可能だね

**名無しさん＠そうだ選挙にいこう** · 2017/10/06(金) 20:26:33.01

>>57
functionをわけないなら恩恵はゼロ
functionやsubが分かれると常時使いたい変数というものが出てくる
それ

**名無しさん＠そうだ選挙にいこう** · 2017/10/07(土) 06:51:51.23

>>62
functionを分けるってのはどういう意味？
例えば、
1)直角三角形の直交二辺の値をシートから読み取るマクロ
2)斜辺の長さを求めるマクロ
3)三角形の面積を求めるマクロ
4)三角形の周長を求めるマクロ
ってあるときに、
2)と3)と4)は1)の値を必要とするから、1)の値をグローバル変数にすると、一度格納すれば、手間が減って良いですね、というような使い方だと理解している。

ただ、
4)には2)の結果も利用することができて、だから2)の値もグローバル変数にするのか
そんな感じでポンポングローバル変数を作る考え方で合ってるのか？って気はしている
1)～4)を１つのマクロで書いちゃったって良いもんね。
ただ長くなるけど。

要するに各プログラムは短く、プログラムの数は細切れにして増やすような運用の仕方が普通の考え方で良いのか？ということがわからない
確かに、クソ長いプログラムを読むのは嫌になるし、細切れにされたプログラムならまだ読む気になるのかもしれない。
あとエラーチェックがしやすいかもしれない。
わからないけど。

**名無しさん＠そうだ選挙にいこう** · 2017/10/07(土) 08:20:25.37

知ったかがモジュールと間違ってるっぽい

**名無しさん＠そうだ選挙にいこう** · 2017/10/07(土) 08:44:48.14

>>63
横からだけど下記を新しい標準モジュールにコピペし実行してみると判ると思う

Dim 半径 As Single

Private Sub 円周()
半径 = 5
MsgBox "円周は" & 半径 * 2 * 3.14
End Sub

Private Sub 円の面積()
MsgBox "面積は" & 半径 * 半径 * 3.14
End Sub

Sub 結果()
円周
円の面積
End Sub

**名無しさん＠そうだ選挙にいこう** · 2017/10/07(土) 22:29:43.42

最近急に出た現象なんだけど
win10でExcel2016で、パスワード付きファイルを開くとウィンドウズが二つ開くようになった。

例えば前までは、ブックが一つ開いてパスワードを入力する小窓があって、パスを入力するとブックは一つしか開いてなかった。

今は、パスワード付きのファイルと、なぜかまっさらなファイルがもう一つ開く・・・
本ファイルを閉じても、そのまっさらなファイルは閉じないからメンドクサイ。
同じ症状の人いますか？解決方法あるのかな

**名無し** · 2017/10/08(日) 01:20:07.68

>>66
沢山たまに見かけるような
再インストールしたらなおるかも？

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 01:58:54.66

パブリック変数なんか滅多に使わないだろ
どうしてもパブリック変数が必要なシステム組むようならそれなりに腕があるわな
初心者レベルならプライベート変数だけにしとけ

>>54
Public Const WEEK_DAYCOUNT as Long=7

Public Sub PrintWeekCount

End Sub

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 02:13:59.53

>>54
ある値xを何度も計算する必要があるなら、計算専用のFunctionプロシージャを用意するのが正解
何万回もループして計算するようなのでない限り、今のPCの性能なら毎回計算させても何の問題もないし、
計算パターン変更する時は専用プロシージャを書き換えるだけで済む

それから、よく使うのはパブリック定数、ただし使い方によっては Private Const... とモジュールレベル定数
パブリック変数なんかまず滅多なことじゃ使わん、てか初心者ほど絶対使うな
モジュールレベル変数に手を出すのはユーザーフォームに戻り値持たせたり、クラス自作したり、そこまで行ってから

Public Const WEEK_DAYCOUNT as Long=7

Public Sub PrintWeekAndDay

(日数dと週wを入力)

Debug.Print WeekCount(d)
Debug.Print DayCount(w)

End Sub

Private Function WeekCount(d as long) As Long
' 日数dを週に換算
WeekCount=Int(d/WEEK_DAYCOUNT)
End Function

Private Function DayCount(w as long) As Long
' 週wを日に換算
DayCount=w*WEEK_DAYCOUNT
End Function

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 02:20:39.75

スコープの話なのに変数の宣言抜けてたわすまん

Public Const WEEK_DAYCOUNT as Long=7

Public Sub PrintWeekAndDay

　　Dim d As Long, w As Long

　　(日数dと週wを入力)

　　Debug.Print WeekCount(d)
　　Debug.Print DayCount(w)

End Sub

Private Function WeekCount(d as long) As Long
' 日数dを週に換算
　　WeekCount=Int(d/WEEK_DAYCOUNT)
End Function

Private Function DayCount(w as long) As Long
' 週wを日に換算
　　DayCount=w*WEEK_DAYCOUNT
End Function

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 02:21:25.13

同じ変数値を別々の手続きで何度も使うなら引数を増やせ

同じ計算を何度もするのは最悪の実装
別の要因で同じ結果になるとは限らないケースでバグの元になる

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 07:46:03.26

>>63

＞要するに各プログラムは短く、プログラムの数は細切れにして増やすような運用の仕方が普通の考え方で良いのか？
そういうこと
使い回ししやすいように作る

63 · 2017/10/08(日) 09:45:40.90

63だけど何も取りかかれていない申し訳ない
さらっと読んだけど理解できないことが多い状況
理解できそうなところだけ消化します

70 · 2017/10/08(日) 10:10:13.89

>>71
初心者には引数って何ぞ？ってのが最初の壁だろうな
記録マクロじゃプロシージャの引数は絶対に出てこないから

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

でも引数増やし過ぎたらそれはそれでわけわからんようになるからな
classがもっと手軽に使えればいいんだけど
っておもったけどvbaでそこまでするか？

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 11:30:23.30

>>63
それぐらいならグローバル変数は使わないほうが良い

Sub foo()
'読み込む
縦 = Cells(1, 1)
横 = Cells(1, 2)
'各数値計算
Debug.Print 斜め(縦, 横)
Debug.Print 面積(縦, 横)
Debug.Print 周長(縦, 横)

End Sub
Function 斜め(縦, 横)
斜め = Sqr(縦 ^ 2 + 横 ^ 2)
End Function
Function 面積(縦, 横)
面積 = 縦 * 横 / 2
End Function
Function 周長(縦, 横)
周長 = 縦 + 横 + 斜め(縦, 横)
End Function

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 13:08:04.28

>>75
もちろん構造体やプロパティを使う方がいいけど、
引数が多すぎるのはとくに初心者はモジュール化の方針に問題があることのが多い
正解がないに等しいから経験を積むしかないし

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 13:21:11.27

classにすればいいんだけど、そうすると更に難易度上がるからな
引数いっぱいでいいと思う
どうせ対して保守やらなんやらしないだろ。
vbaのいいとこだけつまみぐいしてればいい

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 13:52:28.40

そう言うことを言ってるといっそC#にしてくれ...
って思う心を押さえきれない

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 13:59:44.21

それは昔やったんだ・・・
なんだっけな、なんか色々ウンコで諦めた記憶がある
.NETからエクセルは触らん方が良い

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 14:47:43.17

>>67
よくある事例なんですね。
やっぱり再インストールしかないんですかね・・・
1年前にオプションで設定とか色々いじってて、どこを設定しとか忘れてるので出来れば再インストールしたくないんですよねえ・・・

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

>>80
Marshal.ReleaseComObjectだろ
せめてusingで解放できるようにしろよとは思う

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 15:33:04.23

>>81
逆に考える
なるべく設定は触らずに使うようにするんだよ
俺もやってきたしお前のおかんも経験済みだ

PC設定はgoogleIMEとchrome、拡張子の表示ぐらい
エクセルに至っては数式バー少し伸ばすぐらい

**名無し** · 2017/10/08(日) 17:34:14.90

>>81
オプションスクショ取っておくだけで、設定の復元なんて数分でできるじゃん
リボンはエクスポートできるし。

**名無し** · 2017/10/08(日) 17:36:48.15

>>80
どっかのブログでなぜかとても不安定なcomを使う方法ばかり流通してるせいで嫌う人多いけど、ちゃんと安定したエクセルの読み方あるって書いてあったよ
実際使ってるけど全く問題ない

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 17:55:09.83

>>85
できるのはわかってる
とてつもなく面倒なだけ

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 19:54:11.58

再インストールしましたが、>>66の症状は治りませんでした・・・
適当に他のExcelファイルを開いてて、パスワード付きファイルを開くと二重に開かないんですけど
単独で開こうとすると二重で開く・・・
なんでだあ

**名無しさん＠そうだ選挙にいこう** · 2017/10/08(日) 20:36:02.01

OSごと再インストールしては

**名無しさん＠そうだ選挙にいこう** · 2017/10/09(月) 00:14:53.82

マウスが壊れてダブルクリックになってるとか
シングルクリックで開く設定になってた事はあったw

**名無し** · 2017/10/09(月) 01:18:55.02

>>87
関連付け関係だと思うんだけどねー
Office系は設定が複雑化しててマニュアル修正しずらいから嫌い。
コンパネの既定のプログラムで治る可能性もあるけど多分無理。悪化する可能性もある。
一番安全なのはOSごと‥

**名無しさん＠そうだ選挙にいこう** · 2017/10/09(月) 06:58:05.36

>>90
コテになってるぞ
解除しておくれ

**名無しさん＠そうだ選挙にいこう** · 2017/10/09(月) 10:04:33.05

>>87
別ユーザーを作って試してみ
システムか個別設定か切り分けられる

**名無しさん＠そうだ選挙にいこう** · 2017/10/11(水) 10:05:35.88

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

現在、条件付き書式で、期日が2週間以内になったら
セルの色が変わるようにしています。

=TODAY()+14>A1

しかし、上記の書式では期日が過ぎてもセルの色が変わったままです。
期日が過ぎたらセルの色が変わらないようにするには、どのように
書けばいいのでしょうか。宜しくお願いします。

**名無しさん＠そうだ選挙にいこう** · 2017/10/11(水) 10:45:59.53

>>93
こんな感じかな
=AND(TODAY()<=A1,A1<TODAY()+14)

**名無しさん＠そうだ選挙にいこう** · 2017/10/11(水) 13:13:19.17

【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"という名前を定義]
こんなかんじですが、上と下、どちらが軽快ですか？

**名無しさん＠そうだ選挙にいこう** · 2017/10/11(水) 16:35:25.05

>>94
ありがとうございました！

**名無しさん＠そうだ選挙にいこう** · 2017/10/11(水) 20:23:56.11

>>95
やったらええがな
カンだけど多分変わらないぞ

**名無しさん＠そうだ選挙にいこう** · 2017/10/11(水) 20:55:48.65

表計算使い始めて分からないことがあるので質問させてください。

A1 B1 C1のセルがあって、
B1の背景に色がついたら、B1の数値をA1に表示。
C1の背景に色がついたら、C1の数値をA1に表示。
どちらも色がついた場合は特に何も無し。

とするには、どのような式を入力すればいいでしょうか？
お願いします。

**名無しさん＠そうだ選挙にいこう** · 2017/10/11(水) 21:05:27.33

>>98
色がついたら、ということは基本的にできない
b2に1を入力することで分岐させる
A1＝if(B2=1,b1,"")
B1の条件付き書式はB2が1なら～で設定する

**sage** · 2017/10/11(水) 22:54:37.09

すいません、質問させてくだい。

エクセルのファイルを画面上に２つ以上見えているとします。

そこで、ショートカットキーを使ってファイル間をアクティブセルを移動させることは出来ませんか？

Ctrl +TABではセルは移動しますが、ほかのエクセルファイルは最小化されてしまいます。画面上のエクセルファイルは見えたままにしておきたいです。

わかる方お願いいたします。

**名無しさん＠そうだ選挙にいこう** · 2017/10/11(水) 22:59:36.86

>>98
ＶＢＡを使えば可能ではある
ただ、>>99みたいな運用にした方が少なくとも自力でＶＢＡを組めないうちは、良いかとは思う

**名無しさん＠そうだ選挙にいこう** · 2017/10/11(水) 23:27:04.14

セルのBackColorがRGB白以外なら　〇を△　□を×　とかなんとかで
いけそうな気もする　気がするだけだけど

**名無しさん＠そうだ選挙にいこう** · 2017/10/12(木) 00:15:00.32

VBAの可否も含めてテンプレ使おうよ

**名無しさん＠そうだ選挙にいこう** · 2017/10/12(木) 00:36:03.88

VBAを使って、計算結果を記入
→そこを読み取ってグラフが作成され？
→それをコピぺして別シートへ貼り付け

このときグラフを一緒にコピペしてかつ、等間隔に縦横とならべたいんですが、そんなこと可能ですか？

**名無しさん＠そうだ選挙にいこう** · 2017/10/12(木) 01:09:57.37

テンプレ無しに答える人がいれば
ぐだぐだとテンプレ無しの質問者が増えるわな
まあ同一人物かも知れんが

**名無しさん＠そうだ選挙にいこう** · 2017/10/12(木) 13:18:41.47

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

基本的なことですが、オートシェイプの標準？フォントの設定の仕方を教えてください

(1) オートシェイプで四角形を貼り付ける
(2) 右クリックしてテキストの編集を選択
(3) オートシェイプの縁を選択してフォントとサイズを設定
(4) シェイプに文字列を書き込む
(5) (4)で書いた文字の一部をコピーして同じシェイプ内にペースト
(6) 【ここが問題】なぜか別のフォント、サイズで貼り付けられる
⇒オートシェイプの標準のテーマ？というのがある模様

**名無しさん＠そうだ選挙にいこう** · 2017/10/13(金) 15:20:38.75

【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2013
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】否
いくつかの数値を中央値から飛び出してる値が一番少なく均すような計算をしたいのですが
どのような関数が使えるでしょうか

**107** · 2017/10/13(金) 15:30:01.25

中央値と平均値の差分を出しても均すようにはならないですし

各数値の最大の絶対値と中央値？平均値？の差分が最小になるように計算すればいいのでしょうか？

**名無しさん＠そうだ選挙にいこう** · 2017/10/13(金) 15:33:58.46

それとも偏差が最小になるように計算すればよいでしょうか
数学が全然わからず混乱しています

**名無しさん＠そうだ選挙にいこう** · 2017/10/13(金) 15:36:36.51

異常値を除いた平均ならTRIMMEAN関数ってのがあるよ
自分でコマ膜調整したいなら、2016ならAVERAGEIFSってのがあるけど2013は知らん

**名無しさん＠そうだ選挙にいこう** · 2017/10/13(金) 19:24:29.85

AVERAGEIFなら、2013にもあるが……
AVERAGEの配列数式にした方が上下双方の異常値を取り除くならやりやすいかもね

**名無しさん＠そうだ選挙にいこう** · 2017/10/14(土) 11:51:19.98

【1 OSの種類　　　　 .】 Windows10
【2 Excelのバージョン　】 Excel2013
【3 VBAが使えるか　　 .】いいえ
【4 VBAでの回答の可否】可
マクロに関して質問させて頂きます、初めてなので不都合があったらすみません
シート1で差が2以上ある自然数を2つ入力し、シート2にその2つの自然数の間の数を補完してコピペする事は可能ですか？

**名無しさん＠そうだ選挙にいこう** · 2017/10/14(土) 12:22:44.26

可能です

**名無しさん＠そうだ選挙にいこう** · 2017/10/14(土) 12:36:55.95

すみません、宜しければその操作やVBAを教えて下さい

**名無しさん＠そうだ選挙にいこう** · 2017/10/14(土) 13:00:48.54

シート1に入力するのは手動？
どことどこのセルに入力するの？

**112** · 2017/10/14(土) 13:08:11.23

>>115
シート1に入力する自然数は手動で入力です
その自然数と補完した間の数をシート2に入力したいです

**名無しさん＠そうだ選挙にいこう** · 2017/10/14(土) 14:31:56.65

＞どことどこのセルに入力するの？

**115** · 2017/10/14(土) 14:36:44.51

例をあげると分かりやすい。
A1に5、A2に10 を入れると、
別シートのA1に5、A2に6、、、10で終わるってこと？

**112** · 2017/10/14(土) 15:33:39.19

>>117
>>118
何度もすみません、例を挙げます
シート1のA1に3、B1に6と入力すると、シート2のA1を開始点としてA1に3、A2に4、A3に5、A4に6と入力されるようにしたいです

**名無しさん＠そうだ選挙にいこう** · 2017/10/14(土) 15:43:20.54

>>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

**112** · 2017/10/14(土) 15:58:51.96

>>120
回答ありがとうございます
調べながら入れてみます

**112** · 2017/10/14(土) 16:07:57.27

もう一つお願いします
転記先シートの開始点のみ指定し、終了を指定せずに>>119の動作を行いたいです

**名無しさん＠そうだ選挙にいこう** · 2017/10/14(土) 16:13:46.92

具体的に、どのセルにどういう数値が入るの

**名無しさん＠そうだ選挙にいこう** · 2017/10/14(土) 16:21:53.82

>>122
これ転記先の終了点いらないぞ

**名無しさん＠そうだ選挙にいこう** · 2017/10/14(土) 21:39:16.30

>>106 ってどなたかわかる方いらっしゃいませんか？

**112** · 2017/10/14(土) 21:53:26.60

>>124
そのようですね、すみません…
無事動きました、ありがとうございました

**名無しさん＠そうだ選挙にいこう** · 2017/10/14(土) 21:55:15.24

>>125
全然基本的なことじゃないな、これ
貼り付けオプションがッ出るので「元の書式を保持」を選択

**名無しさん＠そうだ選挙にいこう** · 2017/10/14(土) 22:03:06.07

iOSだとVBA使えないのか
これまでpcでやってた計算を出先のipadでも！というのは幻想に終わるのか…

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

エンター押すとマクロ起動する
っていうことってできるの？
マクロ起動させるにはマウスでクリックしかないの？

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

>>127
ありがとうございます
それだと貼り付け1回分しか変わりません
毎回やらなくても良いようにしたいのです

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

コマンドボタンでも一つ置いといて、そのSheetを開いた時に
そのコマンドボタンにフォーカスを移すように仕組んどけば
Enter一発でマクロ起動は可能
でなければ、セル入力や変換確定のたんびにマクロが走ってしまう

**名無しさん＠そうだ選挙にいこう** · 2017/10/15(日) 08:32:38.59

>>128
ｉＯＳがプログラミングで機能を増やすってことをコンセプトからはずしているんだから仕方がない

アプリはＯＳが予定する気がない機能を使うには多大な労力が必要だから切り捨てるのもやむを得ない

**名無し** · 2017/10/15(日) 09:32:27.69

>>129
Enterじゃなくてもいいならonkeyで割り当てるとか、Enter以外にも反応してしまうが、selection changeイベント使うとか方法はあるかな

>>131
成る程、その手があったか。面白い。

**112** · 2017/10/15(日) 11:23:23.21

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

また少し教えて下さい、前回の延長の質問です
シート1で入力した単語と同じ行のセル2つに数字をそれぞれ入力し、シート2の列Aにシート1のセル2つの数字間を補完し、列Bに補完した数字のぶんだけ文字列をコピペするマクロを作りたいです

分かり辛いと思うので例を貼ります
↓のようにしたいです
https://i.imgur.com/vvGyzLS.jpg

**名無しさん＠そうだ選挙にいこう** · 2017/10/15(日) 11:39:40.90

>>134
小出しにされるとめんどくさいから、やりたいことの最終型書いてくれない？
コード読んでも全然分かってないんでしょ？

**112** · 2017/10/15(日) 11:42:34.98

>>135
これが最終型になります

**名無しさん＠そうだ選挙にいこう** · 2017/10/15(日) 15:07:08.40

>>131
なるほど
ありがとう

**名無しさん＠そうだ選挙にいこう** · 2017/10/15(日) 15:08:27.53

>>132
iPadで仕事がどこでもできるわけじゃあないんだね
VBAを使うんならノートpcがいいんだな
残念だ

**名無しさん＠そうだ選挙にいこう** · 2017/10/15(日) 16:32:00.64

>>136
例を見てもよく分からないですね。
罫線もマクロで引くの？
データのクリアはどうするの？

**139** · 2017/10/15(日) 22:44:41.58

あと1、5、6、10と入ってるけど、
常に、C3=D2+1なの？

**112** · 2017/10/15(日) 23:53:11.79

>>139
罫線はあらかじめ用意してあります、データのクリアはしません
分かりにくい例で申し訳ないです…
画像の状態ならB2に「ああああ」、C2,D2で1,5と入力するとF2～F6に1～5、G2～G6に「ああああ」と入力されるものを作りたいです
>>140
そうです

**139** · 2017/10/16(月) 10:23:57.92

あと文字列、数1、数2がそれぞれ2つ入ってるけど、もっとたくさん入る場合もあるんですよね？

**112** · 2017/10/16(月) 14:51:46.10

>>142
はい

**139** · 2017/10/16(月) 15:12:16.26

>>143
ttps://i.imgur.com/1MWrja9.jpg
ただし、一番最初の数値が1以外で始まるとダメ。

**名無しさん＠そうだ選挙にいこう** · 2017/10/16(月) 15:15:36.12

Excel2016でファイルを開くと勝手にフォントが変わってしまいます（取り消し線や下線の設定なども消える）
その後、修正して保存しても、開くとまた元に戻ってしまいます

今のところ、対策としては一つしかなく、別のExcelファイル（内容が空のファイルでも良い）を開いた状態で該当のファイルを開く
あるいは、同じExcelファイルの別のシートを最初に開くように保存して、開いたあとに該当のシートを見ると保存した時の状態で開けます
要するに、いきなりそのファイルのそのシートを開くとバグるようです

なんらかの設定によるものなのかと思っていろいろいじりましたが、今のところは上記の方法でしか対策できません
解決策をご存知の方はおられますか？

**112** · 2017/10/16(月) 15:39:38.20

>>144
ありがとうございます
一番最初の数字というのは>>134の場合だとC2と言う事ですよね

**名無しさん＠そうだ選挙にいこう** · 2017/10/16(月) 15:55:11.85

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

図のような二曲線間の垂直の距離xを求めたいのですが何か方法はありませんか？
実際に用いるデータは無数に点があるので
系列間の点と点の距離を求める形になると思います
https://i.imgur.com/psdeP7P.jpg

**名無しさん＠そうだ選挙にいこう** · 2017/10/16(月) 19:17:27.72

>>147
（オレンジの面積ー青の面積）/長さ

四角形と三角形を足していけばいずれ答え貼っでる
例えばオレンジの2-4は
12*2＋2*2/2になる

**名無しさん＠そうだ選挙にいこう** · 2017/10/16(月) 22:23:19.38

IF(($R$8>=Y7)*AND($T$8<=AA7),$T$8-$R$8,0)+…

貰ったエクセルの関数なんですが*の意味って何ですか？

**名無しさん＠そうだ選挙にいこう** · 2017/10/16(月) 22:26:01.44

掛け算のことだよ

**名無しさん＠そうだ選挙にいこう** · 2017/10/16(月) 22:29:00.61

論理演算の論理積
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各場所間違えてるっぽい）

**名無しさん＠そうだ選挙にいこう** · 2017/10/16(月) 22:44:48.27

>>151
早い回答ありがとうございます

論理積かなと思いつつもANDがあってでも場所が変でーだけども正しく動いてて？？？状態でした

**名無しさん＠そうだ選挙にいこう** · 2017/10/16(月) 22:47:35.04

and(A,B)でAかつB
なのが正しい
>>149は試してみたらわかると思うけど、正しく動いてない

**名無しさん＠そうだ選挙にいこう** · 2017/10/16(月) 23:22:37.16

結果が正しいかどうかはなんとも言えないけど、Excelの関数や論理式のことがよくわかってなくて試行錯誤した結果なんだろうなとは想像がつく

**144** · 2017/10/17(火) 00:30:26.33

>>146
そうですね、C2ですね。
そこに1以外の数値がくるなら、コードの下から3行目、4行目のj+1のところを少し変える必要がある。

**名無しさん＠そうだ選挙にいこう** · 2017/10/17(火) 07:00:15.14

>>152
他の言語とか知ってたら一瞬ん？って思うけど And は関数だから

**名無しさん＠そうだ選挙にいこう** · 2017/10/17(火) 07:03:56.12

>>154
確かに
上達への片鱗が見えるね

**名無しさん＠そうだ選挙にいこう** · 2017/10/17(火) 07:04:50.78

エクセルの数式内で、関数に見える言語構造ってある？
ifもandも全部関数なのかな

**名無しさん＠そうだ選挙にいこう** · 2017/10/17(火) 07:07:25.63

>ifもandも全部関数なのかな
ヘルプくらい見よう

**名無しさん＠そうだ選挙にいこう** · 2017/10/17(火) 07:19:19.35

いや他にもあるかもしれないし

**名無しさん＠そうだ選挙にいこう** · 2017/10/17(火) 07:54:55.88

ちゃんと考えたことがなかったけど、ワークシート+数式は言語かなあ
セルは変数とみなせるし、複数のセルに数式を並べれば、順次処理や条件分岐っぽいこともできそうな気がする

**名無しさん＠そうだ選挙にいこう** · 2017/10/17(火) 08:14:18.25

雑談スレにいってくれ

**112** · 2017/10/17(火) 10:18:11.73

>>155
ありがとうございました

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 00:53:49.30

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

シート1のA1にデータを入力
↓
シート2に同じデータがあるかどうか検索する
↓
あった場合はシート1のA2に○
無ければ☓を出力する

シート1に入力する時にvlookupを使うと完全一致の場合でしか検索できず、長い名前の物があると入力が大変(例えば、検索したい名前が「Ase kaki man ase ase」の場合全てを入力しないと☓が出力されてしまう)

そこで、検索したい名前の一部を入力すると候補が出てくるようにしたい(例えば、上記の例で言うと、検索で「Ase kaki」と検索したら最後まで自動的に入力されたことになる。もしくは、それに類似したものが複数あるなら候補を表示する)

イメージとしては記載したとおりですが、もっと良い方法があれば教えて下さい

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 01:04:17.08

>>164
vlookupは、検索単語に＊をつけると、あいまい検索できる。
例えば
ase＊
と入れるとaseを含む文字列全部検索する。

詳しくはココ見るといいよ
http://excel-forest.net/2017/03/25/anpasado/

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 06:35:34.71

フィルタかけたらいいのでは

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 10:37:14.49

【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

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 11:04:38.25

>>165
イメージとしてはこのような感じにしたいです
https://www.2ndstreet.jp/kaitori-campaign/sp/

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 12:29:10.83

>>164
VLOOKUPより、COUNTIFの方が良くないか？
一個でも一致があれば、○にするって言うなら、IFの論理式的にも簡単だし

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 12:46:15.49

候補を出すんだと、文字ごとに絞ったリスト作ってデータの入力規則のリスト使うのが俺は好み

作業列でその項目がCOUNTIFで指定セル内にあるか調べて、ROW()で行数の掛け算をする
そして、作業列の数字を大きい順にリストにして、範囲を名前で定義して、データの入力規則使う

作業列の計算式を工夫すれば、アルファベット順に並び替えとかも可能

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 13:19:56.08

【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年の実績を出したい月までで貼り付けていけばいいのでしょうが、もし方法あるなら教えて頂ければと思います。

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 16:27:56.35

>>167
「A55分」て何？

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 17:49:47.13

>>171
実際の表での月の表示はどうなっているのかな？
それによっては、シリアル値にしてしまった方が簡単にできるし
シリアル値にしないならしないでやりようはあるし

**171** · 2017/10/18(水) 18:19:01.46

>>173
レスありがとうございます。
月の表示は「10」と入力で両方から反映できるように数字が入れてあります。
元々は「17-10」・「16-10」のような「年ー月」だったのをデータ分割して末尾の10だけにしたので戻す事もできます。

書き込んだ後、自分なりに調べてsumif の条件を≧10とかでならないのか？とも思っていますが
その場合、３月～２月で拾いたいのが、数字のみなので1～10で拾ってしまうのでは？「16-10」のように「年ー月」の表示に戻した方が拾えるのかな？とも考えています

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 20:09:35.17

>>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列や下方向にオートフィルをすれば
希望に近いものができるかな、と。

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 20:24:32.64

>>167
行は節約しなくていい、というかするな

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 20:56:09.81

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

質問です

例えばＡ1のセルの色が赤ならば
自動でＢ1のセルに1と入力するにはどうすればよいでしょうか？

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 21:06:49.01

Sub Macro1()
If Range("a1").Interior.Color = 255 Then
Cells(1,2).Value = 1
enfif
End Sub

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 21:49:21.04

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

例えばA1に4月と入力して、オートフィルでA8までドラッグする。
ここでマウスをプッシュしたままだと、11月って出ますっけ？
ここでドラッグをやめたら、11月までオートフィルで入力されますよ、と分かるように。
どこかに設定があります？

**名無しさん＠そうだ選挙にいこう** · 2017/10/18(水) 21:56:38.29

＞ここでマウスをプッシュしたままだと、11月って出ますっけ？
やってみればいいのでは？

**179** · 2017/10/18(水) 21:58:31.96

自分の環境では出ないんです。
以前は出てたような気がして。

**171** · 2017/10/19(木) 00:35:57.49

>>175
ありがとうございます。
すぐには試せないので明日夜試してみます。

**名無しさん＠そうだ選挙にいこう** · 2017/10/19(木) 08:17:09.00

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

質問です。

登録シートと出力シートがあります。

登録シートから出力シートにvlookupで飛ばします。

検索値が2000件程度あるため、一気に印刷したいです。

コードをわかる方教えてください。よろしくお願いいたします。

**名無しさん＠そうだ選挙にいこう** · 2017/10/19(木) 08:36:36.13

>>183
ピポットテーブル

**名無しさん＠そうだ選挙にいこう** · 2017/10/19(木) 10:29:51.37

>>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分がくるように
したいです。

**名無しさん＠そうだ選挙にいこう** · 2017/10/19(木) 12:27:35.98

>>185
この板は32行まで書けるんだから、ややこしいことしないでくれ
わかりにくいわ
並べる前と並べたあとで2レスにすればいいんだよ

**名無しさん＠そうだ選挙にいこう** · 2017/10/19(木) 12:28:34.15

それから、分は必ず2桁？「05分」みたいになってる？

**名無しさん＠そうだ選挙にいこう** · 2017/10/19(木) 12:53:56.40

>>184
ピボットテーブルですか！！

ありがとうござます！やってみたいと思います。

**名無しさん＠そうだ選挙にいこう** · 2017/10/19(木) 19:39:41.52

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

同じ項目で整理している表が複数シートあって、一つのシートの行を足したり削除したりして項目を変動させると、他のシートも連動して同じように行追加、削除ができるようにしたいのですが何かいいやり方ないですか？

**名無しさん＠そうだ選挙にいこう** · 2017/10/19(木) 19:57:32.38

>>178
ありがとうございます！

**名無しさん＠そうだ選挙にいこう** · 2017/10/19(木) 20:23:16.42

>>189
row挿入と削除のコマンドをハンドルする。

イベントを発行するためのクラスと、イベントを受けるオブジェクトモジュールが必要。

クラスからraiseeventで発行。
オブジェクトモジュールでwitheventで受ける。
cpu使用率を上げない為に、SetTimer関数などを使ってイベントの発生を監視。

**名無しさん＠そうだ選挙にいこう** · 2017/10/20(金) 00:24:21.91

テーブル使って列を挿入したら、テーブルの色が変わります。

規則正しい縞々が崩れます。

そうならないようにする方法ありますか？

**名無しさん＠そうだ選挙にいこう** · 2017/10/20(金) 04:07:12.68

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

中古パソコンの店で
購入時に限り、２００３搭載を￥１０００でやる
とありましたので依頼しました。使ってみると
「このエクセルは、もうだれかに使われているライセンスだから、買い直してください」
みたいなメッセージでも、暫くしたら出るのかなと思ってみていたら
全く何の不都合もなく使用できています

２００３とか、このように古いこのディスクを
まだ今まで誰も使ったことがないから、警告メッセージが出ないのである
と解釈しておけばいいのですか？
出来てからだいぶたつディスクなのに、いままで誰も使ったことがないなんて
どういうことなのか不思議なので、質問してみようと思います

**名無しさん＠そうだ選挙にいこう** · 2017/10/20(金) 04:54:26.60

>>193
2003の時代はライセンスの管理がいい加減だったから
ぶっちゃけ何回でも使用できてた
ほかのどんなアプリでも、そういうのが当たり前の時代だったというだけのこと

**名無しさん＠そうだ選挙にいこう** · 2017/10/20(金) 04:54:48.44

>>192
条件付き書式で色を塗ればいい

例えば、
=MOD(ROW(),2)=1
で好きな色の塗り潰しを指定すれば、奇数行なら塗り潰しって設定になるから、シマシマは崩れない

**名無しさん＠そうだ選挙にいこう** · 2017/10/20(金) 06:40:35.47

>>195
ありがとうござます。

条件付き書式を使ってみたいと思います。

**名無しさん＠そうだ選挙にいこう** · 2017/10/20(金) 08:30:43.54

唐突ですがセルを結合して起こる弊害ってなんですか？

**名無しさん＠そうだ選挙にいこう** · 2017/10/20(金) 08:47:09.08

ていうか１４年前のエクセル使ってていいのか

**名無しさん＠そうだ選挙にいこう** · 2017/10/20(金) 10:08:17.77

>>197
正規化されてないデータは再利用がやりにくい
シート作って印刷したり見るだけで終わりなら問題ない

**名無しさん＠そうだ選挙にいこう** · 2017/10/20(金) 10:08:54.70

>>198
半分は自己責任だが、半分は全世界に迷惑