トップページ⇒bsoft
1002コメント423KB

Excel総合相談所 122 [無断転載禁止]©5ch.io

レス数が1000を超えています。これ以上書き込みはできません。
0001名無しさん＠そうだ選挙にいこう2016/04/22(金) 10:07:48.88
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否

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

前スレ
Excel総合相談所
http://sirtuin.me/index.php?word=Excel%E7%B7%8F%E5%90%88%E7%9B%B8%E8%AB%87%E6%89%80

Excel VBA 質問スレ
http://sirtuin.me/index.php?word=Excel%20VBA%20%E8%B3%AA%E5%95%8F%E3%82%B9%E3%83%AC%20

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

LARGE関数と足し算引き算の配列関数の組み方何か無いでしょうか。

・A1からZ1まで数値
・ランキングしたいが、同率順位は左にあるほうを上位としたい

今やっているのは、作業用A2～Z2セルに
=A1-COLMUN(A1)/1000000
として有効桁数よりかなり下で微細な差を付けて
=LARGE(A2:Z2,1)
で順位を出しています。

作業用セルを使いたくないので
{=LARGE(A1:Z1-COLMUN(A1:Z1)/1000000,1)}
みたいに出来ないか試しましたがうまく行きません。

何か書き方は無いでしょうか。
0004名無しさん＠そうだ選挙にいこう2016/04/22(金) 13:43:51.50
>>3
作業列で実現出来てれば それで いいじゃないの? なぜイヤがるの?

ちなみに配列数式使わなくても
RANK.EQ と COUNTIFの組み合わせで　出来るのは出来る
0005名無しさん＠そうだ選挙にいこう2016/04/22(金) 18:14:44.22
>>4
重電系は、セキュリティ対策を理由にマクロや作業列の入ったデータの受け取り拒否してくるところが割とある
作業列じゃないふりして作業列使っても気づかずに拒否られないことも多いが
0006名無しさん＠そうだ選挙にいこう2016/04/22(金) 20:06:44.24
重電系ってガテン系だろ？

バカ丸出しだなｗ
0007名無しさん＠そうだ選挙にいこう2016/04/22(金) 20:22:39.47
作業列（同一シート上、あるいは別なシート上）を作るのを
嫌がる理由の多くはなんなの？
複雑になるからというケースは別として、それ以外での理由。
0008名無しさん＠そうだ選挙にいこう2016/04/22(金) 21:02:28.37
オナニー
無知
釣り

それ以外考えられんな

作業列使わないって事は、変数使わずVBA組むような愚行
0009名無しさん＠そうだ選挙にいこう2016/04/22(金) 21:05:07.00
>>7
チェックするのが面倒と言われたことはあるな
後は、>>5みたいなセキュリティ云々いってくるケースは
作業列を非表示にした時に言われやすい気はする
非表示で保護してある場所で何をやっているかわからないのが
問題視される感じで

表示しているとみっともないとか言ってくる人もいるから
相手に合わせるのが難しいけど
0010名無しさん＠そうだ選挙にいこう2016/04/22(金) 21:41:36.21
データのやり取りって、数式を無くすのが礼儀じゃないの？
受け取ったブックを開いたら「更新しますか？」って聞いてくるから「何だ？」と思ってセルを見たら
サーバに置いたデータをリンクしてたとか、もうねｂ（ｒｙ
0011名無しさん＠そうだ選挙にいこう2016/04/22(金) 21:49:02.89
手動計算のブックを開くと他のブックも影響される気がするんですが、気のせいでしょうか
0012名無しさん＠そうだ選挙にいこう2016/04/22(金) 23:42:03.43
積極的理由で　作業列を拒否してる人　ここにはきてないのな
今んところ 相手が～ って事か

そんな人に聞きたいんだけど
作業列を使えば実現できるけど　1セルだけの数式では無理っつうケースはどうしてるのだろうか?
割とあるパターンだと思うけど

無理です(キリっ　て拒否してるの?
例外的に許可してもらってるの?
0013名無しさん＠そうだ選挙にいこう2016/04/23(土) 00:04:37.71
>>7
昔そう思っていたことがあったな
・そもそもどう分けるかの基準がわからない
・列が多いと色々な列を見るのが面倒
・まとまって複雑怪奇な数式を作り出せる俺カッコイイ
・セルを多く使うと重くなる（と思い込んでいる。実は作業列使わないほうが重い）
まぁ下2つは置いておいて、
・そもそもどう分けるかの基準がわからない
・列が多いと色々な列を見るのが面倒
この2つは結構重要だと思う
作業列の分け方なんてどこにも明確な指標がないし、下手に作業列を作ると余計にごちゃごちゃになりかねない

まぁ今となっては
・1行目に見出しを付ける
・必ず左から右へと流す。右の作業列を左側で参照することは絶対にしない
この2つを自分ルールにしている

>>12
まぁ慣れたら作業列を使わないのは単にアホらしいだけだと気づくからね
プログラムで変数を使わないようなもん。不便なだけ
0014名無しさん＠そうだ選挙にいこう2016/04/23(土) 00:07:42.55
VBAについて質問です。

あるエクセルファイルから、csvファイルを開き、その中身を自分のファイル内のシートに
コピーするなどのプログラムを作りました。

Workbooks.Open Filename:="C:\aaa.csv"
ActiveSheet.Range("A1").Copy
ThisWorkbook.Worksheets("シート1").Range("A1").PasteSpecial Paste:=xlPasteValues

↑
これで上手く行ったのですが、
csvファイルを開いたエクセルウィンドウ自体をクローズすることができません。
どうやって名指ししてcloseをすればいいのでしょうか？
0015名無しさん＠そうだ選挙にいこう2016/04/23(土) 00:11:09.36
>>14
set wb=Workbooks.Open(Filename:="C:\aaa.csv")
処理
wb.close
0016名無しさん＠そうだ選挙にいこう2016/04/23(土) 00:15:36.48
>>15
ありがとうございました！！
0017名無しさん＠そうだ選挙にいこう2016/04/23(土) 08:37:26.72
>>12
作業列が認知されるようにExcel入門書で作業列も解説してほしいね
メリットとデメリットの説明や
セキュリティには無関係とか
他人が見て判りやすい作業列の作り方など

オレは作業列にはコメント付けてる
時間がたつと自分でも判りずらいので
0018名無しさん＠そうだ選挙にいこう2016/04/23(土) 10:05:11.84
>>3ですが、作業列を使いたくないのは業務上の属人的、属組織的事情なので説明のしようがありませんので書きませんでした。
VBAでやれない理由も同様です。

RANKとCOUNTIFの組み合わは知っていますが、やりたいことが違います
順位を振りたいのではなくX位の値を取り出したいのです
順位付のセルを1行作って別のセルでHLOOKUPを使うなら作業用セルを使うのと同じです
0019名無しさん＠そうだ選挙にいこう2016/04/23(土) 10:15:00.02
>>14
一旦OPENで開いてコピーする理由がよくわからんけど、そのCSVの開き方しちゃうと
数量値の前ゼロや小数点以下の後ゼロが落ちたり勝手に日付がシリアル値になったりするよ
それで不都合ない使い方ならいいけどそこは特に気にしないで大丈夫？
0020名無しさん＠そうだ選挙にいこう2016/04/23(土) 10:24:52.31
>>12
名前の定義で対応すること多いかな
作業列に文句言う人多いのに名前の定義はスルーされやすいんだよな
それでも無理な場合はxls形式ファイルでVBA
xlsmファイルは禁止のところ多いけど不思議とxlsは何も言われないことが多い
無論ばれた時のリスク考えるとお勧めできないが
0021名無しさん＠そうだ選挙にいこう2016/04/23(土) 10:35:36.06
名前の定義機能ウザすぎやで
探しても見つからない外部リンク探すとこいつだったり、
同じ名前があると他のファイルからシートコピーする時延々とアラート出続ける
0022名無しさん＠そうだ選挙にいこう2016/04/23(土) 11:25:17.00
>>18
じゃあ無理です
残念ですが諦めてください
0023名無しさん＠そうだ選挙にいこう2016/04/23(土) 12:31:41.62
Excel2016なんですが、
　オプション「マルチスレッド」がきいていない感じ(グラフが多数入ったファイルをオープンするとかなり時間がかかる)
　グラフの軸の最小/最大値を変更しても反映されない(別のグラフをクリックしないと反映されない 「リアルタイムプレビュー」はON)
という現象が出て困ってます
最後に使ったのは先週の土曜なんですが、その時は問題ありませんでした...
自動更新を切ってなかったので勝手にupdateされたのかと思っても更新履歴がなくてわからず、ロールバックの方法もなし？
ちなみに今のバージョンは16.0.6769.2017
0024名無しさん＠そうだ選挙にいこう2016/04/23(土) 12:33:12.42
>>18
{=LARGE(A1:Z1-COLMUN(A1:Z1)/1000000,1)}
だと微小差を作るために10000000という定数を使ってるから配列関数が働かないから
{=LARGE(A1:Z1-COLMUN(A1:Z1)/ROW(A100000:Z100000),1)}
にする
0025名無しさん＠そうだ選挙にいこう2016/04/23(土) 12:43:36.55
それ以前にCULMONだからじゃね、COLUMNだぞ
2chに書く時に手打ちでミスっただけかもしれんが一応現物の式見直せ
0026名無しさん＠そうだ選挙にいこう2016/04/23(土) 19:45:47.33
動くんならそれでイイんじゃない
最初に間違えてるのが>>3だし

しかしセル幅広げると3.9999999...みたいになるな
+round({=LARGE(A1:Z1-COLMUN(A1:Z1)/ROW(A100000:Z100000),1)},5)
みたいなことはできんもんかね
0027名無しさん＠そうだ選挙にいこう2016/04/23(土) 20:00:45.19
つか思うんだけど
>>3 だけの情報だと
=LARGE(A1:Z1,1)だけでいい気がする
同ランク=同値なんだし　右とか左とか関係なくね

2行目以降にデータがあってそれを表示したいなら
それを考慮した　配列数式にしないとまずくね?
それが >>3 では示されてないwww

で それを考慮すると　とっても複雑な事になったwww
しかも　微小差でやってるから　少数点誤差で大変な事にwww
0028名無しさん＠そうだ選挙にいこう2016/04/23(土) 20:13:30.03
あれ、ほんとだ気づかなかった
0029名無しさん＠そうだ選挙にいこう2016/04/23(土) 21:59:42.90
>>27
同値なら左を上位とするって書いてあるじゃん
仕様に疑問を抱いても意味ないだろ
0030名無しさん＠そうだ選挙にいこう2016/04/23(土) 22:24:50.66
あー、ごめん意味がわかった
ある順位の値を引っ張ってくるだけならLARGE関数だけで同値問題はそもそも発生しないから
同値を左上位で区別したいのはユニーク値を使って同じ列のデータ(例えば見出しとか)も引っ張ってくる目的もあるかもって意味か
でも値が変わってるからHLOOKUPもMATCH+INDEXも使えないのね
なかなか難しいな

業務上の事情なら作業範囲を使わせてもらうように折衝するほうが楽じゃないかな
0031名無しさん＠そうだ選挙にいこう2016/04/24(日) 01:30:10.94
この問題って　作業セルさえ使えれば　初歩的な問題になるから
サクッと解決して　次の方～　になるのにね

作業セル不可な環境の人って　つくづく不幸だと思うわ
0032名無しさん＠そうだ選挙にいこう2016/04/24(日) 02:19:33.12
偶数行のデータだけ削除するため、空白のセルに
1
2
1
2
と入れて、オートフィルしたら
1
2
1
2
2
2.2
2.4
2.6
になってしまいました。

1
2
1
2
1
2
と続ける方法か、偶数行のデータだけ削除する方法を教えてください。
データ数は、1000～1500行くらいです。
0033名無しさん＠そうだ選挙にいこう2016/04/24(日) 02:42:05.51
こうゆうやり方はどうでしょうか?

1)=MOD(ROW()-1,2)+1　で下へオートフィル

2)列選択して　コピー → 同じ所に値で貼り付け
0034名無しさん＠そうだ選挙にいこう2016/04/24(日) 07:13:29.58
>>31
セキュリティ規定を盾にされちゃうといくら不合理と言っても無駄だからな
作業セル使ったほうが単純化されてセキュリティよくなりそうなもんだけど
0035名無しさん＠そうだ選挙にいこう2016/04/24(日) 09:23:14.12
作業列がセキュリティ問題化した事例は知っている例だと
作業列を非表示にしてパスワードロックかけた話があるな

作成管理していた本人が酔っ払い運転のダンプに轢かれて
パスワードわかる人が一時いなくなって管理が不可になったという

後に復帰した本人が作業列の為にそういう仕様にしたと言ったがために
作業列が使用禁止になったと

作業列の非表示禁止にすればいいだけじゃ？　とオレは思ったがw
0036名無しさん＠そうだ選挙にいこう2016/04/24(日) 14:59:44.42
それどっちかってーと
作業列の問題じゃなくてパスワード管理の不手際の問題だよね
0037名無しさん＠そうだ選挙にいこう2016/04/24(日) 15:08:07.32
作業列を見せてるとそこを触りたがる人がいるからな
作業シートにしてもいいんだけど、めんどくさい
0038名無しさん＠そうだ選挙にいこう2016/04/24(日) 17:55:11.69
元の処理範囲が行も列も大きさ不定なものが膨大にある時だと、
複雑になりすぎなければ作業セル無しでやりたい場合もあるわ
0039名無しさん＠そうだ選挙にいこう2016/04/24(日) 18:40:14.54
>>38
確かに俺も少ない時は千行切るが多い時は一万行越えの請求データとかは
無駄になってる一万行分の作業列がファイルは重くしてるなと感じるな

多い方に合わせておけば毎月は、コピペだけでデータ完成するから楽なんだけど
0040名無しさん＠そうだ選挙にいこう2016/04/24(日) 23:04:18.02
パソコン起動したら自動でエクセル開きたいのですが、
何か方法ないですか？
0041名無しさん＠そうだ選挙にいこう2016/04/24(日) 23:08:20.41
ちなみにosはwin10です。
0042名無しさん＠そうだ選挙にいこう2016/04/24(日) 23:18:49.59
スタートアップ　windows10　で検索してくれ
0043名無しさん＠そうだ選挙にいこう2016/04/25(月) 07:18:57.26
レジストリ書き換えればすぐだが
0044名無しさん＠そうだ選挙にいこう2016/04/25(月) 08:11:15.42
昔のＯＳはスタートフォルダに自動起動したいアプリのショートカット入れて置けばできたが
今はどうなんだろうな
難しくなってないと良いが
0045名無しさん＠そうだ選挙にいこう2016/04/25(月) 09:20:38.06
http://jmatsuzaki.com/archives/15784
スタートアップにプログラムを追加する方法は従来通りに「スタートアップ」フォルダを開いて、そこに起動したいプログラムのショートカットを配置するだけです。
フォルダの位置もWindows 7以前と同様なのですが、スタートメニューに「スタートアップ」フォルダのショートカットが無いので、自分で該当フォルダを辿って開く必要があります。
▼スタートアップフォルダの場所は以下の通りです
C:\Users\[ユーザー名]\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup

基本同じでフォルダがなくなっているらしい
0046名無しさん＠そうだ選挙にいこう2016/04/25(月) 10:28:33.97
>>32
Ctrl押しながらオートフィル
0047名無しさん＠そうだ選挙にいこう2016/04/25(月) 11:35:35.00
>>3
作業列なしのやつ出来た
だいじょぶだと思うけど 小数点誤差でバグったらゴメン(一応ROUNDで補正してる)

元の数値 - 列番号で微小補正した数値　で計算して 列番号を算出してる
{=OFFSET(取出行,0,ROUND((LARGE($A$1:$Z$1,順位)-LARGE($A$1:$Z$1-COLUMN($A$1:$Z$1)/10^9,順位))*10^9,0)-1}

取出行: 取り出したい行の A列 を指定してください
順 位 : 取り出したい順位を指定してください

例
順位1位の列の 2行目のデータを表示
{=OFFSET($A$2,0,ROUND((LARGE($A$1:$Z$1,1)-LARGE($A$1:$Z$1-COLUMN($A$1:$Z$1)/10^9,1))*10^9,0)-1)}

PS.
明日から出張で暫く来れないと思うから問題あったらご自分でなんとかしてね
0048名無しさん＠そうだ選挙にいこう2016/04/25(月) 15:28:54.62
>>40
classic shellは使ってないの？
0049名無しさん＠そうだ選挙にいこう2016/04/25(月) 19:17:39.66
作業列を設けるのがセキュリティ上でダメぽってのが良くワカラン。
作業列を弄られるのが嫌ならセルをロックすればいいんでねーの？
0050名無しさん＠そうだ選挙にいこう2016/04/25(月) 21:10:47.99
>>49
出ている話を見る限りむしろそのロックが弊害なようだが
0051名無しさん＠そうだ選挙にいこう2016/04/25(月) 22:27:31.51
だいたい　作業列かどうかなんて見ただけでわかるのか
0052名無しさん＠そうだ選挙にいこう2016/04/25(月) 23:32:18.08
>>51
入力と出力の間にあるものは基本全部作業列だろう
数式の長さ制限やrand()を使う場合は必要な列になるが
0053名無しさん＠そうだ選挙にいこう2016/04/26(火) 05:37:23.47
だからいかにも作業列って感じではなく
小計とかフラグ１みたいな項目にして、いかにも表全体を見るために
必要な存在に見せかければ大概は問題なしになるw

下手に外聞を気にして隠すからロックパスワードなどで問題になるんだろ
0054名無しさん＠そうだ選挙にいこう2016/04/26(火) 22:40:35.59
>>50
ロックが弊害？
それじゃ、普段はどんなやり方でセキュリティを確保してるのかと・・・
0055名無しさん＠そうだ選挙にいこう2016/04/26(火) 23:08:25.46
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

B列には、ロットを示す数字が入っており、上のセルと同じセルの場合は空欄となります。
ロットが
1、1、1、2、2、3、4
の場合は
1、空欄、空欄、2、空欄、3、4
となります。

ロット番号の隣、C列には数量が記入されています。
10、40、20、20、40、30、20

このような場合、ロット番号別の数量合計はどうやれば求まるのでしょうか？
空欄がなければsumif関数で簡単に終わるのですが・・・どうしても空欄があるままで合計を出したいです。

どなたか、ご教授のほどよろしくお願いいたします。
0056名無しさん＠そうだ選挙にいこう2016/04/26(火) 23:12:06.97
>>55
一応聞いておくけど　作業列(作業セル) 使っていいの?
0057名無しさん＠そうだ選挙にいこう2016/04/26(火) 23:23:30.81
作業列はセッキュリテー上の問題で使えません（ｷﾘｯ
VBAも同様ですっ（ｷﾘｯ
集計は毎回、ぴぼっとです・・・

もうね、
0058名無しさん＠そうだ選挙にいこう2016/04/26(火) 23:33:53.50
>>56
空欄のままってできるのかねぇ。俺なら諦めるわ
vbaで処理しようかと思ったけど、D列を作業列にするほうが早いしな

>>57
普通のこと。
君は世間知らずか、恵まれた会社にいるんだな。どちらにしろあまりこの闇には手を出さないほうがいい
これは俺達が引き受ける。
0059名無しさん＠そうだ選挙にいこう2016/04/26(火) 23:34:11.88
>>56
作業列は無しでお願いいたします。
表に余裕がないので…あまり途中計算は残したくないのです
0060名無しさん＠そうだ選挙にいこう2016/04/27(水) 00:01:34.07
なんかネタっぽい質問だな
スルーがよさそう
0061名無しさん＠そうだ選挙にいこう2016/04/27(水) 00:12:35.80
作業列やVBAが使える会社って恵まれてるのかｗ
へぇ～

フツーのサラリーマンはルーテーン作業も毎回手動で集計して無駄に時間を使って残業もやりたい放題なのかな？
羨ましいねｗ
0062名無しさん＠そうだ選挙にいこう2016/04/27(水) 00:14:12.83
てか、作業列はセッキュリテー上の問題で使えない理由を教えてよ
0063名無しさん＠そうだ選挙にいこう2016/04/27(水) 01:08:26.61
>>59
作業列なしは多分無理
vbaにしてもこれぐらいは自分でかけないならやめたほうがいい。

>>62
君は知らなくていいと最初に言ったでしょ。
0064552016/04/27(水) 01:15:37.67
回答ありがとうございました、無理ですか…

VBAは出来るのですが、他の社員が使えないため、できる限り使用は控えたかったのです
また、処理列を増やすなどはあまり見た目が好きではなく一つの関数で済ませようと思ったので、今回の質問をしました

無理と言うことで、表の作り方から見直してみようと思います
ありがとうございました
0065名無しさん＠そうだ選挙にいこう2016/04/27(水) 01:21:48.22
>>64
見た目なんかには拘らんほうがいいよ
どんどん楽すればいい
0066名無しさん＠そうだ選挙にいこう2016/04/27(水) 01:26:55.98
>>64
VBA使っていい職場なら ユーザ定義関数作ってしまえば?

もし 今回の作業列無し出来たとしても
君が作りこんで他の社員は使ってもらうだけでしょ?
(もしかして　君が他の社員に　数式の内容説明するの?)
0067名無しさん＠そうだ選挙にいこう2016/04/27(水) 01:52:10.97
>>63
「知らなくていい」じゃなくて「（知らない、または正当な理由が見つからないから）教えられない」じゃないのか？

だいたい、作業列が安全性や防護、機密漏えいの邪魔をするとは考えられない
事例があるなら書いて見ろ

前スレにも書いたけど、“他人に渡すデータ”は数式を無くすべきだし、VBAを組み込んだまま渡すなんて言語道断だ
作業列やVBAを使えるのが恵まれた会社と書いてたけど、数式やVBAを組み込んだまま渡す会社が普通なのか？
なんか矛盾してないか？
0068名無しさん＠そうだ選挙にいこう2016/04/27(水) 02:10:43.81
>>67
このスレではこれ以降じゃまなので
【質問不可】Excel総合相談所スレの雑談・議論スレ3
http://echo.2ch.net/test/read.cgi/bsoft/1354358619/
こっちに返信を書いておく
0069名無しさん＠そうだ選挙にいこう2016/04/27(水) 02:37:32.08
>>64
＞VBAは出来るのですが、他の社員が使えない

元データを鯖とかに置いてボタンをクリックすれば動作するように作ればいいんでねーの？
他の社員とやらは、ボタンのクリックすらできないの？
0070名無しさん＠そうだ選挙にいこう2016/04/27(水) 02:43:19.82
>>69
保守性のことだろ
列を増やしたいとなった時に面倒
0071名無しさん＠そうだ選挙にいこう2016/04/27(水) 03:34:37.77
>>68
次スレからテンプレに入れるべきだな

【作業列使用の可否】 可･否
0072名無しさん＠そうだ選挙にいこう2016/04/27(水) 03:42:39.15
それ賛成
0073名無しさん＠そうだ選挙にいこう2016/04/27(水) 08:47:04.61
>>64
最初は、作業列作るほど表に余裕がない、って書いてたような？？？
根本的に表が見直せるのならそれにこしたことはないね
0074名無しさん＠そうだ選挙にいこう2016/04/27(水) 13:39:16.98
【1 OSの種類 　 　 　 　 .】 Windows100
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

フィルターで、A列にうんこがあるものを非表示 にしている状態から、

さらに 一時的に今だけ B列にちんこがあるものを表示したい というとき
どうしたら良いでしょうか
0075名無しさん＠そうだ選挙にいこう2016/04/27(水) 14:55:05.86
うんこ隠したままちんこ選ぶだけ
0076名無しさん＠そうだ選挙にいこう2016/04/27(水) 14:56:01.22
>>71
こんな感じ?

▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
【5 作業列使用の可否】 可･否
0077名無しさん＠そうだ選挙にいこう2016/04/27(水) 15:01:22.91
>>75
うんこが非表示になっている状態で既に隠れているちんこは選べないんです
0078名無しさん＠そうだ選挙にいこう2016/04/27(水) 15:07:04.85
ヽ( ・∀・)ﾉ● ｳﾝｺｰ
0079名無しさん＠そうだ選挙にいこう2016/04/27(水) 15:15:31.82
隠れてるちんこってなんだよ。冬場かよ。
0080712016/04/27(水) 15:19:37.54
>>76
いいね!
0081名無しさん＠そうだ選挙にいこう2016/04/27(水) 18:50:55.69
作業列使用不可なんて極稀なケースなのにテンプレに入れるとかバカなの?
0082名無しさん＠そうだ選挙にいこう2016/04/27(水) 19:32:29.95
>>79
A-1 うんこ B-1 ちんこ
A-2 こっこ B-2 ちんこ
A-3 うんこ B-3 ぽっこ

A列をうんこでフィルタリングしている状態だと A-2 の行だけ見れるよね
その状態で ちんこ を見ようとしても当然 B-2 のちんこしか見れない

うんこフィルタをかけた状態のまま B-1 の隠れている ちんこ を見るには
どうしたらいいか という質問です
そもそも無理だよ というなら隠れたちんこを見るのはあきらめますが
0083名無しさん＠そうだ選挙にいこう2016/04/27(水) 23:18:07.99
２つの条件が矛盾するから１回じゃ無理だね。

うんことちんこ見える奴で１回フィルターしてそれどこかにコピーして、
次にうんこ隠した奴でフィルターして１回目のに付け加えるとかしないと。
0084名無しさん＠そうだ選挙にいこう2016/04/28(木) 06:57:35.66
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

http://m.chiebukuro.yahoo.co.jp/detail/q12120795352
これと同じようなことをしたいと考えています
しかし、文字が入っているセルが、他のファイルからの参照先になっていますので
空白セルでも数式を文字としているのか、空白として認識してくれません

何か方法はありますでしょうか？
よろしくお願いします
0085名無しさん＠そうだ選挙にいこう2016/04/28(木) 07:51:52.07
>>84
そんなことないと思うけど？
具体的に今どうなってるのか書いてよ
0086名無しさん＠そうだ選挙にいこう2016/04/28(木) 08:02:20.51
>>84
書いてあるサイトの例で言うと
B列が空白に見えるがI列が 1の行があるって事?

可能性は3あると思う
(個人的には下の 1) じゃないかと思う)

1)B列は 0 だけどEXCELのオプションで0を表示しない設定になってる
　　この場合
　　I2： =IF(B2=0,0,1)
2)B列は半角又は全角のスペースが入ってる
　　この場合
　　I2： =IF(TRIM(B2)="",0,1)
3)上記2つが混在してるケース
　　I2： =IF(OR(B2=0,TRIM(B2)=""),0,1)
0087名無しさん＠そうだ選挙にいこう2016/04/28(木) 08:05:50.37
>>85
説明不足ですみません
並べ替えをしたいExcelファイルは、別の複数のExcelファイルからデータを参照させてます
なので参照先の各セルの数式は(=[別ファイルxls]シート名!セル番号)となっています
参照元が空白セルの場合に参照先も勿論空白セルになるのですが
並び替えの際に空白ではなく、数式を認識してしまっているようです

空白なら0、空白でないのなら1と表示させたいのですが、並べ替えのセルは全てに数式が入ってますので空白として認識されずにいます
0088名無しさん＠そうだ選挙にいこう2016/04/28(木) 08:08:01.59
>>86
説明不足ですみません
>>87の説明で分かりますでしょうか？
0089名無しさん＠そうだ選挙にいこう2016/04/28(木) 08:16:41.79
>>87
>>参照元が空白セルの場合に参照先も勿論空白セルになるのですが
これが間違い

参照元が空白セルの場合　0と認識表示される
(EXCELのオプションで0を表示しない設定になってると ※表示上※は 空白)
0090名無しさん＠そうだ選挙にいこう2016/04/28(木) 08:24:45.73
>>88
差支えがないならブックをどこかにアップしてみてください
差し支えるなら同じような状態が再現するサンプルのブックでも構いません
やりとりが不毛すぎます
0091名無しさん＠そうだ選挙にいこう2016/04/28(木) 08:27:39.14
>>89
0非表示にしていたから見えませんでしたが、0を認識してしまってるんですね

0を空白とする方法はありますでしょうか？
0092名無しさん＠そうだ選挙にいこう2016/04/28(木) 08:34:04.10
>>90
すみません
オフラインのパソコンなのでアップができません
ダミーを作って写メでは如何でしょうか？
http://i.imgur.com/DrHTrnZ.jpg

この様なExcelファイルが複数有り、それらを一つのExcelファイルにまとめて、出勤時間順に並べ替えをしたいと思っています
0093名無しさん＠そうだ選挙にいこう2016/04/28(木) 08:43:03.21
>>91
作業列作ったら？
0094名無しさん＠そうだ選挙にいこう2016/04/28(木) 08:49:32.27
>>93
リンク先のように作業列は作ってみたのですが、数式が入っているので空白ではなく0と認識してしまっているようです
0095名無しさん＠そうだ選挙にいこう2016/04/28(木) 09:02:04.10
>>89
0を認識しているということに気づき何とかできそうです
ありがとうございました

>>85>>86>>90>>93
何とかできました
ありがとうございました
0096名無しさん＠そうだ選挙にいこう2016/04/28(木) 09:02:40.97
Ａ列が同じ値でＢ列の値が異なる場合、Ｃ列に
0097962016/04/28(木) 09:18:30.40
Ａ列が同じ値でＢ列の値が異なる場合、Ｃ列に"×"を返す関数をお願いします

Ａ列には商品名、Ｂ列には単価が入っています。Ｃ列にはＡ列の商品名が同じで、Ｂ列の単価が
異なる場合"×"を返す関数を

例えば
　　　Ａ列／Ｂ列／Ｃ列
１／ピーマン／１００円／
２／にんじん／２００円／×
３／はくさい／４００円／
４／にんじん／１００円／×
５／しいたけ／１２０円／
６／レンコン／４５０円／
７／まつたけ／３００円／
８／ピーマン／１００円／
９／しいたけ／１３０円／×
0098名無しさん＠そうだ選挙にいこう2016/04/28(木) 09:40:50.44
>>97
Q1 なぜこれは ×では　ないの?
５／しいたけ／１２０円／

Q2.B列は　数値? それとも　１００円　と文字列で入ってるの?

Q3 Q2で文字列の時　別途作業列を作ってもいいの?
0099名無しさん＠そうだ選挙にいこう2016/04/28(木) 11:08:49.42
>>83
そうですか
難しそうなのでちんこはあきらめるよ
0100982016/04/28(木) 12:06:50.57
>>98
Ｑ１・すみません５行目も×でした。
Ｑ２・数値です
Ｑ３・大丈夫です。
0101名無しさん＠そうだ選挙にいこう2016/04/28(木) 12:22:43.79
>>98
C1 =IF(COUNTIFS($A$1:$A$9,A1)=COUNTIFS($A$1:$A$9,A1,$B$1:$B$9,B1),"","X")
又は
C1 =IF(AVERAGEIF($A$1:$A$9,A1,$B$1:$B$9)=D1,"","×")

すきな方を使って下にオートフィル
0102名無しさん＠そうだ選挙にいこう2016/04/28(木) 12:27:03.36
ゴメン
間違い　C1 =IF(AVERAGEIF($A$1:$A$9,A1,$B$1:$B$9)=D1,"","×")
正しい　C1 =IF(AVERAGEIF($A$1:$A$9,A1,$B$1:$B$9)=B1,"","×")
だった
0103名無しさん＠そうだ選挙にいこう2016/04/28(木) 12:51:58.29
昔のパソコン立ち上げたら、エクセルのイルカが出てきて、なんかイラっとした。
0104982016/04/28(木) 13:03:31.92
>>102
ありがとうございます。
0105名無しさん＠そうだ選挙にいこう2016/04/28(木) 14:36:59.69
エクセル2010で↓のコードを書いて問題なく動いてたのですが、
2013で開くと「型が違う」云々のエラーが出てしまいます。

　　　　　Dim y, m, d As String
y = Year(Date)
m = Right("0" & Month(Date), 2)
d = Right("0" & Day(Date), 2)

そこで、↓のように書き直したら、2013でも上手くいくようになりました。

y = CStr(Year(Date))
m = Right("0" & CStr(Month(Date)), 2)
d = Right("0" & CStr(Day(Date)), 2)

これ、2013の仕様なんでしょうか？　上手くいったのは偶然で、またいつの日か2013で
エラーが出てくる可能性があるんでしょうか？
0106名無しさん＠そうだ選挙にいこう2016/04/28(木) 14:53:52.02
>>105
上のそのままのコードでEXCEL2016では動く

本件と関係ないけど
Dim y, m, d As String
だと
y m はVariant型　d は String型
だけど　それはいいのか?
0107名無しさん＠そうだ選挙にいこう2016/04/28(木) 15:35:53.52
＞Dim y, m, d As Stringだと　y m はVariant型　d は String型

マジ？
0108名無しさん＠そうだ選挙にいこう2016/04/28(木) 16:38:44.74
>>107
マジ(VBAの仕様で 初心者はよくこのミスをする)
Dim y, m, d As String
y = 1
m = 1
d = 1
Debug.Print TypeName(y), TypeName(m), TypeName(d)
y = "1"
m = "1"
d = "1"
Debug.Print TypeName(y), TypeName(m), TypeName(d)

を実行してみ
Integer　Integer String
String　 String 　String
となるからwww
Variant型は、どのような型のデータでも格納できる特殊な型なのね
だから 入る値によってTypeName()の結果は変わる
0109名無しさん＠そうだ選挙にいこう2016/04/28(木) 18:27:08.57
初心者どころか、１０年VBAを書いてる俺も知らなかった。
昔そんなようなことを聞いた記憶があるくらい。

よく今まで不具合がなかったもんだww
0110名無しさん＠そうだ選挙にいこう2016/04/28(木) 18:54:34.20
>>109
ハハハ
Dim y, m, d As Long
y = "1"
m = "1"
d = "1"
Debug.Print y + m
これ 11 になるんだよな(文字列同士だから連結になる)

Debug.Print y + d
なら
2だけどwww
0111名無しさん＠そうだ選挙にいこう2016/04/28(木) 19:09:38.94
>>109
そもそもvariantに入れて不具合が起きることなんて無いからな
型があっているかわざわざ調べたりすれば止まるけど、そんなことセんだろ
0112名無しさん＠そうだ選挙にいこう2016/04/28(木) 19:47:46.94
シート2つ「11」と「Sheet2」のブックで実行
Dim y, m, d As Long
Dim a
y = "1"
m = "1"
d = "1"
a = y + m
Debug.Print Worksheets(a).Name
a = y + d
Debug.Print Worksheets(a).Name
0113名無しさん＠そうだ選挙にいこう2016/04/28(木) 19:48:32.54
>>111
文字列から数値を切り出して変数にいれる時
*1 とかして数値に変換してやればいいけど
そのままvariant変数に入れる　そうやった2つのvariant変数同士を加算したら・・アララになると
最初からvariant変数だと認識してればそんな ヘマはせんだろうけど

最初から数値型だと思いこんでたらどうだろうか?
ま最初から暗黙の型変換を期待しないで(キッチリ型変換はやる)って人は関係ない話ではあるが
0114名無しさん＠そうだ選挙にいこう2016/04/28(木) 20:05:35.65
月とか日の数字を2桁にそろえるならRight使うよりFormatのほうが俺は好きだ
m = Format(Month(Date),
0115名無しさん＠そうだ選挙にいこう2016/04/28(木) 20:06:41.90
初心者のうちは型の概念が判らないヤツが多いからな

オレはExcel97から始めマシンがショボかったので
今でもvariantって本当に必要な時しか使わないな
0116名無しさん＠そうだ選挙にいこう2016/04/28(木) 20:09:32.32
あれ？
”の半角から先が消えてる……

>>114で書いたのは

m = Format(Month(Date), ”00”)

これの”を半角にしたやつです
0117名無しさん＠そうだ選挙にいこう2016/04/28(木) 20:16:08.89
>>115
2000から使ってるけどほぼvariantしか使わんわ
セル値の型が不安定すぎてめんどい
0118名無しさん＠そうだ選挙にいこう2016/04/28(木) 20:26:12.78
>>117
セルの値なんて型決まってる場合が多くないか？

入力させるセル以外は想定内でしょ
0119名無しさん＠そうだ選挙にいこう2016/04/28(木) 20:36:37.02
Excel5から使ってるけど、変数宣言なんてWindowsME以降、使ってねーや
0120名無しさん＠そうだ選挙にいこう2016/04/28(木) 21:08:08.02
>>118
上でも上がってるけど、empty、0、""（ゼロ長文字列）が曖昧すぎる。値が入ってれば基本的にどうでもいい。
別セルから引っ張ってきた場合書式設定にも左右される。書式設定て。
もうこれは信じないことにした
0121名無しさん＠そうだ選挙にいこう2016/04/28(木) 21:24:49.47
エクセル2013のグラフでスタイル2のようなグラフの線と数値にしておきながらスタイル6のような背景にするにはどうしたらいいですか？
0122名無しさん＠そうだ選挙にいこう2016/04/28(木) 22:51:26.54
>>106から続いた変数談義に衝撃を受けました。

たくさんのモジュールのなかから、variant型になってる変数の宣言だけ検索することできないでしょうか？
0123名無しさん＠そうだ選挙にいこう2016/04/28(木) 22:59:30.23
検索ですか? 難しいような
・Option Explicit　で変数宣言強制してない時 変数宣言をしてない変数全部
・変数宣言時 AS valiant と型宣言してるか又は何も型宣言してない変数
あとなんかあったっけ?
0124名無しさん＠そうだ選挙にいこう2016/04/28(木) 23:07:19.11
>>123
何も型宣言してない変数ってのだけを検索したいです
0125名無しさん＠そうだ選挙にいこう2016/04/28(木) 23:25:26.76
難しいかな　でも
valiantでも　大抵のケースでは問題ないと思うよ
>>111 は "不具合が起きることなんて無いからな"
って言い切ったから
>>113 書いたけど
0126名無しさん＠そうだ選挙にいこう2016/04/29(金) 01:36:11.00
>>125
そうですか。。
ありがとうございます。
0127名無しさん＠そうだ選挙にいこう2016/04/29(金) 02:58:41.65
いや、valiant ではあかんやろ
variant ならさほど問題ないが
0128名無しさん＠そうだ選挙にいこう2016/04/29(金) 05:23:26.59
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel16
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
今のファイルの手順を説明します。
csvファイルを10枚読み込んで一つの空白のシートに表を作ってます。

①ＣＳＶファイルを一枚ずつ全部コピーして表を作るファイルに
貼り付けようシートを10枚作り貼り付ける（Ａ１部分の上の△を右クリック
押して全部貼り付け。）
②表をつくるファイルの中に、ＣＳＶ10枚分それぞれ同じ
部分を参照して表が完成。（表は合計5個　ＣＳＶファイル2つで表１つの参照）

質問部分　ＣＳＶファイルの読み込みとシートに貼り付ける行程を
ＶＢＡで自動でやれませんか。加えてＣＳＶファイル名を表の下に
参考で表示できたら助かります。
ＣＳＶのファイル名は「地名○○○_時間_Ａ」.csv　「地名_時間_Ｂ」.csv
・地名は漢字2文字のみ　
・○○○はアルファベット大文字一つ、と数字2つ半角です
・時間は例13時53分　
・最後に「Ａ」「Ｂ」2種類のどちらか必ずついてます。
・地名○○○Ａと地名○○○Ｂをセットにして１つの表の中に参照
　（ＡＢファイルの地名○○○は同じ内容です）
空白シートの表部分は①Ａ１～Ａ２０　Ｈ１～Ｈ２０部分　Ａ２１にＣＳＶのファイル名がでるとちょうど収まります。
②Ａ23～Ａ42　Ｈ23～Ｈ42　③Ｊ1～Ｊ２０　Ｏ１～０２０　④J23～J42　O23～Ｏ４２
⑤Ｓ1～S20　Z1～Z20
0129名無しさん＠そうだ選挙にいこう2016/04/29(金) 06:19:23.22
シート1枚ですべてのデータを管理するのと、
シート2枚に分けてデータを管理するとでは、
処理能力に差はありますか？
大した差がないなら2枚に分けたいと思っています。
0130名無しさん＠そうだ選挙にいこう2016/04/29(金) 06:32:53.21
>>128
VBAでできますよ
0131名無しさん＠そうだ選挙にいこう2016/04/29(金) 06:34:06.14
>>129
差はあります
実際に試してみてください
その差を体感できるかどうかはあなた次第です
0132名無しさん＠そうだ選挙にいこう2016/04/29(金) 08:51:40.89
>>128
vba覚えたほうが早そう
0133名無しさん＠そうだ選挙にいこう2016/04/29(金) 09:11:49.47
>>129　２枚に分けたら管理がめんどう　それがわからないならどっちでも同じ
0134名無しさん＠そうだ選挙にいこう2016/04/29(金) 09:52:24.53
>>133
管理するデータ内容による
入力シート、処理シート、出力シート
これを管理するデータのシートというなら、シート分けたほうが楽なこと多い
0135名無しさん＠そうだ選挙にいこう2016/04/29(金) 19:37:08.44
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel13
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

フィルターで 「 昨日より前 または 空欄 」 を選びたいのです
0136名無しさん＠そうだ選挙にいこう2016/04/29(金) 23:00:58.03
/:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::ヽ
　　　　/:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://ヽ:::::::::::::::|
　　　 l::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::://　ヽ::::::::::::::l
　　　 l:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::/:::「'ヽ::::::::::://　　　ヽ:::::::::::|
　　　 |::::::::::::::::::::::::::::::::::::::::::::::::::::::::::ﾉl:::ﾉ　l:::::::／　　　　　 ヽ::::::::|
　　　ﾉ:::::::::::::::::::::::::::::::::::::::::::::::::::::／　ﾞﾞ　 ﾉ:::/ ,,;;;;;;,,　　　 ,,,,ヽ:::::l
　　　）:::::::::::::::::::::::::::::::::::::::::::::::／　　　　ノ／ ＿＿,'''i:　('''＿_）:::l
　　）::::::::::::::::::::::::::::::::::::::::::::::::::/　　　　　　　　￣￣ン:.　:「￣`ヾ
　1:::::::::::::::::::::::「 ｀┤l:::::::::::::::::l　　　　　　　　　￣　　 ,　 ヽ￣　l
　 ｀l:::::::::::::::::::::ヽ　 :l li:::::::::::::/　　　　　　　　　　　/´　　　｀l　　| 　　＜ウﾞッ！！！
　　ヽ::::::::::::::::::::::＼_」 lヽ::::／　　　　　　　　　　　 !:-●,__ ノ　 / 　　
　　ノ:::::::::::::::::::::::::::ﾉ | l ｀ﾞﾞ　　　　　　　　　　　 ,,;;;;;;;;;;;;;;;;;;;;,　 /ヽ
,／　ヽ::::::::::::::::::::::（　 l l::::::::..　　　　　　　　 /.:''／´￣＿ｿ　 /　 ｀ヽ
　　　　　ヽ:::::::::::::::ヽ　| l:::::::::::...　　　　　　/::/／￣￣_ソ　 /　　　　＼
　　　　　　　　ヽ:::::::＼| l::::::::::::::::...　　　 / :::.ゝ｀￣￣／ ／　　　　　　 ヽ
　　　　　　　　　　　ヽ:::l l:::::::::::::::::::..　　　　　￣￣;;''　／　　　　　　　　　ヽ
　　　　　　　　　　　　　 l l;;;;;;:::::::::::::::.....;;;;............;;;;;;''ノ　　　　　　　　　　　　l
　　　　　　　　　　　　　　l l　''''''''''''''''''''''''''''''''''''''￣l |　　　　　　　　　　　　 |

https://www.youtube.com/watch?v=OdBtHmAC7UA
0137名無しさん＠そうだ選挙にいこう2016/04/29(金) 23:46:43.45
>>135
下のようにA1～A10までデータがある時　検索条件を作成(例:A20～A22)
[フィルタの詳細設定]
　・選択範囲内
　・リスト範囲 A1:A10
　・検索条件範囲 A20:A22

　　A列
1　日付
2　4月22日
3　4月30日
4
5　4月25日
6　4月26日
7　4月27日
8　4月28日
9　4月29日
10　5月1日

20 日付
21 ="<"&TODAY()-1
22 =
0138名無しさん＠そうだ選挙にいこう2016/04/30(土) 16:58:01.84
>>137
ありがとうございます
日付フィルターを編集して 昨日より前 or 空 でできました！
0139名無しさん＠そうだ選挙にいこう2016/04/30(土) 17:51:03.29
回数　平均点
１　　　90
０　　　0
２　　　70
５　　　45
９ 　 　39

↑このような表で

回数が3回以下の場合に

平均点欄の数字を非表示もしくは０と表示させたい場合

どのような関数をうめこめばよいのでしょうか？
0140名無しさん＠そうだ選挙にいこう2016/04/30(土) 17:53:08.96
>>139
目指す状態は↓これです

回数　平均点
１　　　0
０　　　0
２　　　0
５　　　45
９ 　 　39

回数　平均点
１　　　除外
０　　　除外
２　　　除外
５　　　45
９ 　 　39


回数　平均点
１　　　
０　　　
２　　　
５　　　45
９ 　 　39
0141名無しさん＠そうだ選挙にいこう2016/04/30(土) 18:21:11.97
>>139-140
平均点の列が　何処かからの算出で 計算式が入ってるなら
可能かもしれないけど　普通に数値が入っているなら無理

※値(数値) と 数式(関数) の両立はできません。

無理くりやろうとするなら
非表示にしたいセルの文字色と背景色と一緒にして
表示上 見えなくするという手はあるけれどwww
01421392016/04/30(土) 18:52:34.64
>>141
平均点は別表から
=AVERAGE（範囲）
で表示させているとしましたらどうでしょうか。
0143名無しさん＠そうだ選挙にいこう2016/04/30(土) 18:55:21.15
>>142
=IF(A2<=2,"除外",AVERAGE(範囲))
とかする
0144名無しさん＠そうだ選挙にいこう2016/04/30(土) 18:58:53.11
あ　3回以下だったね　訂正
=IF(A2<=3,"除外",AVERAGE(範囲))
01451392016/04/30(土) 19:00:19.24
>>143
うまくいきました！
Excel初心者ですがこれが噂のIF関数ですね、勉強しｔみます。
ありがとうございました。
01461392016/04/30(土) 19:01:07.31
>>144
ありがとうございます。
0147名無しさん＠そうだ選挙にいこう2016/04/30(土) 19:03:46.50
>>140
workをC列にした場合
=if(a2<4,if(b2=0,"",b2),b2)
とか
01481392016/04/30(土) 19:40:25.94
>>147
ありがとうございます。
むずかしくてまだ理解できませんがこれは入れ子というやつですね。勉強してみます。
0149名無しさん＠そうだ選挙にいこう2016/05/01(日) 07:25:03.68
５
４
３
２

a1=a1+1
こんな感じで計算しています。
これに

A５
A４
A３
A２

頭にＡ（文字）を付け加えたいのですが、
a1="A"+(a1+1)
だと当然＃ＮＡＭＥのエラーです。
文字を付ける方法を教えてください。
0150名無しさん＠そうだ選挙にいこう2016/05/01(日) 07:56:19.46
>>149
="a"&text(数値,"0")
とか
0151名無しさん＠そうだ選挙にいこう2016/05/01(日) 08:13:56.40
>>150
更新すると#VALUE!とでてしまします。
0152名無しさん＠そうだ選挙にいこう2016/05/01(日) 09:43:38.60
>>149
="A"&(A1+1)
あんぱさんど

あと例はコピーすると循環参照になるから
a2=a1+1
とかにしてほしい
0153名無しさん＠そうだ選挙にいこう2016/05/01(日) 09:44:55.53
>>151
それ以前に、>>149は思いっきり循環参照だろ
B1=A1+1ならともかく
0154名無しさん＠そうだ選挙にいこう2016/05/01(日) 10:10:04.42
「セルの書式」→「ユーザ定義」→「"A"0」で見た目だけAをつけられるけど、これじゃだめなの？
0155名無しさん＠そうだ選挙にいこう2016/05/01(日) 13:35:56.23
RSSで取得した時間をマッチさせる方法ないですか？
RSS側のシリアル値を調べて合わせるしかない？
0156名無しさん＠そうだ選挙にいこう2016/05/01(日) 13:38:21.66
ちょっと言ってる意味分かんないです
0157名無しさん＠そうだ選挙にいこう2016/05/01(日) 14:01:49.57
要は、ギンギラでさりげない感じにしたいってことでしょう。
0158名無しさん＠そうだ選挙にいこう2016/05/01(日) 17:17:16.64
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

標準に設定されているフォントを任意のフォントに変更する方法
https://121ware.com/qasearch/1007/app/servlet/relatedqa?QID=013822

ここで紹介されている方法の場合、タスクバーやスタートボタンから、新規でexcelを開くと
ちゃんとフォントは変更されているのですが、

エクスプローラーからフォルダを右クリック→新規作成→excelを選択して
bookを新規作成した場合、そのbookのフォントはデフォルトであるＭＳＰゴシック(11pt)のままになります。
右クリックからexcelを作った場合でもフォントのデフォルトを変える方法はないでしょうか？
0159名無しさん＠そうだ選挙にいこう2016/05/01(日) 20:04:18.41
>>158
右クリックからの新規作成の場合、Templateファイルが使われるので
初期ファイルを変えたい場合は、C:\Windows\ShellNew\とかのファイルを書き換える必要がある

■例(※以下のファイル名は、Office2007の場合)
・すべてのアカウントで使用する場合（インストール後の既定値）
　C:\Windows\ShellNew\EXCEL12.XLSX

・現在のアカウントでのみ個別のテンプレートを使用したい場合
　※ 上記ShellNewを変更したくない場合
　※ (C:\Windows\ShellNewの下からコピーしてくる)

　C:\Users\(ユーザ名)\AppData\Roaming\Microsoft\Windows\Templates\EXCEL12.XLSX

参考
http://sorceryforce.net/WordPress/?p=164
0160名無しさん＠そうだ選挙にいこう2016/05/01(日) 22:09:55.05
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel10
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

sheet２のデータをsheet１に反映させる、「Ｓheet２=B1!」のように
表を作ってます、開いたＣＳＶファイルを全部コピーしてsheet２に
読み込む方法を教えてください、ＣＳＶを開くと自動で表が埋まる
ようにしたいです。
0161名無しさん＠そうだ選挙にいこう2016/05/01(日) 22:51:50.41
>>160
ファイルを開くときにcsvファイルを読み込むようにすればいいのでは？
0162名無しさん＠そうだ選挙にいこう2016/05/01(日) 23:49:53.84
複数セルの各文字をコンマで連列してそれをメールなどにテキストとして貼り付けたいんですが、どうやれば一番簡単にできますか？
例として、下のような4つのセルがあれば「香川、愛媛、高知、徳島」を出力したいんです。

香川
愛媛
高知
徳島
0163名無しさん＠そうだ選挙にいこう2016/05/02(月) 00:11:26.04
>>161
ｃｓｖファイルを開くと中の数時は全て定位置のセルに収まってるので
それを利用しています。
ｓｈｅｅｔ１に参照させてる、「Ｓheet２=B1!」と毎回表に書いてる式
は残したいので、開いたＣＳＶファイルの名前がシート名になると参照
しないから、手詰まりで進みません、毎回ＣＳＶのファイル名を
ｓｈｅｅｔ２に変更したら読み込むかもしれませんが、それなら何か
式やマクロかＶＢＡでファイルを読み込むと自動になりませんか。
0164名無しさん＠そうだ選挙にいこう2016/05/02(月) 00:24:13.50
>>160
CSVファイルを選択＆オープンしてSheet2にコピー(VBAマクロ)
こんな感じ？

Sub OpenCSV()
　　Dim wsTgt　　　 As Worksheet
　　Dim wbCSV　　　 As Workbook
　　With Application.FileDialog(msoFileDialogFilePicker)
　　　　'パラメタ設定
　　　　.Title = "CSVファイルの選択"
　　　　.InitialFileName = ThisWorkbook.Path
　　　　.AllowMultiSelect = False
　　　　'フィルタ設定
　　　　Call .Filters.Clear
　　　　Call .Filters.Add("CSV Files", "*.csv")
　　　　'FileDialogダイアログ表示
　　　　If CBool(.Show) Then
　　　　　　'Sheet2の古いデータ削除（クリア）
　　　　　　Set wsTgt = ThisWorkbook.Sheets("Sheet2")
　　　　　　wsTgt.UsedRange.Clear
　　　　　　'csv読込＆データコピー
　　　　　　Set wbCSV = Workbooks.Open(.SelectedItems(1), Format:=2)
　　　　　　Call wbCSV.Sheets(1).UsedRange.Copy(Destination:=wsTgt.Range("A1"))
　　　　　　wbCSV.Close
　　　　End If
　　End With
End Sub
0165名無しさん＠そうだ選挙にいこう2016/05/02(月) 00:46:19.37
>>162
1)セルの数が少ないなら
　=A1&","&A2&","&A3&","&A4
とかしてコピペ

2)セルの数が多いなら
　VBA

ちなみに Excel2016の最新版で TEXTJOIN関数がサポートされてるんだけど
現状困った事に 使える環境と 使えない環境が あるんだよね(同じ Excel2016なのに)
もしこれ使えるなら一番簡単かも
0166名無しさん＠そうだ選挙にいこう2016/05/02(月) 07:58:12.88
>>162
B1=A1
B2=B1&","&A2
でB2を下にオートフィル
0167名無しさん＠そうだ選挙にいこう2016/05/02(月) 17:47:42.60
>>162
香川
愛媛
高知
徳島

を選択してコピー
適当なところに「行列を入れ替える」で貼り付け
貼り付けしたものをコピー
テキストエディタにペースト
タブをカンマに置換

手作業でやるならこれ。
01681622016/05/02(月) 18:33:05.34
>>167
ありがとう、そしてすばらしい。
あなたの方法を採用いたします。

>>165
>>166
それらの方法はもし作業量が多いと面倒ですね。残念ながら不採用とさせていただきます。
0169名無しさん＠そうだ選挙にいこう2016/05/02(月) 19:01:37.41
何か、作業量が多いと、だよｗ
自分には理解できませんと素直に言えよｗｗ
0170名無しさん＠そうだ選挙にいこう2016/05/02(月) 19:25:26.32
人にはやりやすい方法が色々あるからな・・・
>>167も右下ダブルクリックでオートフィルコピー知らなかったりしたら面倒かも
0171名無しさん＠そうだ選挙にいこう2016/05/02(月) 19:25:36.70
右下ってなんだ、フィルハンドルね
0172名無しさん＠そうだ選挙にいこう2016/05/02(月) 21:51:15.32
OS：Windows7　Excel2010　環境下での質問です。

（1)Jpegデータを「図の挿入」でSheet内に貼りつけた時に94%に勝手に縮小される件（但し、この時点では縦横比は崩れていない）
(２)Excel右下にある「画面表示の拡大・縮小バーで100％以外に変更すると、JPEGデータの縦横比が崩れる。

　（１）の後に、JPEGデータに黒四角の図形を張り付けてマスキングし、印刷するという作業をしていますが、
　マスキングの時に作業しやすいように（２）をすると縦横比が崩れるのが非常にネック。
　ググるとどうやらExcel2003の頃からの既知のバグのようですが、何か対処法はないでしょうか？
01731722016/05/02(月) 22:02:44.17
もう一つ質問です。

請求書の作成でのことです。

進行管理Sheetで顧客データと売買日付などを入力し、
印刷用のSheetで請求書を印刷する、という流れです。

今は連動しておらず、印刷用Sheetも手打ちで入力しているので
事務効率化のため進行管理Sheetに入力したら印刷用Sheetに反映するようにしたいのです。

進行管理Sheetの入力例

No　顧客ID　売買日付　　品名　価格
1　　00001　　2016/4/21　品１　300円
2　　00001　　2016/4/21　品２　500円
3　　00001　　2016/4/23　品１　300円
4　　00001　　2016/4/23　品３　900円
5　　00002　　2016/4/23　品２　500円

このように入力しているときに、印刷用Sheetの左上のセルに
顧客ID「00001」と売買日付「2016/4/23」と入力すれば
内訳部分にNo３とNo４の品名と価格が選ばれるようにする
にはどうすればよいでしょうか？
0174名無しさん＠そうだ選挙にいこう2016/05/02(月) 22:09:26.92
>>172
・印刷時の倍率を1/0.94にする。図形以外は0.94倍で作成。
・1/0.94の画像を挿入する
・vbaで何とかする
・パワーポイントかワードでファイルを作ってそこにエクセルの票などを埋め込む

エクセル図形やグラフをちまちま合わせるのは下手なデータよりもよっぽどキツイと思う
バージョン変わったらすぐに崩れるしなー
0175名無しさん＠そうだ選挙にいこう2016/05/02(月) 22:22:06.49
>>173
http://www.dotup.org/uploda/www.dotup.org845706.xlsx.html
めんどくさいからシートわけてないけど
作業列2つ作ってそこからindexmatchで引っ張る
0176名無しさん＠そうだ選挙にいこう2016/05/02(月) 22:47:01.63
>>174
Thx！
いい対処法はないようですが、この中では
　・印刷時の倍率を1/0.94にする。図形以外は0.94倍で作成
しかないですね（スキル的にも）

>>175
これです！！
望んでいた動きになっています。

TMPのところまではなんとか理解できました。
Matchのところがまだ理解できていませんが
こちらについてはググって理解し、自分のExcelに移植したいと思います。
ありがとうございました！！
0177名無しさん＠そうだ選挙にいこう2016/05/03(火) 04:20:40.15
>>172
おそらく写真だと思うけど、
DPI（PPI）の取り扱いのせいだと思います。
エクセル上でのサイズはピクセルからcm（インチ）に変換後のサイズになるからだと思います。

バグの方だとワークシートの拡大率が100%でない場合に不正なサイズになることがあるようです（うろ覚え）。

どちらにしても「図の書式設定」で「リセット」をすると図の拡大率が100%になるはずです。
2010でその機能があるかどうかは覚えていませんが。
0178名無しさん＠そうだ選挙にいこう2016/05/03(火) 04:32:31.99
>>173
どのくらいの顧客数、売り上げ数あるかによるとは思うけど、
そういうのはパッケージソフトでやった方がいいともうよ。
セキュリティ面や事業拡大する時に他システムとの連携を考えると
エクセル管理はかなり厳しいと思う。
0179名無しさん＠そうだ選挙にいこう2016/05/03(火) 06:53:48.58
でた、セキュリティ
0180名無しさん＠そうだ選挙にいこう2016/05/03(火) 07:34:11.30
作業列使った回答に感謝してるのが気に障った？
0181名無しさん＠そうだ選挙にいこう2016/05/03(火) 08:19:15.73
>>180
>>178 に対するレスだったんだけど、勘違いさせちゃったみたいだね
ごめんな
0182名無しさん＠そうだ選挙にいこう2016/05/03(火) 10:42:04.60
質問者の状態 ： 問題Aを抱えている→対策案Bを思いついたがうまくいかない→質問

で

１．対策案Bを成立させる回答Cを提示
２．対策案Bでは解決すべき問題Aが根本的に解決しないので対策案Bを無視して回答Dを提示

の回答を得たときに、
「１に固執して２を罵倒する人」と「１に感謝しつつ２も検討する人」では
今後の人生でどれだけ差が開いてゆくか明らかだろうね。
0183名無しさん＠そうだ選挙にいこう2016/05/03(火) 10:58:20.38
そういうのは雑談スレでドーゾー
【質問不可】Excel総合相談所スレの雑談・議論スレ3
http://echo.2ch.net/test/read.cgi/bsoft/1354358619/
0184名無しさん＠そうだ選挙にいこう2016/05/03(火) 15:08:22.26
>>164　様
やってみます、ありがとうございました。
0185名無しさん＠そうだ選挙にいこう2016/05/03(火) 20:50:59.22
空欄のセルは””だけど、　空欄でない場合はなんですか？　<>ですか？
0186名無しさん＠そうだ選挙にいこう2016/05/03(火) 21:17:50.31
<>""
0187名無しさん＠そうだ選挙にいこう2016/05/03(火) 21:57:19.91
if(a1="",1,2)
if(a1<>"",1,2)
0188名無しさん＠そうだ選挙にいこう2016/05/04(水) 00:00:22.82
A1<>""だと値が""のセルと空白のセルの区別がつかないから
NOT(ISBLANK(A1))がいい
0189名無しさん＠そうだ選挙にいこう2016/05/06(金) 13:27:16.57
和暦の日付から、会社の会計年度を西暦で表す関数をお願いします。
会社の会計年度は２月２１日から翌年の２月２０日までです。
セル（Ａ２）には「H 28/01/23」の様な日付が入っています。
「H」の次には半角のブランクが一つ入っています。
この値を次の様に変換したいです

例えば
「H 25/01/23」→2012年度
「H 26/02/20」→2013年度
「H 27/02/21」→2015年度
「H 28/10/15」→2016年度
「H 29/02/21」→2017年度

と言う感じです。よろしくお願いします。
01901892016/05/06(金) 13:31:15.66
それともう一つ「月」もお願いします
20日～翌月21日までをひと月とします
例
「H 25/01/23」→2月
「H 26/02/20」→2月
「H 27/02/21」→3月
「H 28/10/15」→10月
「H 29/02/21」→3月
0191名無しさん＠そうだ選挙にいこう2016/05/06(金) 13:36:21.96
文字列で入ってるのか
シリアル値が表示形式でそうなっているのか

シリアル値なら聞きに来ないか
01921902016/05/06(金) 13:41:46.40
>>191
文字列で入っています。恐らくシリアル値にならないように、
Hの後に半角のブランクが入っているんだと思います。
0193名無しさん＠そうだ選挙にいこう2016/05/06(金) 13:52:56.07
ふむす

安直に考えるなら
3～4文字目が和暦の年だから
MID関数で取り出して・・・えーと・・・1988？を足すとか

月のほうも6～7文字だから
日付が末尾2ケタとしたらRIGHT関数で2ケタ取り出して
IFに入れて20より大きかったらMIDで取り出した月を1足すとか

こんな感じでどよ
0194名無しさん＠そうだ選挙にいこう2016/05/06(金) 14:07:40.88
>>189
nen
b2=mid(a2,3,2)*1+1987
tuki
c2=MONTH(DATE(1,MID(A2,6,2)*1+(RIGHT(A2,2)*1>21),MID(A2,9,2)*1))
0195名無しさん＠そうだ選挙にいこう2016/05/06(金) 14:28:29.06
こんなので　どうですか?

>>189
=YEAR(DATEVALUE((SUBSTITUTE(A1,"H ","H")))-51)&"年度"
・シリアル値に直して 51日(1/1～2/21)を引いた年

>>190
=MONTH(EDATE(DATEVALUE(SUBSTITUTE(A1,"H ","H"))-20,1))&"月"
・シリアル値に直して 20日を引いて その1月後の月
01961952016/05/06(金) 14:31:22.61
説明文間違えた
誤　・シリアル値に直して 51日(1/1～2/21)を引いた年
正　・シリアル値に直して 51日(1/1～2/20)を引いた年
01971902016/05/06(金) 15:21:08.40
>>195
できました。ありがとうございます。
0198名無しさん＠そうだ選挙にいこう2016/05/06(金) 15:34:22.54
そもそも20～翌月21って20と21が重複するじゃん
21～翌月20の間違いじゃないんか？
0199名無しさん＠そうだ選挙にいこう2016/05/07(土) 01:03:16.70
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2013

　シートの表示を縮小していると、25%以下くらいのところで、シート全体にかかるように
シート名が縦書きに表示されますが、これをなくす(非表示にする)にはどのようにすれば良いでしょうか？
0200名無しさん＠そうだ選挙にいこう2016/05/07(土) 02:25:18.81
Gmail・Hotmail・Yahoo!などから2億7200万件のメールアドレスとパスワードが流出したことが判明
http://gigazine.net/news/20160506-big-data-breache-found-major-email-service/
0201名無しさん＠そうだ選挙にいこう2016/05/08(日) 19:46:09.17
>>200
ほぼすべて流出ってことなんかな？
0202名無しさん＠そうだ選挙にいこう2016/05/08(日) 21:21:12.09
>>199
どこのこと？2010で試したけどよくわからない
>>201
ごく一部。スレチだからPCニュースにでもいって頂戴
0203名無しさん＠そうだ選挙にいこう2016/05/09(月) 00:49:21.62
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010

CSVのデータをエクセルに貼り付けて月間のデータを確認してるんですが、データの日付の表記が2016年の5月1日なら20160501と表示されます。
TODAY関数もしくは、それ以外の方法で昨日だけ、もしくは当日のみのデータを抽出する方法はありますか？
0204名無しさん＠そうだ選挙にいこう2016/05/09(月) 01:23:33.77
>>203
TODAYで作業用の列を作ればええがな
無理ならvbaだろう
0205名無しさん＠そうだ選挙にいこう2016/05/09(月) 01:43:50.82
>>203
自動抽出なら VBA だけど
手動で抽出でいいなら　基本的考え方は　>>135 と同じなのね
下のようにA1～A10までデータがある時　検索条件を作成(例:A20～A21)
・列タイトルのセルは必須
・検索条件セルは　別シートに作成も可

[フィルタの詳細設定]
　・選択範囲内
　・リスト範囲 A1:A10
　・検索条件範囲 A20:A21

　　A列
1　日付
2　20160501
3　20160502
4 20160503
5　20160509
・
・

20 日付
21 =TEXT(TODAY(),"YYYYMMDD")

PS.フィルタの詳細設定で 別シートに抽出も出来ます
0206集ストテク犯被害者必見！2016/05/09(月) 05:30:04.44
[拡散希望！]
参考になりそうなURL送っておきます
電磁波による拷問と性犯罪
http://denjiha.main.jp/higai/archives/category/%E6%9C%AA%E5%88%86%E9%A1%9E
公共問題市民調査委員会
http://masaru-kunimoto.com/
この方たちは集団訴訟の会を立ち上げてマスコミに記事にしてもらう事を目的に集団訴訟を被害者でしようという試みを持っている方達です
訴訟は50人集めてしようという事なのですが50人で訴訟をすると記事に書けるそうです
記事には原発問題を取り上げてテク犯被害を受ける様になった大沼安史さんらが取り上げて下さるそうです
大沼安史さんがテク犯に遭っているという記事
http://ameblo.jp/hilooooooooooooo/entry-11526674165.html
大沼安史の個人新聞
http://onuma.cocolog-nifty.com/blog1/4/index.html
この方たちは電話相談等も受け付けている様で電話番号を載せている方達は電話かけ放題の契約をしていますのでこちらから電話して本人にかけ直してくれと頼むとかけ直してくれます
音声送信被害等を受けている「電磁波による拷問と性犯罪」の記事の水上さんは年金暮らしなので時間には余裕があるそうで宗教等に付随する集団ストーカー等の被害内容の話も聞いて下さいます
もう一人の電磁波犯罪には遭っていない国本さんという方は電磁波犯罪をしっかり理解されている方で年金暮らしの方なので長電話も大丈夫です
大沼さんはこちらのページからメールを受け付けておられる様です
http://onuma.cocolog-nifty.com/about.html
電話をかけたい場合は人によってはメールで電話番号を訊くと教えてくれると思います
この文章を見られた方は全文コピーをしてできるだけ多くの知り合いの被害者の方等にメールを送るなり被害者ブログに書き込むなりしていただければ大変有難いです
もし大勢の方に送る事が出来なければまだこの文章に触れていない知り合いの被害者に少しでも全文コピーで送っていただけるとその方が次の何人かの方に繋いで頂ける場合があり結果として大勢の方に見て頂く事が出来るはずです
ご協力よろしくお願い致します 👀
Rock54: Caution(BBR-MD5:f70dfdc711a7c6ae6accccb939f27fbf)
0207名無しさん＠そうだ選挙にいこう2016/05/09(月) 11:13:04.60
すみません
えっと
折れ線グラフの任意の点にコメント（例：飲み会開催予定）を付加するやりかたないでしょうか？
データラベルだとコメントの付加まではできないようで困ってます。
0208名無しさん＠そうだ選挙にいこう2016/05/09(月) 11:14:27.88
>>207
無いと思う。図でもを貼っつけてみればどうだろう
あとそもそも論として、使い方がかなり間違ってる気がするの
0209名無しさん＠そうだ選挙にいこう2016/05/09(月) 14:23:25.86
=SUMIF(A1:A100,">0",A1:A100)

この式と似ているのですが、
上の行から足していって、負数に当たったらそこでストップし、以降を無視。
という式にするにはどうしたらいいでしょうか？
0210名無しさん＠そうだ選挙にいこう2016/05/09(月) 14:33:03.24
>>209
作業列でいいんじゃない
B1=IF(MIN($A$1:A1)<0,0,A1)
下にオートフィル
C1=SUM(B:B)
0211名無しさん＠そうだ選挙にいこう2016/05/09(月) 14:41:21.99
>>205
ありがとうございます！
0212名無しさん＠そうだ選挙にいこう2016/05/09(月) 14:45:34.06
>>210
助かりました
ありがとうございます
0213名無しさん＠そうだ選挙にいこう2016/05/09(月) 15:25:40.81
決済・売・１６０００
新規・買・１６０３０
決済・買・１６０００
新規・売・１５９９０

ＡからＣ列にデータが入っています。

d1に　新規　売　で一致したＣ列の数値（この場合は１５９９０）
e1に　新規　買　で一致したＣ列の数値（この場合は１６０３０）

こんな感じでＡ列、Ｂ列で一致したＣ列の数値を抽出したいです。
よろしくお願いします。

Ｅｘｃｅｌ2013です。
0214名無しさん＠そうだ選挙にいこう2016/05/09(月) 15:32:15.99
>>213
決済・売だと
=SUMPRODUCT((A:A="決済")*(B:B="売")*(C:C))
0215名無しさん＠そうだ選挙にいこう2016/05/09(月) 16:54:57.96
>>213
F1 = A1&B1
下にオートフィル

D1 =INDEX(C:C,MATCH("新規買",F:F))
E1 =INDEX(C:C,MATCH("新規売",F:F))
02162142016/05/09(月) 17:00:40.99
>>215
あぁそっちだ
0217名無しさん＠そうだ選挙にいこう2016/05/09(月) 17:01:51.74
みなさんはシートを作る時、
・思いついた構造でとりあえず作ってみる
・練りに練る
どちらでしょう
私は前者です。
0218名無しさん＠そうだ選挙にいこう2016/05/09(月) 18:14:26.41
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

ttp://i.imgur.com/uiJarCo.jpg

A1～B13のような表があって、A15に「あ～え」のどれかを入れると、
B17には「あ」の「○・◎」の数
B18には「あ」の「Ｘ」の数を出したいんですが、

まず、結合されてないなら、A2～A6のmatchで行の場所は取れるんだけど、結合してるんでダメだった。

で、それが出来ても、COUNTIF(B2:B6,"○")+COUNTIF(B2:B6,"◎")
みたいにor条件は足しこむしかないんでしょうか？
COUNTIF(B2:B6,{"○","◎"})みたいに１つの関数で、同じ領域の複数条件みたいなのは、出来ないのかな？と。
COUNTIFSで、同じ領域を何度も入れるのもスマートじゃないなとか。

何かいい方法はありますでしょうか？
0219名無しさん＠そうだ選挙にいこう2016/05/09(月) 18:30:42.14
>>218
＞足しこむ
って一般的な言葉なのかな？まぁだいたいわかるからいいけど
＞ありますでしょうか？
ありますか？でいいよ
まぁそれはどうでもいいんだけど・・・

C列に作業列を摂るのは駄目なの？それなら全部一瞬で解決するけど
作業列使ったうえで、他の方法として、char()の戻り値を使ったりchoose(if(a1="○",1,0)+if(a1="◎",2,0),"○","◎")という方法も考えられるけど、一般的じゃないし危ないからcountifの戻り値を2つ足して総数を取るのがいいと思う
0220名無しさん＠そうだ選挙にいこう2016/05/09(月) 18:45:37.29
>>217
でしょうね
0221名無しさん＠そうだ選挙にいこう2016/05/09(月) 18:51:05.98
>>218
スマートじゃなくてもいいじゃない?
君は　スマートな数式を作る為に　EXCEL使ってるの?
違うと思うよ
なんらかのデータの集計等の結果が欲しくて　EXCEL使ってると思うのだけど違う?
なら君の思う結果が 間違いなく出る方法をとればいいと思うぞ
(それが 泥臭くたって いいじゃん!　なにが悪いの?)
0222名無しさん＠そうだ選挙にいこう2016/05/09(月) 20:29:14.32
釣られてんじゃねーよ
0223名無しさん＠そうだ選挙にいこう2016/05/09(月) 22:23:25.21
>>221
本当にスマートに仕上げたいなら表の構造から見直すよな？
表に意見を言う権限がないなら泥臭い方がスマートだよね
0224名無しさん＠そうだ選挙にいこう2016/05/09(月) 22:35:29.79
【1 OSの種類.】 Windows10
【2 Excelのバージョン】 Excel2013
【3 VBAが使えるか】いいえ
【4 VBAでの回答の可否】否
とても初歩的な質問で申し訳ないのですが、 0<x<αの時y=a、α<x<βの時y=-aの値が与えられている時のグラフを書くためにはどのような操作をすれば良いでしょうか？
0225名無しさん＠そうだ選挙にいこう2016/05/10(火) 00:08:06.53
質問の意味がわからない
0226名無しさん＠そうだ選挙にいこう2016/05/10(火) 00:08:36.39
りんごとみかんで例えてくれ
0227名無しさん＠そうだ選挙にいこう2016/05/10(火) 14:08:27.72
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel10
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
excelからコピペした時に
リンゴ ゴリラtabtab（char関数の）ラクダ
とすると、いい感じなんですがダブルコーテーションが入ってしまいます
tabの部分をスペースにすると詰まってしまいます
リンゴゴリラ ＿ ＿ ラクダとコピペしたいんですが
どうしたらいいんでしょうか
アンダーバーは空白のつもりです
0228名無しさん＠そうだ選挙にいこう2016/05/10(火) 14:31:28.80
"入らないんだけどなぁ
データの区切り位置でも使ったら？
0229名無しさん＠そうだ選挙にいこう2016/05/10(火) 17:50:43.52
【1 OSの種類.】 Windows7
【2 Excelのバージョン】 Excel2007
【3 VBAが使えるか】いいえ
【4 VBAでの回答の可否】否
前年対比のデータがあり、生値として「-600000」（マイナス60万）があります。
これを、資料上、「100万円単位、切り捨て」で作るのですが、「-600000」を「-0」や「△0」で表示したいです。
「600000」がA1セルに入力されているのであれば、rounddown（A1/1000000,0)で「0」と百万単位されるのは良いのですが、「-600000」の場合も「0」となるのはまずく「-0」や「△0」と表示したいです。
関数か表示形式で何とかなりますでしょうか？
(そもそも論としての「-0」は100万円単位切り捨てではない、というのは置いといてください。。。プラマイは認識したいというのがあり)
0230名無しさん＠そうだ選挙にいこう2016/05/10(火) 18:06:39.87
>>227
意味わかんなかったが以下みたく1セル内にTab文字が入っている場合か…
="リンゴ ゴリラ"&CHAR(9)&CHAR(9)&"ラクダ"

Excelからのコピペの場合TSV形式になるから別シート上へTab文字をコピーできるように
ダブルコートが入るのは仕方ないんじゃあ・・・

tabの部分をスペースにすると詰まってしまうというのはどういうことかさっぱり？
="リンゴ ゴリラ"&CHAR(32)&CHAR(32)&"ラクダ"
0231名無しさん＠そうだ選挙にいこう2016/05/10(火) 18:14:01.86
>>229
表示形式のユーザー定義で
0★000000;-0★000000
★は Ctrl+j
折り返して全体を表示にチェック
行の高さは1行分

これで下記のように表示される
600000→0
-600000→-0
0232名無しさん＠そうだ選挙にいこう2016/05/10(火) 18:43:49.97
>>231
ありがとうございます！できました！！
後学のために、どうしてこれで出来るのか簡単に理屈を教えてもらえないでしょうか。
（ctrl+jは改行で・・・折り返して全体を表示がなぜ役立つ（これをしないと確かにダメでした)のか？??）
0233名無しさん＠そうだ選挙にいこう2016/05/10(火) 18:57:57.05
高さを広げてみればわかる
0234名無しさん＠そうだ選挙にいこう2016/05/10(火) 21:43:47.40
>>230
了解諦めます
別のアプリに貼り付けるんですが、その時に詰まってしまってorz
0235名無しさん＠そうだ選挙にいこう2016/05/10(火) 22:14:43.08
>>234
substitute()で作業列を作ればいいんじゃないか
0236名無しさん＠そうだ選挙にいこう2016/05/10(火) 23:08:56.27
【1 OSの種類.】 Windows10.1
【2 Excelのバージョン】 Excel2013
【3 VBAが使えるか】 はい
【4 VBAでの回答の可否】否

セルのある位置のルーラー？っぽいところ （A とか 1 とか書いてあるところ） の
色を変更したいんだけど、どこでいじればいいですか？

マウスカーソルが載ってるセルのところは灰色になるけど
これをもっと目立つオレンジとかにしたい
0237名無しさん＠そうだ選挙にいこう2016/05/11(水) 13:00:04.03
excelの機能としては無いと思う
windowsの方で出来るかも???? だけど
あいにく Windows10.1ってOSしらないので何とも言えないwww
0238名無しさん＠そうだ選挙にいこう2016/05/11(水) 14:34:19.49
>>226
腐ったみかんという言葉がある
これはみかん箱の中に腐ったみかんが一つでもあると
そこからみかん全体へと腐敗が侵攻していくことをなぞらえたもので
団体において一人が無能だと全体の足を引っ張るという戒めとして使われる

しかし熟したりんごはエチレンガスという気体を放出し
これによって一緒に梱包されているみかんが腐りにくくなるのだ
つまりみかん箱の中のりんごは
団体の中でキラ星のごとく瞬いて全員を引っ張っていくヒーローであると言える！



ここまで俺の作り話な
0239名無しさん＠そうだ選挙にいこう2016/05/11(水) 19:20:57.13
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010

>>203で質問した者です。
データの抽出方法で質問なんですが、CSVでデータをエクセルに貼り付け後、A列に日付のデータ、B列に商品名、C列に販売個数、D列に売上金額が表示。
日付のデータは5/11の朝9時台なら201605110900、夜22時台なら201605112200と表示(文字列として)。
商品名はコーラ、コーヒー、ビール、ワイン、焼酎の5種類。

データは毎日増えていく状態。例えば、ココから前日の朝9～22までのアルコール類(ビール、ワイン、焼酎)の総販売個数や総売上金額を一気に計算出来る関数の組み方はありますか？
報告用のテンプレートに関数式を組み込みたいんですが上手くいきません。フィルターなど使わない方法あれば教えてください。
0240名無しさん＠そうだ選挙にいこう2016/05/11(水) 19:25:52.93
>>239
追記
データは各日の各時間毎に5種類吐き出される感じです。なので5/11の朝9時台のデータはコーラ、コーヒー、ビール、ワイン、焼酎の5行分あります。
0241名無しさん＠そうだ選挙にいこう2016/05/11(水) 19:31:37.95
なんでテンプレの3.4外してんの
あとココって何
0242名無しさん＠そうだ選挙にいこう2016/05/11(水) 19:46:52.36
>>239
SUMIFS 使うといいんじゃね?
アルコール類 つうカテゴリのデータがないなら　ビール、ワイン、焼酎　単独の集計をして　加算するしかないと思うよ

あとVBAで　ユーザ定義関数つうのを作って
それをセルの関数として使うという手もあるけど　テンプレの3.4外してんの なぜ?
0243名無しさん＠そうだ選挙にいこう2016/05/11(水) 19:49:55.03
テンプレ外しスミマセン。SUMIFSは同じ列の複数条件選べなかったもので
0244名無しさん＠そうだ選挙にいこう2016/05/11(水) 19:59:09.75
>>243
SUMIFSは基本(AND条件) だから同じ列で(OR条件)は無理

一発でやろうとしないで
1)作業シートに商品毎で集計
2)報告用のテンプレートに転記(関数で)
という2段回でやった方が楽だと思うけどな
0245名無しさん＠そうだ選挙にいこう2016/05/11(水) 20:07:31.38
INDIRECT関数を使うとできそうな気がする
0246名無しさん＠そうだ選挙にいこう2016/05/11(水) 20:30:03.82
SUMPRODUCT使えば普通にできないか？
0247名無しさん＠そうだ選挙にいこう2016/05/11(水) 21:13:39.87
すみません、知恵袋とのマルチなんですが急ぎなので質問させてください
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ(他言語のプログラム経験はあり)
【4 VBAでの回答の可否】 可
【質問内容】
数式バーにセルの番号B13やB11を入力したい時
B13,B11と直接数字を打たずにB(12+1),B(12-1)など
特定のセルからの相対位置でセル番号を指定するにはどう書いたらいいですか？
02482472016/05/11(水) 21:17:13.00
B(12+1),B(12-1)というよりは、B(12+C1),B(12-C1)な感じができれば嬉しいです
0249名無しさん＠そうだ選挙にいこう2016/05/11(水) 21:24:14.37
>>247
=OFFSET(B12,1,0)
=OFFSET(B12,-1,0)
0250名無しさん＠そうだ選挙にいこう2016/05/11(水) 21:26:50.10
>>244-246
ありがとうございます。色々試させていただきます。今までは手動で前日のデータを貼り付けてsumproduct使ってました。
本当にスミマセンでした。
0251名無しさん＠そうだ選挙にいこう2016/05/11(水) 21:30:28.65
=OFFSET(D3,3,-2,1,1) セル B6 の値を表示します
こんな感じはイヤってことか？
0252名無しさん＠そうだ選挙にいこう2016/05/11(水) 21:50:55.01
>>247
それこそ
>>245に書いてあるINDIRECT関数
=INDIRECT("B"&12+C1)
0253名無しさん＠そうだ選挙にいこう2016/05/11(水) 21:52:12.75
>>249>>251
ありがとうございます！できました！
>>252
ありがとうございます！
0254名無しさん＠そうだ選挙にいこう2016/05/11(水) 22:14:56.62
indirect()とoffset()ってどちらをよく使いますか？
また、indirect()派の人は第二引数0と1どちらでしょう(0がR1C1形式、1がA1形式)
私はindirect()派で、第二引数は0を使います
0255名無しさん＠そうだ選挙にいこう2016/05/11(水) 23:57:57.44
>>254
用途によって使い分けてる
0256名無しさん＠そうだ選挙にいこう2016/05/12(木) 01:45:26.26
データ変えずに、表示形式だけで少数は%に、整数は千円単位に変更するにはどうすれば？
0257名無しさん＠そうだ選挙にいこう2016/05/12(木) 02:38:16.81
>>256
%　そうゆう表示形式あるじゃない　ダメなの?

千円単位は　四捨五入していいなら　0,
四捨五入だめなら　>>231を応用する
0258名無しさん＠そうだ選挙にいこう2016/05/12(木) 04:59:59.04
>>256
微妙に質問がわかりづらい
具体例を書いて

「1234.56」 → 「1.56%」 とかやりたいの？
0259名無しさん＠そうだ選挙にいこう2016/05/12(木) 05:39:10.95
[<1]0%;[>=1]0"千円";
0260名無しさん＠そうだ選挙にいこう2016/05/12(木) 06:09:10.40
質問です。
A1:A34　=　0か1か2

B1　=　A1が0の時3、0以外の時、その数値に6を足す
B2　=　A2が0の時5、0以外の時2からその数値を引く
B3　=　A3が0の時32、1の時309　2の時28
B4　=　A4が0の時1000、1の時4、2の時57
・
・
・
B34　=　A34が0の時44、1の時4009、2の時1470

C1　=　B1に0.04をかける
C2　=　B2を2乗
C3　=　B3に2を足す
C4　=　((B4を3/4乗の小数点切り捨て)/30)*19
・
・
・
C34　=　B34から６を引く

D1　=　C1:C34の合計


という表があったとします。
この時、D1が最大になるようにA1:A34の値を求めたいのですが。
こういった時どういった関数やマクロを組めばよいですか？
0261名無しさん＠そうだ選挙にいこう2016/05/12(木) 06:37:37.95
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

ピボットテーブルで、並び順を手動にした場合
一旦データから項目が無くなると、次にまた入ったとき並びが最後なってしまう
（並び順が記憶されない）んですが、なにか良い案はないでしょうか。

なお自動（名前順）は使いにくい並びになってしまうため、選択肢には入りませんでした。
0262名無しさん＠そうだ選挙にいこう2016/05/12(木) 08:11:18.00
>>261
VBAが可ならVBAでやればいいのでは？
0263名無しさん＠そうだ選挙にいこう2016/05/12(木) 08:33:30.40
>>262
ああいや、横着してピボットテーブルでラクにできたらな、と思いまして。
0264名無しさん＠そうだ選挙にいこう2016/05/12(木) 08:38:30.15
>>260
ソルバーかゴールシークを使う
0265名無しさん＠そうだ選挙にいこう2016/05/12(木) 08:40:56.45
>>263
じゃあVBA不可ってことね
ただ、並び順の仕様がわからないからVBAでも無理な気がする
0266名無しさん＠そうだ選挙にいこう2016/05/12(木) 09:23:32.63
>>261
なんでデータから項目が無くなるような使い方してんの？

ピボット作る手順を記録させて
出来たマクロを実行させれば？
02672612016/05/12(木) 10:50:16.38
>>266
他ソフトから自動出力されたテキストデータ（500項目、200件ほど）を
excelに貼付け→ピボット更新 という流れを日々おこなっているんですが、
そのデータというのが日によって項目があったりなかったり増えたりするためです。
0268名無しさん＠そうだ選挙にいこう2016/05/12(木) 12:28:58.20
他ソフトの出力に　項目ごとに番号をつけてもらう
0269名無しさん＠そうだ選挙にいこう2016/05/12(木) 13:14:45.11
>>267
でも項目の有無のパターンはそんなに多くないんでしょ
VBAで項目数を調べてピボットを出すように作ればいいと思う
0270名無しさん＠そうだ選挙にいこう2016/05/12(木) 13:15:10.04
>>261
2つ思い浮かんだ
1.項目が全て揃っている表を別シートに作っておき、データはテキストを貼り付けたところから取ってくる引っ張ってくる
具体的には貼り付け用シートと出力シートを容易しておき、貼り付けシートに貼る
出力シートからピボットを生成
2.貼り付けた後、vbaで項目を挿入
0271名無しさん＠そうだ選挙にいこう2016/05/12(木) 13:30:23.63
>>267
それはおかしい
前のデータを残したまま
新しいデータを追加して更新だけしてろ

前のデータと新しいデータは
例えば日付を項目にすれば日付別に分けられるでしょ？
0272名無しさん＠そうだ選挙にいこう2016/05/12(木) 13:53:18.89
ソフトの設定で変更できそうな気がする
もう一度よく見てみては
0273名無しさん＠そうだ選挙にいこう2016/05/12(木) 14:39:01.65
>>237
やってる人を見たんです。 信じてください。
0274名無しさん＠そうだ選挙にいこう2016/05/12(木) 14:59:47.41
>>273
>>236？windowsのテーマとか変えれば変わるかも
0275名無しさん＠そうだ選挙にいこう2016/05/12(木) 19:04:16.48
ネットでバズってた記事

仕事仲間のExcelスキルを知って衝撃を受けたのでブログに書かずにいられない
http://www.b-chan.jp/entry/pc/Excel-skill_1

ところで実際おまえらのスキルどうなのよ
0276名無しさん＠そうだ選挙にいこう2016/05/12(木) 19:12:21.53
>>275
【質問不可】Excel総合相談所スレの雑談・議論スレ3
http://echo.2ch.net/test/read.cgi/bsoft/1354358619/
02772612016/05/13(金) 02:17:42.51
>>268-272
みなさん返答ありがとうございます。
「項目全て揃っている表を別シートに作り、前もって読んでおく」という方法で対応できました。

「前データ残して追加」というのは盲点でしたが、日々膨れていくデータの管理に気を使う必要が出てくるので
今回は見送りました。

テキストデータは骨董品のような古い業務ソフトから吐き出されるのでほぼ融通が利かない、
というのも前もって書くべきでした、すみません。
0278名無しさん＠そうだ選挙にいこう2016/05/13(金) 06:26:03.40
すみません
Windows版でなく、スマホ/タブレット版のExcel、および類似ソフトについてはスレ違いですよね…
どこか適当なスレがありましたら教えていただけないでしょうか
(関数などの使用制限について)
0279名無しさん＠そうだ選挙にいこう2016/05/13(金) 07:42:49.55
>>278
>>278
WindowsじゃなくてもExcelだったらここでいいですよ
0280名無しさん＠そうだ選挙にいこう2016/05/13(金) 19:49:42.25
>>278
類似ソフトは　↓

LibreOffice/Apache OpenOffice 総合相談所 12 [転載禁止](c)2ch.net
http://echo.2ch.net/test/read.cgi/bsoft/1443141116/
0281名無しさん＠そうだ選挙にいこう2016/05/14(土) 22:03:57.23
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 多少
【4 VBAでの回答の可否】 可

A列にあるデータのうち、※で区切られていたら※ごとB列に移したいのですが、
データ → 区切り位置（その他※）にすると※が消えてしまいます。
次のデータ1をデータ2のようにするにはどうすればいいですか？

【データ1】
A　　　　　　　　　B
リンゴ
みかん
メロン※野菜
ぶどう
スイカ※野菜

【データ2】
A　　　　　　　　　B
リンゴ
みかん
メロン　　　　　　 ※野菜
ぶどう
スイカ　　　　　　 ※野菜
0282名無しさん＠そうだ選挙にいこう2016/05/14(土) 22:51:17.72
>>281
※を追加すればいいだけでは？
0283名無しさん＠そうだ選挙にいこう2016/05/14(土) 22:52:15.45
>>281
c1="※"&b1
↓にオートフィル等で※付きにする
その後コピーペーストで値貼り付け

区切り位置無しで関数でやりたければfind()とmid()で切り分ける

vbaならsplit()でなんとでもできるだろうしそれが一番はやいと思う
どれがいいかは知らん。
一回だけ、月1ぐらいなら &で文字列追加したほうが早いだろう
0284名無しさん＠そうだ選挙にいこう2016/05/14(土) 23:04:14.92
>>281
VBAで置き換える場合

Sub macro()
　　With Selection　'選択範囲
　　For r = 1 To .Rows.Count
　　　　wstr = .Cells(r, 1).Value
　　　　endptr = InStr(wstr, "※")
　　　　If endptr Then
　　　　.Cells(r, 1).Value = Left(wstr, endptr - 1)
　　　　.Cells(r, 1).Offset(0, 1).Value = Mid(wstr, endptr)
　　　　End If
　　Next
　　End With
End Sub
0285名無しさん＠そうだ選挙にいこう2016/05/14(土) 23:39:01.45
>>281
※を,※に置換して区切り位置をカンマにすればいいんじゃないかな
0286【B:99 W:80 H:93 (A cup)】 2016/05/15(日) 22:31:51.89
>>282
このスレで一番ためになった回答です
0287名無しさん＠そうだ選挙にいこう2016/05/17(火) 00:26:51.04
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

ここの質問とレベルが違いすぎてお恥ずかしいですが、
よろしくお願いします！

1つのブックに50シート近く、シートごとに様々な大きさの集計表があります。

それを資料として、余白や表の位置を合わせて印刷したいのです。
表の大きさは本当にバラバラで、ページ設定の余白や縮尺で揃えるのは不可能だと思い、
①印刷範囲、余白、位置を調整済みのシートに
②表をコピーして図で貼り付け、
③表ごとに印刷範囲に合わせて、図の大きさを調整する。

以上のやり方でイケるかなと思っていますが、他にやり方はありますでしょうか？

自分でもネットで調べて、このやり方でいいのでは？と思っているのですが
他の作業者が納得してくれません。
理由は図で貼り付けると汚い？からだそうです。
0288名無しさん＠そうだ選挙にいこう2016/05/17(火) 00:34:14.32
>>287
印刷範囲、余白、位置を調整済みのシートの書式をコピーし各シートに貼付け
02892872016/05/17(火) 00:57:54.20
>>288

夜遅くにありがとうございます！

それって全てのシートの行列の長さがそろっていなくても大丈夫なのかな？
手元にデータがないので、すぐ試せないのが歯がゆい！

明日試してみます。
0290名無しさん＠そうだ選挙にいこう2016/05/19(木) 12:33:47.02
vbaでの質問なのですが、
(例)ユーザーフォームにテキストボックス4つ、コンボボックス3つラベル7つコマンドボタン1つ作ったものがあり、それぞれに入力した内容をセルに転記したり、表から抽出したデータを表示したりする時に一々、
cells(1,1).value=textbx1
の様に全て書かずに、配列の様に扱うことは可能ですか？
0291名無しさん＠そうだ選挙にいこう2016/05/19(木) 13:13:59.02
可能
0292名無しさん＠そうだ選挙にいこう2016/05/19(木) 14:10:02.23
>>291
お手数ですが、詳しく教えていただけると助かります。
0293名無しさん＠そうだ選挙にいこう2016/05/19(木) 15:13:03.87
>>292
For i = 1 To 4
　　Cells(1, i).Value = Controls("TextBox" & i).Value
Next i
0294名無しさん＠そうだ選挙にいこう2016/05/19(木) 19:09:54.31
>>293
ありがとうございます。
お手数ですが、もう一点お願いします。
テキストボックスとコンボボックスはループを分けるしかありませんか？
出来たらループ一回でまとめれたら嬉しいのですが。
0295名無しさん＠そうだ選挙にいこう2016/05/19(木) 21:33:09.28
テキストボックス → 4つ
コンボボックス → 3つ

どうまとめろというのだ
i=4の時だけifで飛ばすのか？ループ分けるより面倒に思うのだが
0296名無しさん＠そうだ選挙にいこう2016/05/19(木) 21:49:42.17
>>294
無理矢理まとめるとしたらこう？

Dim ctl As Control, r As Long
r = 1
For Each ctl In UserForm1.Controls
　　Select Case TypeName(ctl)
　　Case "TextBox", "ComboBox"
　　　　Sheet1.Cells(r, 1).Value = ctl.Name　 'オブジェクトの名前
　　　　Sheet1.Cells(r, 2).Value = ctl.Value　'Valueプロパティ
　　　　r = r + 1
　　End Select
Next ctl
0297名無しさん＠そうだ選挙にいこう2016/05/19(木) 22:09:26.16
>>295
実際には例より沢山のコントロールを配置していたので、コードが長くなり過ぎたので何か対処方はないものかと思い、質問させていただきました。
>>296
ありがとうございます。
0298名無しさん＠そうだ選挙にいこう2016/05/20(金) 09:39:54.61
小技使って短くまとめようとするとあとからの修正が面倒になるし
他の人にわかりにくくなるから
長くても簡単でわかりやすいコードの方がいいって先輩に言われたことあるな

まぁ個人でちょこっとやってる分には別に問題ないんだろうけど
0299名無しさん＠そうだ選挙にいこう2016/05/20(金) 21:37:22.48
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【4 VBAでの回答の可否】 可

新規シートのC3セルからAG3セルに1～31の数字を入れ、土日に相当する列を
非表示にしたいのですが、どうすればいいでしょうか？
例えば今年の5月なら、C、I、J、P、Q、W、X、AD、AEの各列を非表示にしたいです。
手動でセルに色付けするならできますが、その色付けもマクロでできればいいのですが・・・
0300名無しさん＠そうだ選挙にいこう2016/05/20(金) 22:48:35.92
>>299
こんな感じ？

Sub a()
y = 2016
m = 5
For i = 1 To 31
d = Cells(3, i + 2)
w = Weekday(DateValue(y & "/" & m & "/" & d))
If w = 6 Or w = 7 Then
Columns(i + 2).EntireColumn.Hidden = True
End If
Next
End Sub
0301名無しさん＠そうだ選挙にいこう2016/05/21(土) 00:12:48.51
Excelの質問です
a b c d e f
1 □■
2 ①②③④ ⑬
3 ⑤⑥⑦⑧ ⑭
4 ⑨⑩⑪⑫ ⑮
⑯

□=1 を入力した場合、（①×⑬）＋（②×⑭）＋（③×⑮）＋（④×⑯）
□=2 を入力した場合、（⑤×⑬）＋（⑥×⑭）＋（⑦×⑮）＋（⑧×⑯）
□=3 を入力した場合、（⑨×⑬）＋（⑩×⑭）＋（⑪×⑮）＋（⑫×⑯）

の答えを■に出したいのですがわかりません。
配列数式にINDEX、TRANSPOSEを組み合わせればできそうなのですが
INDEXに指定する行数・列数がわからなくてはまってます。
0302名無しさん＠そうだ選挙にいこう2016/05/21(土) 00:14:28.84
セルがうまくでなかったです
a　b　 c　d　e　f
1 　　　　　　　□■
2 ①②③④　⑬
3 ⑤⑥⑦⑧　⑭
4 ⑨⑩⑪⑫　⑮
5　　　　　　　　⑯
0303名無しさん＠そうだ選挙にいこう2016/05/21(土) 10:35:21.89
手元にExcelがなく漠然とした質問ですみませんが。

【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 不明。Win7の頃のVerのようです
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

Excelの表をHTMLで保存はできるのですが
その際に文字コードをUTF-8にして保存できますか？
作成されたHTMLをメモ帳などで読み込んで再度保存することなく
Excelの操作だけで行いたいです。

<meta http-equiv=Content-Type content="text/html; charset=shift_jis">
この行を、～charset=utf-8"> としたいのです。

よろしくお願いします。
0304名無しさん＠そうだ選挙にいこう2016/05/21(土) 11:35:01.92
>>301
こんなんでどう?
=INDEX(A:A,E1+1)*E2+INDEX(B:B,E1+1)*E3+INDEX(C:C,E1+1)*E4+INDEX(D:D,E1+1)*E5
もしくは
=OFFSET(A1,E1,0)*E2+OFFSET(B1,E1,0)*E3+OFFSET(C1,E1,0)*E4+OFFSET(D1,E1,0)*E5


>>303
ここかな?
http://www.asahi-net.or.jp/~gx4s-kmgi/excel53.html
0305名無しさん＠そうだ選挙にいこう2016/05/21(土) 15:08:22.33
質問です。

他人の作ったファイルで何回も見たことがあるのですが、
あるシートで、文字や数字が入力されたエリアだけが罫線もなく真っ白の背景で、
それよりも下や右には、たしか行番号や列文字もなにもなく、
まるでシート上に紙が乗せられているような、その紙の右や下にはうっすら影をつけた
ようなデザインになっているものを見たことがあります。

拙い表現でわかりにくいでしょうが、こういうのって、どうやって実現しているのでしょうか？
0306名無しさん＠そうだ選挙にいこう2016/05/21(土) 15:11:47.10
>>305
表示のページレイアウト？
0307名無しさん＠そうだ選挙にいこう2016/05/21(土) 18:30:09.22
>>304
ありがとうございます。図入りで助かりました。
0308名無しさん＠そうだ選挙にいこう2016/05/21(土) 18:32:11.90
あ、IDでないのですね。
307は303に対してのお礼です。
03092992016/05/21(土) 22:05:20.54
>>300
それ、2016年5月限定のマクロですよね？
「例えば5月なら」と書いたのを察して、「6月なら」「7月なら」と月が変わったら
非表示する列も変わるのを望んでいます。
0310名無しさん＠そうだ選挙にいこう2016/05/21(土) 22:59:43.33
>>299,309　大の月、小の月も考慮した方がいいのでは？
自分がNPO団体のために作ってる「カレンダーシート（一カ月分１シートの表をこう呼んでいる）」の
日付（日だけ表示）と曜日の行は、土日のセルを赤文字にするのと、存在しない日付（平年の29～、
小の月の31）の日付と曜日は白色文字にしてます。（祝祭日は対応してません）
日付の欄は１～３１の数字ではなく、別セルに設定した西暦年と月(※)を用いて正式な日付データとし、
セルの書式のユーザー設定で　d　を指定し、日の部分だけ表示してます。
これだけだと月末は、例えば平年の2月だと28,1,2,3と表示されますが、条件付書式で
「月(※)と日付欄の月が異なる場合は白色文字」としています。（29～31に相当するセルのみ第1優先）
そのうえで　WEEKDAY(セル指定,2)　が5より大きいときに赤色文字　という条件付書式をしています。
VBAでC3:AG3セルの曜日と翌月かどうかのチェックを行い、当該列の表示・非表示を設定したら？
0311名無しさん＠そうだ選挙にいこう2016/05/21(土) 23:17:01.64
>>309
A1セルに月の数値「5」と入力
m = 5
↓
m = cells(1,1).value
とでもすればいいと思う
流石にそれぐらいは自分でかけるようになったほうがいいと思う
0312名無しさん＠そうだ選挙にいこう2016/05/22(日) 00:12:12.66
>>311
5以外で動作するの?
0313名無しさん＠そうだ選挙にいこう2016/05/22(日) 01:36:59.71
>>310
先頭の年月日の曜日だけわかればあとは最初の土日の列がわかるからそれを非表示にして
あとは７列ずらしたセルに数値が入っていたらそれを非表示にしてって数値が未記入になるまで
繰り返せばいいと思うのだが・・・
0314名無しさん＠そうだ選挙にいこう2016/05/22(日) 02:45:19.05
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2016
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

初めて質問させていただきます
言葉足らずなところがありましたらすみません

vlookupの様な探したい言葉に関連付けてその数値を見つけてくることはできたのですが
もし、探したい言葉が一文字違いあるいは二文字違いである場合に良い対処法はありますか？
ワイルドカードで対処できないような、言葉の文字列の中の一つが違う場合です
宜しくお願いします
0315名無しさん＠そうだ選挙にいこう2016/05/22(日) 07:31:15.01
>>314
違う文字が常に一定の文字数の場所ならLEFTやRIGHTで切り出してやればいい
0316名無しさん＠そうだ選挙にいこう2016/05/22(日) 09:45:30.26
【1 OSの種類 　 　 　 　 .】 Windows7 sp1 64bit
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

ワークシート間のシェイプの貼り付けで
貼り付け先でシェイプのサイズが
変わってしまって困っています。

Aというワークシートでシェイプをコピーし閉じた後に
Bという列や行幅の異なるワークシートで
シェイプを貼りけるとそのサイズが変わってしまいます。

行列の幅をA、Bのワークシート間で揃えたり
Aのワークシートを閉じなければ同じように貼り付ければ
コピー元のサイズを再現できるのですが
それ以外で何か対策はありますでしょうか。
0317名無しさん＠そうだ選挙にいこう2016/05/22(日) 09:53:54.60
>316の補足です。

最終的にやりたいことは、xlsファイルをクリックして
シェイプをクリップボードにコピーした後にそのファイルを閉じて
他のxlsファイル（ファイル名、シート名は様々）にシェイプの
サイズを保持したまま張り付けることです。

アドバイスお願いいたします。
0318名無しさん＠そうだ選挙にいこう2016/05/22(日) 10:41:41.60
閉じるな
0319名無しさん＠そうだ選挙にいこう2016/05/22(日) 11:04:18.60
>>314
そういうのは「表記ゆれ」という
vlookupで対処するのはかなりめんどくさい。文字数が少なければ実質不可能な場合もある
アルゴリズムは知らないけど、昔こういうのを作ったことはある

「めろん」を探したい場合に一文字ずつ区切って点数をつける
りんご　1　=mid("めろん",1,1) =mid("めろん",2,1) =mid("めろん",3,1) 　・・・
みかん　1
めろん　2

これで最大の点数を引っ張ってくれば大体は取得できるが、ひらがなとカタカナや数字と漢数字とかになると
vbaしかない
0320名無しさん＠そうだ選挙にいこう2016/05/22(日) 11:08:50.02
>>316
実際やってみないとわからん。
Oooやスプレッドシートも検討してみては？
エクセル限定なら、vbaで図形のサイズを取得→貼り付けて調整と手順通りに書くしかなさそう
0321名無しさん＠そうだ選挙にいこう2016/05/22(日) 11:37:31.99
>>318
やっぱりそうなりますよね。

>>320
エクセル限定で考えています。

手順通り調整するしかないみたいですね。
諦めがつきました。

ありがとうございました。
0322名無しさん＠そうだ選挙にいこう2016/05/23(月) 01:39:52.01
>>311
ん？
0323名無しさん＠そうだ選挙にいこう2016/05/23(月) 12:34:58.02
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 少し
【4 VBAでの回答の可否】 可

VBAでの質問です。

給与ソフトから出力したｃｓｖで、特定の項目名以外の列を削除したい。
ｃｓｖは、社員コード、氏名、住所など1500もの項目（列数）があるため、必要な特定の10項目のみ残し、
他の列は削除したいのです。。
特定の10項目は、場所が変わるので項目名で判断します。

例えば、必要な項目の列番号は
c1 = Range("1:1").Find("社員コード", LookAt:=xlWhole).Column
：
：
c10＝　　　　　　　〃
というように取得するまではわかったのですが、その後がさっぱりわかりません。
1行目にあるすべての項目名をチェックし、削除したい列の項目をクリアし、最後に
Rows(1).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
で削除という方法を考えておりましたが、もっと効率のいい方法がないものかと思っております。

最後になりますが、ｃｓｖ作成時に初めから10項目のみにすればいいという考えもありますが、マクロで
解決したほうが速いのと、この様な場合技術的にどうするのかも知りたいのです。

よろしくお願いいたします。
0324名無しさん＠そうだ選挙にいこう2016/05/23(月) 13:30:26.68
>>323
はい

Sub a()
c = Cells(1, 10000).End(xlToLeft).Column
'残す項目
s = Array("名前", "部署", "電話")
For i = c To 1 Step -1
'フラグ初期化
f = True
For Each o In s
If Cells(1, i).Value = o Then
f = False
End If
Next
If f Then
'削除
Columns(i).Delete Shift:=xlToLeft
End If
Next
End Sub
0325名無しさん＠そうだ選挙にいこう2016/05/23(月) 13:31:13.20
あと一応
s = Array("名前", "部署", "電話")
は必要に応じて増やして下さい。
s = Array("名前", "部署", "電話", "性別")
0326名無しさん＠そうだ選挙にいこう2016/05/23(月) 13:46:27.83
A　B
あ　か
い　き
う　く
え　け
お　こ

みたいなデータを
A
あ
か
い
き
う
く
え
け
お
こ
に修正するのはどうやれば良いでしょうか？
open officeを使っております。心優しい方教えてくださると誠にありがたいです
宜しく御願いします
0327名無しさん＠そうだ選挙にいこう2016/05/23(月) 13:48:06.46
>>326
見落としておりました

【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 open office calc(Excelではありません)
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
0328名無しさん＠そうだ選挙にいこう2016/05/23(月) 13:54:20.06
>>327
LibreOffice/Apache OpenOffice 総合相談所 12 [転載禁止](c)2ch.net
http://echo.2ch.net/test/read.cgi/bsoft/1443141116/
0329名無しさん＠そうだ選挙にいこう2016/05/23(月) 13:57:24.09
>>328
ありがとうございます
0330名無しさん＠そうだ選挙にいこう2016/05/23(月) 22:14:35.17
日本マイクロソフト人事本部シニアマネージャー（名ばかり管理職）の西川昌邦（さいかわまさくに）は犯罪者にして殺人犯だ！！
「あなたのような従業員は会社のパフォーマンスにとってマイナスなので早く死んでください」
などと自殺教唆を公然と行った！！ その結果人が死んだ！！
丁寧に言えば何を言ってもいいというものではない！！これはヤクザや借金取りが脅迫をする時に
「いついつまでに金一億円をお振り込みください。命が惜しければ間違った判断をなされないことを期待します」
と発言するのと同じレベルだ！！
しかもそれを注意してやったら、「世間はわれわれの味方だ。文句があるなら訴えてきたらよろしい。メールを電番を公開したければ
どうぞご自由に。世論はわれわれを賛辞するするメールを送付するだろう」
などとイカ様気取りも大概にしろという発言を行った！！
抗議先 日本マイクロソフト人事本部　西川昌邦
メール：masaikaw●microsoft.com
（●を@に置き換えて）
電話：09025411718
0331名無しさん＠そうだ選挙にいこう2016/05/24(火) 09:20:27.15
>>324
サンクスです。
正常に動作も確認しました。感謝です
0332名無しさん＠そうだ選挙にいこう2016/05/24(火) 16:57:16.48
教えてください
エクセル2010ファイルで、ユーザーに100問のアンケートに答えてもらいその
結果から、数パターンのオススメ商品を表示するシステムを作っています。
集計や商品表示の部分は完成しましたが、アンケートに答えてもらうフォームを
どう作るか困っています。

アクセスと違って、エクセルのフォームには、サブフォームのようなものがないようで、
「フォームの一部の枠内で、アンケート問を並べて縦スクロールさせる」には、
リストボックスしかないのでしょうか？
一行（一問）ずつ「ある」「ない」「わからない」の３選択肢ラジオボタンを作る必要が
あるのですが、リストボックス以外になにか方法はないでしょうか？
0333名無しさん＠そうだ選挙にいこう2016/05/24(火) 17:34:25.15
>>332
シートに直接ラジオボタン置くとか
0334名無しさん＠そうだ選挙にいこう2016/05/24(火) 17:38:01.14
>>332
フォームの中にスクロールを付けたいならフレームでプロパティのスクロールバーを3にするとか？
やったこと無いけど

それよりgoogleフォーム使える環境なら絶対にこれがいい。一瞬で作れる
https://www.google.com/intl/ja_jp/forms/about/

もしエクセルのワークシート使ってるなら番号で答えてもらう形式の方が良いと思う。
ラジオボタン100回クリックはダルス不ギル気がする
0335名無しさん＠そうだ選挙にいこう2016/05/24(火) 18:00:57.98
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
範囲選択してテーブルを作成した時先頭を見出しに設定しますが見出しのセルをやっぱり上のセルに設定したい場合どうしたら移動させられますか？
0336名無しさん＠そうだ選挙にいこう2016/05/24(火) 20:21:35.21
流通関係の人いたら教えて欲しいんだが
2016きてるのか？
2013は安くなりそう？
0337名無しさん＠そうだ選挙にいこう2016/05/24(火) 21:01:26.23
いつもどおり
0338名無しさん＠そうだ選挙にいこう2016/05/25(水) 00:29:49.89
【1 OSの種類 　 　 　 　 .】 Windows8
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

計算結果Aの場合
任意のセル1～10のうち1～3は切り上げ、4～10は切り下げ
計算結果Bの場合
任意のセル1～10のうち1～5は切り上げ、6～10は切り下げ
と、言う具合に関数を組みたいのですがどうすればよろしいでしょうか？
0339名無しさん＠そうだ選挙にいこう2016/05/25(水) 00:42:48.51
>>338
=IF(計算結果=A,ROUNDUP(A4,0),ROUNDDOWN(A4,0))
0340名無しさん＠そうだ選挙にいこう2016/05/25(水) 08:16:31.45
>>332
VBA使って動的にラジオボタン並べればいいと思う
03413322016/05/25(水) 08:27:04.17
>>340
動的とは？
ボタンがぷるぷると振動して動きをつけたほうが見栄えが良くなるということですか？
0342名無しさん＠そうだ選挙にいこう2016/05/25(水) 10:17:50.09
すみませんちょっと場違いかもですが質問です

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

ファイルを開くと画面の上に黄色い帯で
[！]セキュリティの警告　リンクの自動更新が無効にされました [コンテンツの有効化]　×
と出てくるんですが
何が原因でこれが出てくるのかわからなくてモヤモヤしています

別ファイルからのリンクがどこかにあるのかと思って
[をブック内検索しましたが見つからず
名前の管理を見ても印刷範囲があるだけでした

他に何か原因究明する手段はないでしょうか
xlsxで普通に保存できるのでマクロは使われていないと思っています
0343名無しさん＠そうだ選挙にいこう2016/05/25(水) 10:20:19.49
特定のブックだけだったら、外部データとかXMLの接続とか残ってるのかもね。
全部だったらなんかのゴミアドインのせいじゃない。
03443422016/05/25(水) 10:22:28.33
今のところはこのファイル一つだけです・・・
0345名無しさん＠そうだ選挙にいこう2016/05/25(水) 10:47:22.77
>>342
すごい地味だけど
・シートを減らして保存、再度開いて警告が出れば残ってるシート、でなければ消したシートに外部リンクがあったことになる
・全シートじゃなければブックに何らかの設定が残ってる可能性がある。その場合は知らん。
・シートが特定できれば、シートの半分を削除して保存、開く。警告が出れば・・・
と言った感じで削除しながら特定するとか

リンクの自動更新が無効にされました で検索するほうが早いかもねぇ
0346名無しさん＠そうだ選挙にいこう2016/05/25(水) 11:10:09.84
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
プルダウンリストで4層の絞り込みを行いたいのですが、1層目(部署)のあと、2層目で部署長が兼務なので、名前が重複して名前の定義が使えません。
部署１ー河野ー安倍ー内線
　　　　　　Ｌ伊藤ー内線
部署２ー河野ー上田ー内線
　　　　　　Ｌ上野ー内線
部署３ー木田ー久米ー内線
部署４ー斎藤ー清水ー内線

部署１、２で河野が重複。
部署１のあと、河野を選んだあと、安倍、伊藤、部署２のあと、河野を選んだあと、上田、上野を選べるようにしたいのですが、名前の定義ー「リスト」INDIRECTだとダメでした。
よろしくお願いします。
0347名無しさん＠そうだ選挙にいこう2016/05/25(水) 12:24:37.02
河野(部署１)
河野(部署２)
にしたらどうだろう？
(をFINDで探す扱いにすれば苗字の文字数変わっても対応可能じゃね？
0348名無しさん＠そうだ選挙にいこう2016/05/25(水) 12:32:40.19
入力フォームを作って、そこにテキストボックスを40個並べたりしたい。
テキストボックスの名前をname01にして、どんどんコピペしてname40まで
作りたいのだけど、これって、１つ１つ名前を手作業で変更しないとダメなの？
0349名無しさん＠そうだ選挙にいこう2016/05/25(水) 12:39:13.54
>>347
ありがとうございます。
ちょっとやってみます。
0350名無しさん＠そうだ選挙にいこう2016/05/25(水) 12:48:33.26
>>345
ありがとうございます！
ググってみたら他にもいろんな場所が書いてあって
その中の「条件付き書式」の条件式の中に他のファイルが引用元になっていました！
おかげさまで自己解決できましたありがとうございました！
0351350は342です2016/05/25(水) 12:54:39.80
すみません名前欄消えてましたが>>350は>>342です
0352名無しさん＠そうだ選挙にいこう2016/05/25(水) 12:56:01.97
>>348
動的に追加スル方法はあるけどめんどくさい
http://qiita.com/daaaaaai/items/9dd0f81613d62214072b
foreachで変更する方法もあるけど・・・40個ぐらいなら手動の方が楽だろうな。俺でもそうするわ

というかそもそも論としてセル使った方がいいんじゃない？とも思う
0353名無しさん＠そうだ選挙にいこう2016/05/25(水) 17:08:47.28
>>346
内線って？
プルダウンは4個あるの？

VBA向きだから数式だとスマートな方法が思い浮かばない
対応したリスト1～リスト4を作りIF関数で選ばれた名前を””にするしか無さそう
人数が数人なら作業列使えば難しくはないんじゃ？
03543462016/05/25(水) 19:42:03.54
>>353
>>内線って？
プルダウンは4個あるの？
はい。４つ必要です。

http://okwave.jp/qa/q8154356.html
これだと自分が内線を追加できなかったのと、プルダウンリストが別シートにできませんでした。同じ事はできましたが。

>>VBA向きだから数式だとスマートな方法が思い浮かばない
　自分のEXCELスキルはマクロを登録して少し編集するくらいです。ユーザーフォームを作る文化が会社にないので、作ると「何してんだ？」といわれました。
　部署は25くらい、部署長は20くらい。その下（安倍、上田、久米など）が200人くらい。内線はすこしへります。プルダウンリストにこだわるのは入力ミスが多いから。部署長ごとにブックを作成してはダメだそうです。人事異動で更新できなくなるから。
　あと、ユーザーのほとんどがVBAやマクロが使えません。「開発」タブの存在すらしらない。半分くらいは自宅にPC無いらしい。
　追い詰められてます。よろしくお願いします
0355名無しさん＠そうだ選挙にいこう2016/05/25(水) 20:23:23.15
>>354
人数が多いと増々VBA向きですね

VBAでは必ずしもユーザーフォームを使う必要は無く
入力シートと表示シートに分ける方法もあります

あと、VBAならプルダウンは1個で選択肢を更新していった方が入力が楽です
03563542016/05/25(水) 20:49:51.65
>>355
ご教授ねがいます。もう疲れました。

http://fast-uploader.com/file/7019732456050/
0357名無しさん＠そうだ選挙にいこう2016/05/25(水) 20:57:17.99
これだと部署選んで内線番号出せばそれで終わりだろう
あんたが疲れてても死んでもどうでもいい。質問だけはキッチリしてくれ
0358名無しさん＠そうだ選挙にいこう2016/05/25(水) 21:11:25.22
>>341
Excel以前に日本語の勉強が必要みたいね
がんば！
0359名無しさん＠そうだ選挙にいこう2016/05/25(水) 21:17:17.75
そんな難しい内容か？
作業列使えば割りと簡単にできるだろ
万単位とかなら重くなるかもだが
0360名無しさん＠そうだ選挙にいこう2016/05/25(水) 21:24:51.19
>>357
　申し訳ありません。担当と内線はあと150ほどあります。
これもダミーデータです。公立高校卒のおっさんにはむりすぎる。

http://www.dotup.org/uploda/www.dotup.org876306.xlsx.html
0361名無しさん＠そうだ選挙にいこう2016/05/25(水) 21:26:00.20
連投すみません。とっかかりが無くて。どうにもなりません。
0362名無しさん＠そうだ選挙にいこう2016/05/25(水) 21:29:01.12
>>346
で、vbaは使っていいの？駄目なの？
使っていいならリストの内容をvbaで組めば一瞬で終わるけど
0363名無しさん＠そうだ選挙にいこう2016/05/25(水) 21:34:18.89
>>362
質問者の環境だとＶＢＡはメンテナンスができなくて詰む将来しか見えない件
0364名無しさん＠そうだ選挙にいこう2016/05/25(水) 21:34:59.77
>>363
そやな
めんどくさいけど関数でやるか
03653462016/05/25(水) 21:45:22.98
　352と同一人物です。VBAは無しでお願いします。VBAが使われていても解析できそうもありません。

VBAってそんなに使われているのでしょうか？
0366名無しさん＠そうだ選挙にいこう2016/05/25(水) 22:14:01.07
データの入力規則を使わずにプルダウンってどうやる気だ？
0367名無しさん＠そうだ選挙にいこう2016/05/25(水) 22:15:18.31
>>346
これが便利かどうかしらんけど
http://www.dotup.org/uploda/www.dotup.org876407.xlsx.html
0368名無しさん＠そうだ選挙にいこう2016/05/25(水) 22:16:52.49
関数だとやっぱりめんどくさいな。重複と並び替えがダルイ
vba覚えた方がいいと思う。こんなしょーもない仕事30分で終わるわ
03693462016/05/25(水) 22:38:50.45
>>367
ありがとうございます。m(_ _)m
分厚い本を買ってもわからず、勉強としてoffice2013買って、よくわからないアップローダーを使って、よかったと思う。
>>368
どうしたらVBAを覚えられるでしょうか?面着でVBAを教えてくれる人間がいません。
0370名無しさん＠そうだ選挙にいこう2016/05/25(水) 22:54:13.91
>>369
すまん。ちょっとキモイ

vbaは検索しながら覚えれば良い
「vba　覚え方」「vba　初心者」辺りで検索すればなにか出てくるだろう
なんでもいいから例題解いていけばそのうち色々分かる
諦めなければ回り道も全部糧になる
03713462016/05/25(水) 23:02:32.56
　>>367
　ありがとうございます。ピボットテーブルを初めて見ました。これが、どのような機能をしているか
わかりませんが、覚えたいと思います。名前の管理が一切使われていない事に驚きです。
　>>366
入力規則を使ったプルダウンはありますが、定義された名前をつかったファイルは見ていません。
これを機に使ってみたいと思います。
0372名無しさん＠そうだ選挙にいこう2016/05/25(水) 23:58:36.45
>>371
すまん
ピボットは間違っただけだからシートごと削除しておいて
0373名無しさん＠そうだ選挙にいこう2016/05/26(木) 00:22:30.05
それにしても「条件付き書式」は鬼門だな。
コピペすると条件が増殖するし。
0374名無しさん＠そうだ選挙にいこう2016/05/26(木) 04:37:28.65
条件付き書式で一番納得いかないのは
太字罫線ができないこと

VBA使ってもできないようにブロックされてるし
0375名無しさん＠そうだ選挙にいこう2016/05/26(木) 07:09:55.00
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2016

A B C D E ～と列があって　D列の幅を最大にしています。(Dには一行の長文を入れてます)
この状態でD と E 両方が見えるように横スクロールすると勝手に E が左端にくる位置になってしまうのですが
この調整(?)を無効にできる方法ってありますか？
0376名無しさん＠そうだ選挙にいこう2016/05/26(木) 10:55:36.96
>>374
前に俺もここでそれを質問したことがあるが
「あらかじめ全部太線を引いておいてから『条件に合致しない部分は罫線を消す書式』を組む」
みたいなマイナスとマイナスを足してプラスにするみたいな根性論が返ってきたわ
0377名無しさん＠そうだ選挙にいこう2016/05/26(木) 11:29:22.31
ただの発想の転換
0378名無しさん＠そうだ選挙にいこう2016/05/26(木) 12:15:24.21
かけろよ
0379名無しさん＠そうだ選挙にいこう2016/05/26(木) 12:47:16.32
そこは　ひくだろ
0380名無しさん＠そうだ選挙にいこう2016/05/26(木) 13:40:30.47
>>375
[表示]-[ウィンドウ]-[分割]で、左右にウィンドウを分割してみるとかは駄目？
0381名無しさん＠そうだ選挙にいこう2016/05/26(木) 15:27:14.47
>>380
試してみましたが特に見やすくはならなかったです
ありがとうございますm(__)m
0382名無しさん＠そうだ選挙にいこう2016/05/26(木) 17:18:10.10
COUNTIF(範囲, 条件)

範囲が点在してる場合（例えばA1,B2,C3・・）、google検索して出てくる名前定義ではうまくいかないようです。
一個一個足すしかないのでしょうか？
0383名無しさん＠そうだ選挙にいこう2016/05/26(木) 18:18:24.56
>>381
作業列で一列に並べてからその作業列を範囲に検索したらどうだろう？
計算式を何個もつくって足すよりかは、多少は軽くならんかな
0384名無しさん＠そうだ選挙にいこう2016/05/26(木) 19:28:44.44
>>382
多分ないと思う
0385名無しさん＠そうだ選挙にいこう2016/05/26(木) 20:55:00.22
【1 OSの種類】 Windows7
【2 Excelのバージョン】 Excel2016

マクロ有効ブック（xlsm）を変更しても
保存されず修正前のままで
0004040.000みたいなテンポラリファイルが残るんですが
解決方法ってありますか？
0386名無しさん＠そうだ選挙にいこう2016/05/26(木) 21:10:52.75
再インストールが手っ取り早いと思う
0387名無しさん＠そうだ選挙にいこう2016/05/27(金) 02:52:30.96
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel 2016
【3 VBAが使えるか　 　 .】 ほとんど使えません
【4 VBAでの回答の可否】 可

いくらｇｇてもやり方がわからないので質問させてください。
競艇の毎日の出走表のデータをエクセルに移したいのですがURLが日付が入っておりwebクリエで毎日更新ができず困ってます。
http://app.boatrace.jp/race/13_20160524.php?day=20160527&;jyo=13&rno=06&type=program
こんな感じなのですが、最初の日付が開催日初日、次が今日の日付になっていてどうしても解決方法が見つかりません。
どなたかご教授お願いいたします。
0388名無しさん＠そうだ選挙にいこう2016/05/27(金) 07:31:39.89
教授
0389名無しさん＠そうだ選挙にいこう2016/05/27(金) 08:26:21.19
>>387
VBAを使ってURLを書き換えればよいのじゃよ
初日が5/24、最終日が5/29なら

For d = DateValue("2016/5/24") To DateValue("2016/5/29")
　　URL = "http://app.boatrace.jp/race/13_20160524.php?day="; & Format(d, "yyyymmdd") & "&jyo=13&rno=06&type=program"　　Debug.Print URL
' ここでWEBクエリを発行してデータを取り出す
Next
0390名無しさん＠そうだ選挙にいこう2016/05/27(金) 11:37:31.53
>>389　ご回答ありがとうございます！！
0391名無しさん＠そうだ選挙にいこう2016/05/27(金) 12:03:48.13
>>389
Debug,printの場所が引っ掛かるのは何でですか？
Debug,printの意味を調べたのですが、ちょっとわからなかったです
0392名無しさん＠そうだ選挙にいこう2016/05/27(金) 12:15:13.60
理研の税金無駄使い、954万円高級家具カッシーナ・イクスシーの指定購入も大問題 : 千日ブログ ～雑学とニュース～
http://1000nichi.blog73.fc2.com/blog-entry-7696.html
税金の無駄遣い？STAP細胞関連経費1億4500万円 小保方晴子氏の検証実験参加は不要だったで書いた理研の税金の無駄使い。
実は小保方晴子さんらのSTAP細胞関連だけでなく、別の問題にも触れられていました。扱いが小さかったんですけど、こちらもすごく問題だと思います。
(中略)
●本来なら大問題である税金の無駄遣い
　この高級家具の件は、小保方晴子さんが買ったのでは？と、STAP細胞疑惑のときにいっしょに話題になったものです。しかし、すぐに東大教授になった別の方のところで購入したものだと、断定されていました。
違っていたら困りますし、名前を出しちゃうとあれかな？と思うので書きませんが、「カッシーナ・イクスシー　東大教授」あたりで検索すると簡単に出ます。もうあだ名が「カッシーナ」という感じになっていました。
「計２８８個の穴があること」など、実質的に特定のブランド以外を排除した購入など認められるはずがないものであり、本来なら非常に問題です。これは小保方さん問題以上に返金を求めやすくないですかね？
マスコミはこっちの問題ももっと追求すべきだと思います。
0393名無しさん＠そうだ選挙にいこう2016/05/27(金) 12:25:49.53
改行が抜けてるんじゃね？しらんけど
For d = DateValue("2016/5/24") To DateValue("2016/5/29")
　　URL = "http://app.boatrace.jp/race/13_20160524.php?day="; & Format(d, "yyyymmdd") & "&jyo=13&rno=06&type=program"
　　Debug.Print URL
' ここでWEBクエリを発行してデータを取り出す
Next
03943822016/05/27(金) 13:17:34.72
>>383
点在といっても一応規則正しく並んでるので、作業列を作るのは簡単だし良さそうですね。
軽くなるか試してみます。
>>384さんも含め、ありがとう。

COUTIFSなんて関数作るより、こっちの改善が先だろうに・・
0395名無しさん＠そうだ選挙にいこう2016/05/27(金) 15:42:52.22
>>382
名前を付けるってのはアカンかな？
選んでいくのめんどいだろうけど
0396名無しさん＠そうだ選挙にいこう2016/05/27(金) 16:15:52.47
名前って自分じゃ使わないな
初心者の頃入門書まねて何度か使ったがもう使い方忘れてるし

職場（上司）によっては禁止してるケースもありそうだな
0397名無しさん＠そうだ選挙にいこう2016/05/27(金) 17:46:49.85
>>395
countif文の中では「名前」はきかず、エラーになる
>名前定義ではうまくいかないようです。
と書いてるじゃん

条件付き書式で斜線引くときに「名前」で解決する方法があるわな
0398名無しさん＠そうだ選挙にいこう2016/05/27(金) 17:51:10.83
名前の定義って離れた場所でもできたっけ？
0399名無しさん＠そうだ選挙にいこう2016/05/27(金) 17:56:21.57
名前定義は条件によって範囲が変わるプルダウンリストの範囲設定に使ってるな
メンテナンスは条件の方を変える方だけで名前定義は、変更しない前提の運用

自分以外も使うファイルは、出来るだけイレギュラーを避けて使う場合も
いじる必要性がないようにした方が経験上文句言われずに済む

文句言うやつに限って自分じゃ作らないし実際のメンテナンスもしないがｗ
0400名無しさん＠そうだ選挙にいこう2016/05/27(金) 18:05:19.22
>>398
範囲指定をうまくやれば可能
ただそれやるぐらいなら表を正規化した方がいい
0401名無しさん＠そうだ選挙にいこう2016/05/27(金) 18:46:17.55
>>400
知らなかった、できたのか。できたわ。
俺も表の正規化を基本にしてるので、そもそも名前をつけることがない
0402名無しさん＠そうだ選挙にいこう2016/05/27(金) 18:47:11.31
みなさんの苦手な分野ってありますか？

私は
・グラフ
・ピボット
が苦手です
0403名無しさん＠そうだ選挙にいこう2016/05/27(金) 18:58:54.10
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
関数を上手いこと置換する方法ないでしょうか
具体的にはsub某をtrimに変えたいです
100個くらい変更箇所があってorz
0404名無しさん＠そうだ選挙にいこう2016/05/27(金) 19:16:31.36
>>403
100個ぐらいなら手作業でやるのが一番はやいと思うが・・・

簡単なところでは、
置換で"="を"aaa"等に置換する。すると数式が全て文字列になる
後はテキトーに置換やmid()で処理する
最後に"aaa"を"="に置換で戻る

もしくはvbaで楽勝
置換で正規表現使うならOOo
0405名無しさん＠そうだ選挙にいこう2016/05/27(金) 19:56:37.48
>>402
2chでアンケートを取りたがる構ってちゃんが苦手です
0406名無しさん＠そうだ選挙にいこう2016/05/27(金) 20:01:24.29
>>402
わたしもそれが苦手です
というより使ったことがほとんどないだけ
0407名無しさん＠そうだ選挙にいこう2016/05/27(金) 23:19:01.30
>>393
改行したら次は別のところがエラーになってしまいましたorz
これ以上迷惑かけると嫌ので失礼します。ありがとうございました
またお邪魔します
0408名無しさん＠そうだ選挙にいこう2016/05/28(土) 07:43:00.90
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

B2のセルに，"0"が入力されている場合はC2のセルに"1"を
B2のセルに，"1"が入力されている場合はC2のセルに"0"を
入力するようにしたいです．
できれば数式バーだけで解決したいのですが・・・よろしくお願いします
04094082016/05/28(土) 07:51:30.25
すみません，自己解決しました
http://www.officepro.jp/excelfunc/if/index1.html
0410名無しさん＠そうだ選挙にいこう2016/05/28(土) 17:08:49.12
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】　できれば不可

支払額はそれぞれの定額、ただし支払月が違う（①毎月②2ヶ月おき③3ヶ月おき）ものを
毎月20日なったら1シートに自動反映させることはできますか？
今は5パターンくらいのシートをつくり月ずれする金額を手入力で微調整してます
0411名無しさん＠そうだ選挙にいこう2016/05/28(土) 17:25:29.97
>>410
支払日は全て20日なら超簡単なんだが？
具体的に2と3の支払い月は何月なの？
0412名無しさん＠そうだ選挙にいこう2016/05/28(土) 17:39:17.61
>>410
http://www.dotup.org/uploda/www.dotup.org879798.xlsx.html
今作ったけどこんなんでいいんじゃない
0413名無しさん＠そうだ選挙にいこう2016/05/28(土) 17:49:05.58
初心者なものですみません
全て20日としてでいいです
毎月一定日になったら当月の金額をセルに反映させたい感じです
ただし数か月おきで、金額がない月とある月があります
0414名無しさん＠そうだ選挙にいこう2016/05/29(日) 00:17:23.96
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 簡単なレベルでは可
【4 VBAでの回答の可否】　関数で作っているので不可

家計簿でクレジットカード利用分だけ毎月リストにしようと思っています
質問としては
１．http://kokodane.com/kansu_lookup_13.htm
　　を参考にして
　　=IF(COUNTIF(タイプ,$E$1)<ROW(A1),"",OFFSET($F$1,MATCH($E$1,タイプ,0)-1,0))
　　としたところ、２行目以降でROW(A2)のようになっているのに１番上のものしか参照してくれません
　　どこが間違っているのでしょうか
２．家計簿ですのでタイプで定義されている範囲は１列では済みません（31列あります)
　　そうするとエラーが出て１．の質問の関数でエラー＃N/Aが出ます
　　解決方法はあるのでしょうか
0415名無しさん＠そうだ選挙にいこう2016/05/29(日) 00:37:12.74
家計簿ソフトか家計簿テンプレート使ったほうがいいと思うけどね
質問に関しては、実際のファイルを見てみたい。内容を予想するのはちとしんどい
0416名無しさん＠そうだ選挙にいこう2016/05/29(日) 01:32:07.45
>>415
Microsoftの純正家計簿
https://www.microsoft.com/ja-jp/office/2013/stylecatalog/excel/excel02.aspx
を使ってます
これの品名の項目に「品名クレジット」と記載していて
今回クレジットという単語を含むものだけを抽出して品名と金額の表を作りたいと思っています
0417名無しさん＠そうだ選挙にいこう2016/05/29(日) 02:24:53.48
>>416
日本マイクロソフト人事本部シニアマネージャー（名ばかり管理職）の西川昌邦（さいかわまさくに）は犯罪者にして殺人犯だ！！
「あなたのような従業員は会社のパフォーマンスにとってマイナスなので早く死んでください」
などと自殺教唆を公然と行った！！ その結果人が死んだ！！
丁寧に言えば何を言ってもいいというものではない！！これはヤクザや借金取りが脅迫をする時に
「いついつまでに金一億円をお振り込みください。命が惜しければ間違った判断をなされないことを期待します」
と発言するのと同じレベルだ！！
しかもそれを注意してやったら、「世間はわれわれの味方だ。文句があるなら訴えてきたらよろしい。メールを電番を公開したければ
どうぞご自由に。世論はわれわれを賛辞するするメールを送付するだろう」
などとイカ様気取りも大概にしろという発言を行った！！
抗議先 日本マイクロソフト人事本部　西川昌邦
メール：masaikaw●microsoft.com
（●を@に置き換えて）
電話：09025411718
0418名無しさん＠そうだ選挙にいこう2016/05/29(日) 07:23:31.02
再びお邪魔します。
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】 ほとんど使えません
【4 VBAでの回答の可否】 否

今アンケート方式のグラフを作成しているのですが
YES 500票
NO　250票
なのではなく

ｙ
ｙ
ｙ
ｎ
ｎ
ｙ
このようにセル一つ一つある場合にはどのようにすれば円グラフでYES/75％、NO/25％というようなグラフを作れますか？
0419名無しさん＠そうだ選挙にいこう2016/05/29(日) 07:35:50.75
ピポットグラフ
0420名無しさん＠そうだ選挙にいこう2016/05/29(日) 07:50:59.79
>>418
COUNTIF
0421名無しさん＠そうだ選挙にいこう2016/05/29(日) 09:20:58.57
500票：250票のデータから75%：25%のグラフは作るのは不可能
0422名無しさん＠そうだ選挙にいこう2016/05/29(日) 10:24:46.34
>>416
※本テンプレートファイルはマクロを使用しており、お使いの環境によっては
動作しない場合がございます。

マクロ使ってるテンプレなんだからマクロでやろうな
0423名無しさん＠そうだ選挙にいこう2016/05/29(日) 10:25:41.05
>>419 >>420 あざます！

ついでにお聞きしたいのですが、「特定のセルの文字を別シートから検索して抽出」これが知りたいのですが、
多分過去に質問されてるorどこかのサイトにあると思うのですが、どうやってそのレスを見つければいいですか？
0424名無しさん＠そうだ選挙にいこう2016/05/29(日) 12:48:20.14
>>423
googleとかの検索サイトを利用するのが一般的だと思うよ
0425名無しさん＠そうだ選挙にいこう2016/05/30(月) 18:49:41.64
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
セルに入力データの規則にリストを使用している場合で、かつリストの参照先がそのブック(Book1)中のシートの1つの列になっています。
そのセルを別のブック(Book2)のシートにコピーすると、リストの参照先がBook1のシートになってしまいます。
Book2のシートを参照させたい場合に、セル中の数式であれば一括置換で対応できるのですが、入力データの規則のため置換の方法が思いつきません。何か良い方法はありませんか？
0426名無しさん＠そうだ選挙にいこう2016/05/30(月) 19:30:09.64
>>425
相対参照でもダメ？
indirectなら確実だろう
0427名無しさん＠そうだ選挙にいこう2016/05/30(月) 20:16:57.63
>>426
ありがとうございます。indirectでやってみます。
0428名無しさん＠そうだ選挙にいこう2016/05/31(火) 01:19:14.51
>>404
ｱﾘｶﾞﾄﾝ
はじめの10こいじれば残りコピペでいいかと思ったら
一個一個別のシートから持ってくる仕組みでそのままコピペできないorz
オセットかそのまま手作業にします
0429名無しさん＠そうだ選挙にいこう2016/05/31(火) 03:18:26.53
①
b1 5
b2 2
b3 6
・・・・
とb列にランダムに数字を足していきます。
そして100になった時、A1に999を入れたいといった時


通常はA1のセルに関数を入力するでしょうが
A1のセルには何も入力せず、別のセルにこの条件を満たしたときにA1に999を入れる式を入れたいのですが
どんな関数が用いられますか？
できるならマクロは使いたくないです。

②ある表を作り、何も手を加えてない状態をＡとします。
そこから手を加えたり改変したりしてまたＡの状態に戻すという動作はどうしたらよいでしょう？
Ａの状態で保存しておいてロードという方法ならできますが、それをせずにやりたい場合です。
0430名無しさん＠そうだ選挙にいこう2016/05/31(火) 03:55:29.78
>>429
＞ ②ある表を作り、何も手を加えてない状態をＡとします。
＞ そこから手を加えたり改変したりしてまたＡの状態に戻すという動作はどうしたらよいでしょう？
＞ Ａの状態で保存しておいてロードという方法ならできますが、それをせずにやりたい場合です。

マクロ使わないでやるとしたらExcelの変更履歴機能を使ってみるとか？

Excelの「変更履歴」機能を使いこなそう
http://allabout.co.jp/gm/gc/297720/
0431名無しさん＠そうだ選挙にいこう2016/05/31(火) 07:07:43.17
>>429
数式無いセルに値を表示させるならマクロ必須
0432名無しさん＠そうだ選挙にいこう2016/05/31(火) 08:54:43.11
>>429
・表示だけそれっぽくみせかけるなら条件付き書式
普段は白文字で
=sum(b:b)>100
の時に黒文字
・実際に値を入れない
ならvba
0433名無しさん＠そうだ選挙にいこう2016/05/31(火) 13:09:46.62
Day_初日 = Day_日付 - Weekday(Day_日付, vbTuesday) + 1
これだと先週の初日が金曜だと引っ掛かりませんか？
これの式の解説をしてもらえませんか？
0434名無しさん＠そうだ選挙にいこう2016/05/31(火) 13:11:08.12
ちょっと質問なんですが
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

名前の定義であらかじめ作ったリストに名前を付けておいて
次にそれを入力規則使ってプルダウンから選べるようにした時に
プルダウンから選んだものによってそのセルのコメントが変化する
(選んだものに対応するコメントになるようにVLOOKUP的なイメージで)
ってやりたいなと思ったんですけど

これってやっぱりvba使わないと無理ですか？
0435名無しさん＠そうだ選挙にいこう2016/05/31(火) 13:14:23.69
>>434
無理ではない
04364342016/05/31(火) 13:20:56.89
>>435
マジですか！すごい

もうちょっと調べてみることにみます
0437名無しさん＠そうだ選挙にいこう2016/05/31(火) 13:34:31.04
無理しっしよ
0438名無しさん＠そうだ選挙にいこう2016/05/31(火) 14:35:10.86
コメントの操作はvbaじゃないと無理だろう
0439名無しさん＠そうだ選挙にいこう2016/05/31(火) 15:30:32.18
どなたか433をお願いします。
0440名無しさん＠そうだ選挙にいこう2016/05/31(火) 16:23:01.04
>>433
質問の意図がよく分からないけど
金曜日を週の初日として扱いたいなら
以下のようにすればいいだけなのでは？

Day_初日 = Day_日付 - Weekday(Day_日付, vbFriday) + 1


日付型のシリアル値は、数値に置き換えると
1899年12月30 日を基点とした経過日数（整数部が日数、小数部が時刻）となるので
上記の式は、“Day_日付”の週の第 1 日目からの経過日数を減算しているだけ

Date データ型
https://msdn.microsoft.com/ja-jp/library/office/gg278460.aspx
Weekday 関数
https://msdn.microsoft.com/JA-JP/library/office/gg264334.aspx
0441名無しさん＠そうだ選挙にいこう2016/06/01(水) 02:43:33.11
>>429です。

>>430
どうもありがとうございました。
ちなみにマクロでやる場合はどうなりますか？

>>431
>>432
実際にいれないとしたらマクロ使用しないと無理ですか。
どうもありがとうございました。
0442名無しさん＠そうだ選挙にいこう2016/06/01(水) 06:26:59.40
>>441
例えばこんなコードを
シートモジュールに書き込む

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(2)) Is Nothing Then
If WorksheetFunction.Sum(Columns(2)) > 100 Then
Cells(1, 1) = 999
Else
Cells(1, 1) =
04434422016/06/01(水) 06:28:22.50
コピペミスった
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(2)) Is Nothing Then
If WorksheetFunction.Sum(Columns(2)) > 100 Then
Cells(1, 1) = 999
Else
Cells(1, 1) = ""
End If
End If
End Sub
0444名無しさん＠そうだ選挙にいこう2016/06/01(水) 13:15:34.18
excel for mac 2011 14.6.3を使っています。

特定の文字列ではなく、とにかく文字列全てをNAに置換する方法はあるでしょうか？
データ入力の過程で、数値にできないものは入力者がそれぞれ
異なった文字列を入れているのですが、それらを一括でNAにしたいのです。
ISTEXTなどを考えたのですがうまく応用できませんでした。
0445名無しさん＠そうだ選挙にいこう2016/06/01(水) 13:57:18.20
>>444
LENとISTEXT併用じゃ？
0446名無しさん＠そうだ選挙にいこう2016/06/01(水) 14:12:06.85
ジャンプで定数-文字選んで＃N/A入力してctrl+enterとかでいけるんじゃない
0447名無しさん＠そうだ選挙にいこう2016/06/01(水) 14:33:06.22
Excel？今はそう呼ぶのかい…昔は『 Lotus 1-2-3 』と言ってだな [無断転載禁止](c)2ch.net [247120801]
http://hit omi.2ch.net/test/read.cgi/poverty/1464758143/
0448名無しさん＠そうだ選挙にいこう2016/06/01(水) 18:35:31.85
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】 使えません
【4 VBAでの回答の可否】 可
　　　5/28　5/29　5/30　5/31
田中　ああ　　　　いい
中田　　　　うう　うう
鈴木　　　　ああ　　　　ああ
佐藤　ああ　ああ　ああ　ああ　
斉藤　ええ　　　　　　　ええ
なんらかの文字が入ってあるセルを基準に日付を別の場所(同じシート内)に表示したいのですが、どのようにすればよろしいでしょうか？
04494882016/06/01(水) 18:37:17.72
説明不足ですみません
田中　5/28　5/30
中田　5/29　5/30
などという風にしたいです
0450名無しさん＠そうだ選挙にいこう2016/06/01(水) 19:04:28.44
>>448
　　　　5/28　5/29　5/30　5/31
田中　ああ　　　　　いい
中田　　　　　うう　　うう
鈴木　　　　　ああ　　　　　ああ
佐藤　ああ　ああ　 ああ　ああ
斉藤　ええ

↓
田中の5/28のセルがb2として、それを表示させる作業列を作る
↓

　　　　5/28　5/29　5/30　5/31
田中　＝if(b2<>"",b2,"")

↓
行列を入れ替えて値で貼り付け
↓
　　　　　田中　中田
5/28　　5/28
5/29
5/30　　5/30

後はフィルタをかけてコピーして貼り付け
0451名無しさん＠そうだ選挙にいこう2016/06/01(水) 19:27:18.38
>>450
＞田中の5/28のセルがb2として、それを表示させる作業列を作る
ここの部分があまり理解できないのですが、どこにどういうものを作るのですか？
それと＝if(b2<>"",b2,"") も試してみたのですが、入力した数式は正しくありませんと表示されてできませんでした。
0452名無しさん＠そうだ選挙にいこう2016/06/01(水) 19:41:01.18
>>451
http://www.dotup.org/uploda/www.dotup.org885495.png
こんな感じ
作る場所は右でもしたでも別シートでもどこでもいい

式間違えててたわ
=IF(B2<>"",B$1,"")

あとフィルタじゃなくて並び替えだった
0453名無しさん＠そうだ選挙にいこう2016/06/01(水) 19:45:32.01
Excelで
=A-B^C*D*E*(F+G)
とした場合、
ちゃんと必ずB^C(※1)とF+G(※2)を先にやって、その後に※1とDとEと※2をかけて、最後にAから引いてくれるのでしょうか？
四則演算はともかく、主に^のあたりが少しだけ不安なのですが
0454名無しさん＠そうだ選挙にいこう2016/06/01(水) 19:49:31.95
>>453
ちゃんとやるってかそれぐらい試したほうが早いと思う
0455名無しさん＠そうだ選挙にいこう2016/06/01(水) 19:56:26.29
>>454
5～6回数値変えて試したけど、まあ大丈夫そうだった
むしろ「大丈夫そう」ってのが一番不安

現在入れてる計算式が
=IF(ISERROR(MATCH(128,DT1:DT91,0)),0,MAX(1,INT(MAX(1,GW197)*2^INDEX(FT3:FT35,MATCH(128,DT1:DT91,0),1)*GW202*GW207)-GX205))
なんだけど

この「2＾INDEX～」の^を、ちゃんと手前と後の*より先にやってくれるかどうかが不安で
かといって、^を括弧でくくるとただでさえ悪い可読性が余計・・・
作業セルに分解するにも、実はこれ自体が複雑に重なってる作業セルの1部でこれ以上分解するとメンテナンス出来なくなるという状況・・・
0456名無しさん＠そうだ選挙にいこう2016/06/01(水) 20:24:02.91
>>455
括弧つければ？
どうせ見難いんだから
0457名無しさん＠そうだ選挙にいこう2016/06/01(水) 20:36:25.11
>>455
Excel の数式の概要
https://support.office.com/ja-jp/article/Excel-%E3%81%AE%E6%95%B0%E5%BC%8F%E3%81%AE%E6%A6%82%E8%A6%81-ecfdc708-9162-49e8-b993-c311f47ca173#BK_Calccs

＞ 計算が処理される順序は既定で決められていますが (一般的な数学の規則に従って計算されます)、
＞ かっこを使用してこの既定の順序を変更することができます。

　　と、あるし大丈夫と思うけど

＞ Excel の数式の演算子の優先順位
＞　～

　　↑付近にも演算子の優先順位が書いてあるから読むといい
0458名無しさん＠そうだ選挙にいこう2016/06/01(水) 20:44:13.59
とりあえず、みなさんありがとう
不安感ってやっぱり人に吐かないと払拭できない物で

まあ、判ってはいるんですよ・・・正しい計算結果が来るって
自分の書いた式が間違ってたらどうしよう？
何度も式をチェックして間違いがない事を確信したけど
今度はExcelさんが計算順序を間違えたらどうしよう・・・って不安に
0459名無しさん＠そうだ選挙にいこう2016/06/01(水) 22:23:10.11
手で計算した値と、
別言語での計算値と、
エクセルでの計算値を比較して検証すればいいだろ。

ってか検証しないでどうやってOKって言うんだよｗ
0460名無しさん＠そうだ選挙にいこう2016/06/02(木) 04:38:57.86
>>452できました！
ありがとうございます！
0461名無しさん＠そうだ選挙にいこう2016/06/02(木) 04:46:50.14
>>458
それに不安障害の一種だから精神科の病院に行って治療を受けなさい
0462名無しさん＠そうだ選挙にいこう2016/06/02(木) 08:04:32.65
他人が検算して間違える例もあるから自己解決するしかない
昨日、入力数から残りの数計算して、残りの数と違うとなってもめて
入力した奴が一部入力を漏れさせていたと発覚したが残りの数を数えて違うと言われた
おばちゃんが不安がっていたなんてことを思い出した

入力漏れしたのは俺だがな
0463名無しさん＠そうだ選挙にいこう2016/06/02(木) 08:28:35.13
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】 使えません
【4 VBAでの回答の可否】 否

>>448の続きなのですが

　　A B C D E F
1　 5/28 5/29 5/1
2　　 5/29 5/2
3　 5/30 5/2

A行に今日の日付もしくはそれ以下を表示させたいのですが、関数が組めずに困ってます。
どうかお力をお貸しください。
0464名無しさん＠そうだ選挙にいこう2016/06/02(木) 08:31:27.50
修正

　A　　B　　C　　D　　E　　F
1　　5/28　5/29　　　5/1
2　　　　　5/29　　　　　 5/2
3　　　　　　　5/30　　　　5/2
0465名無しさん＠そうだ選挙にいこう2016/06/02(木) 11:01:03.78
>>463-464
質問の意図も内容もわからん
何が聞きたいのかもっと具体的に

AAで手を抜くな
伝わりにくすぎ
463にしても464にしても表が見づらいし、意味が分からん
こういうのは手打ちしたXLSXファイルなり、それを撮ったキャプチャ画像なりをアップローダーにアップして、URL載せろ
0466名無しさん＠そうだ選挙にいこう2016/06/02(木) 11:21:16.85
>>463
「A行」って言い方もおかしい
エクセルでは「行」と言ったら縦方向（1,2,3,…）のことを指す
横方向（A,B,C,…）は「行」ではなく「列」という
だから正しくはA列なんだけど、
ここを間違えられちゃうと回答する側からすると
「もしかするとこの質問者は「1行」と「A列」を取り違えてるのか」
とかいろいろ気を使わないといけなくなる
0467名無しさん＠そうだ選挙にいこう2016/06/02(木) 11:42:26.00
まぁわかる人だって居るわけだから
わからない人はスルーすればいいだけでしょ
0468名無しさん＠そうだ選挙にいこう2016/06/02(木) 11:46:32.46
>>465-466
すみませんでした。こちらです
http://iup.2ch-library.com/i/i1655648-1464835511.png
0469名無しさん＠そうだ選挙にいこう2016/06/02(木) 12:01:32.65
>>468
MAX
0470名無しさん＠そうだ選挙にいこう2016/06/02(木) 12:08:02.77
>>469
MATCHも併用
0471名無しさん＠そうだ選挙にいこう2016/06/02(木) 12:11:06.77
もちろんTODAYもね
0472名無しさん＠そうだ選挙にいこう2016/06/02(木) 12:35:41.31
朝。
さんさんと照り付ける太陽がS2715Hに映り込む。
純度100%のグレアモニター、S2715Hに自分の影がシャープに映り込むと、一日が始まる。
見ているものが正確で、映っているものは色が正確で、光量も正確。
よい生活はよい製品から得られる。
0473名無しさん＠そうだ選挙にいこう2016/06/02(木) 13:06:54.81
>>468
配列数式使って
{=MAX(IF(C1:N1<=TODAY(),C1:N1,0))}
でいいかな
0474名無しさん＠そうだ選挙にいこう2016/06/02(木) 13:51:23.08
>>473 ありがとうございました！！
0475名無しさん＠そうだ選挙にいこう2016/06/02(木) 21:26:34.84
【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel２０１０
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

VBAを使ってブックに名前（保存日とセルB3）をつけて保存できるようにしたのですが、
シート０００１をyyyymmddと変更することができませんでした。
ブックでは名前（yyyymmdd)をつけて保存はあるのですが、ワークシートが見つかりません
でした。

Sub test2()

Dim Save_File, Save_Filename As String

'名前を付け保存するファイル名の初期設定
Save_Filename = Format(Now(), "yyyymmdd-hhmm") & range("B3")

'「名前を付けて保存する」ダイアログボックスの表示
Save_File = Application.GetSaveAsFilename(Save_Filename, _
FileFilter:="Excelファイル,*.xlsx,すべてのファイル,*.*")

'名前を付けて保存する
ActiveWorkbook.SaveAs Filename:= _
Save_File, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub

http://fast-uploader.com/file/7020425218782/
助言、お願いします。
0476名無しさん＠そうだ選挙にいこう2016/06/02(木) 21:55:01.29
>>475
SaveAsでFileFormat:=xlNormalを指定しているせいで
拡張子がxlsxにも関わらずxls形式(Excel 97-2003)で保存されてますね
そのせいでファイルがOpen出来ないようです。

FileFormat:=xlOpenXMLWorkbook (xlsx形式)に変更してみては？
0477４７５2016/06/02(木) 22:34:26.34
>>476
　ご指摘ありがとうございます。
FileFormat:=xlNormalをxlWorkbookDefaultに変更しました。
名前をつけて保存した場合、マクロ無効にしています。VBAに
詳しいユーザーがほとんどいませんし。難しいです。
0478名無しさん＠そうだ選挙にいこう2016/06/03(金) 05:34:40.18
１．３．４．９
４．３．２．４．A
１．７．４．８
２．４．６．６
３，８．９．１
８．７．３．４．B．９．１
７．７．３．６
５．０．６．２
３．４．８．７
５．５．３．３．A．８．２

セルAからセルDまで数値が入ってます。

セルEに条件がそろうとA、B交互にサインが出ます。

そのサインの間の数値の最大値（セルF）と最小値（セルG）が出るようにしたいです。

Excel２０１３です。
よろしくお願いします。
0479名無しさん＠そうだ選挙にいこう2016/06/03(金) 08:59:02.48
>>478
2行めから始まってるとして
H2=IF(E1="",MAX(A2:D2,H1),MAX(A2:D2))
I2=IF(E1="",MIN(A2:D2,I1),MIN(A2:D2))
F2=IF(E2<>"",H2,"")
G2=IF(F2<>"",I2,"")
下にオートフィル
0480名無しさん＠そうだ選挙にいこう2016/06/03(金) 11:52:55.22
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 使えません
【4 VBAでの回答の可否】 否

シートA
山田
山田
山田
田中
田中
佐藤

というデータがあったとしてこの時2回以上登場してる名前（この場合山田と田中）
をシートBに抽出したいのですがどのような計算式になるのでしょうか？
お手数ですが助言お願いします。
0481名無しさん＠そうだ選挙にいこう2016/06/03(金) 12:01:16.92
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】 ほぼ知識なし
【4 VBAでの回答の可否】 可

Webサイトを自動で更新したいのですが、毎回URLが変わるため、
変わる場所のデータを読み込むためのマクロなのですが、どうしても↓の部分がうまくできません。
http://iup.2ch-library.com/i/i1656034-1464896090.png

一、開催場所別にシートを分けているので、それぞれ会場のシートに１２レース分表示したい(A１セル１レース目、E１セル２レース目...と順に横にずれてほしいです)。

一、開催場所でレースがない場合は、webサイト自体ない(エラーが起きる)のでwebサイトがないエラーが起きた時には、A1セルに本日のレースはありませんと表示したい

一、レース番号は引数取得ではなくループ処理にしたいのですが、For Lng_レース = 1 To 12これをどこに入れればいいか、わかりません。

長いので２レスに分けさせてください。
0482名無しさん＠そうだ選挙にいこう2016/06/03(金) 12:03:31.25
Sub 桐生(Day_日付 As Date, Lng_場 As Long, Lng_初日 As Long)
Dim Str_アドレス As String
Str_アドレス = "FINDER;http://app.boatrace.jp/race/"; & Format(Lng_レース, "00")
Str_アドレス = Str_アドレス & "_" & Format(Lng_初日, "yyyymmdd")
Str_アドレス = Str_アドレス & ".php?day=" & Format(Day_日付, "yyyymmdd")
Str_アドレス = Str_アドレス & "&jyo=" & Format(Lng_場, "00")
Str_アドレス = Str_アドレス & "&rno=" & Format(Lng_レース, "00") & "&type=program"
Sheets("桐生").Select
Cells.Delete Shift:=xlUp
With ActiveSheet.QueryTables.Add(Connection:=Str_アドレス, Destination:=Range("A1"))
.Name = "Data"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingAll
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
0483名無しさん＠そうだ選挙にいこう2016/06/03(金) 12:04:23.85
自分なりにアレンジしてみたのですが、ダメでしたので、お力を貸してください。
宜しくお願い致します。
0484名無しさん＠そうだ選挙にいこう2016/06/03(金) 13:21:48.71
>>480
今Excel無いので第一段階だけ

A1から下に名前があるとし
B1に、=IF(COUNTIF($A$1:A1,A1)=2,A1,"")　下にコピー

あとは空白セルを詰めシートBにリンクさせる
0485名無しさん＠そうだ選挙にいこう2016/06/03(金) 15:38:27.03
>>481
こんな感じ？

Sub 桐生(Day_日付 As Date, Lng_場 As Long, Lng_初日 As Long)
　　Dim Str_アドレス As String
　　Dim Rng_出力先 As Range
　　Sheets("桐生").Select
　　Cells.Delete Shift:=xlUp
　　Set Rng_出力先 = Range("A1")
　　For Lng_レース = 1 To 12
　　　　Str_アドレス = "FINDER;http://app.boatrace.jp/race/"; & Format(Lng_場, "00")
　　　　Str_アドレス = Str_アドレス & "_" & Format(Lng_初日, "yyyymmdd")
　　　　Str_アドレス = Str_アドレス & ".php?day=" & Format(Day_日付, "yyyymmdd")
　　　　Str_アドレス = Str_アドレス & "&jyo=" & Format(Lng_場, "00")
　　　　Str_アドレス = Str_アドレス & "&rno=" & Format(Lng_レース, "00") & "&type=program"
　　　　
　　　　Call レース情報出力(Str_アドレス, Rng_出力先)
　　　　Set Rng_出力先 = Rng_出力先.Offset(0, 4)
　　Next
End Sub

Sub レース情報出力(Str_アドレス As String, Rng_出力先 As Range)
On Error GoTo Error_Exception
　　With ActiveSheet.QueryTables.Add(Connection:=Str_アドレス, Destination:=Rng_出力先)
　　　　(～長いので省略：実際の処理は自分でコピペしてね～)
　　End With
　　Exit Sub
Error_Exception:
　　Debug.Print Err.Number; "->"; Err.Description 'エラー内容
　　Rng_出力先.Value = "本日のレースはありません"
End Sub
0486名無しさん＠そうだ選挙にいこう2016/06/03(金) 16:25:41.63
>>485 ありがとうございました！！！
0487名無しさん＠そうだ選挙にいこう2016/06/03(金) 18:10:44.58
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 2010
【3 VBAが使えるか　 　 .】 使える
【4 VBAでの回答の可否】 使わなくていい方法が知りたい

http://www.xxxx/01.html
http://www.xxxx/02.html
http://www.xxxx/03.html ...
みたいなリストがあって、これを貼付けて
ぞろっと一括でハイパーリンクにするってできるのですかね
単純に貼りつけてもただの文字列になってリンクしない
VBAでIE起動してセルをクリックすればリンク開くみたいな
面倒くさいコード書くしかないのかな?
0488名無しさん＠そうだ選挙にいこう2016/06/03(金) 18:12:26.74
>>487
=hyperlink("http://www.xxxx/";&row()&".html")
とか
それにしてもクリックスル必要がある
クリックが嫌ならvbaしかないだろうな
04894872016/06/03(金) 18:33:38.56
でけた！
hyperlink関数ってあんだな
ありがとう大変役に立ちました
0490名無しさん＠そうだ選挙にいこう2016/06/03(金) 20:24:27.37
>>480

>>484の続き
シートA
B1 =IF(COUNTIF($A$1:A1,A1)=2,A1,"")
C1 =IF(B1="","",ROW())
D1 =IF(C1="","",RANK(C1,C:C,1))
E1 =IFERROR(MATCH(ROW(),D:D,0),"")
F1 =IFERROR(INDIRECT("B"&E1),"")

シートB
A1 =シートA!F1

各式を下にコピー
0491名無しさん＠そうだ選挙にいこう2016/06/03(金) 20:32:30.20
【1 OSの種類 　 　 　 　 .】 Windows 7
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

８桁で入力したデータの下６桁だけ表示するような表示形式はあるでしょうか。
　1998年10月20日→19881020と入力→881020と表示
　2016年_6月_4日→20160604と入力→160604と表示

日付の形式で入力すれば良いと言われそうですが、
従来の方法で入力したデータが多数(十数万)有るのと、
月や日が不明な分に互換性のある適当な方法がわからないので。
(2012年?月?日は 20120000、2013年9月?日は 20130900 にしている)

YYMMDDスタイルの表示形式で月日が不明な分を00とし、
通常の値と一緒にソート可能な表示形式はあるでしょうか。
0492名無しさん＠そうだ選挙にいこう2016/06/03(金) 20:44:52.56
>>491
多分無理
5/1の前日、5/0は4/31扱い
mid()などで取り出して文字列扱いとするしか無いだろう
0493名無しさん＠そうだ選挙にいこう2016/06/04(土) 07:24:19.70
4月31日って、あーた
0494名無しさん＠そうだ選挙にいこう2016/06/04(土) 07:25:36.12
【1 OSの種類 　 　 　 　 .】 Windows 7
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

A列の最終行を確認してもし最終行が1500以下なら１行目を削除みたいなマクロを組みたいのですが

Set r = Range("A1").End(xlToDown).Column
If r < 1500 Then
Range.Cell(1:1).Delete

自分なりに作っては見たのですができません。アドバイスくだはい。
0495名無しさん＠そうだ選挙にいこう2016/06/04(土) 07:38:02.37
>>490　横レス失礼
484で、あとは空白セルを詰め・・・と書いてあり興味もちました

単純ですが私にはその発想はなく勉強になりました
0496名無しさん＠そうだ選挙にいこう2016/06/04(土) 07:41:48.41
>>494
惜しい
Columnは列(横方向)、行(縦方向)はRow
Setを使うのは右辺がRangeなどセルの場所を示す場合、Row(行の番号)は数値だからSetは使わない
xlToDownはxlDownのミス
RangeとCellsはだいたい同じ意味なのでどっちか片方だけにする

r = Range("A1").End(xlDown).Row
If r < 1500 Then
　　Range("A1").Delete
End If
0497名無しさん＠そうだ選挙にいこう2016/06/04(土) 07:50:35.24
>>496 わかりやすい説明までありがとう！
0498名無しさん＠そうだ選挙にいこう2016/06/04(土) 08:06:32.64
>>494
> Set r = Range("A1").End(xlToDown).Column
みたいなコード書く奴が
> 【3 VBAが使えるか　 　 .】 いいえ
って意味わからんし
そもそも
> マクロを組みたいのですが
> アドバイスくだはい。
って言うなら VBA スレに行けよ

VBAなんでも質問スレ Part2 [転載禁止]&#169;2ch.net
http://echo.2ch.net/test/read.cgi/tech/1432173164/

Excel VBA 質問スレ Part41&#169;2ch.net
http://echo.2ch.net/test/read.cgi/tech/1461697906/
0499名無しさん＠そうだ選挙にいこう2016/06/04(土) 10:10:38.76
>>498
vba使えてないじゃん
0500名無しさん＠そうだ選挙にいこう2016/06/04(土) 10:19:12.83
質問者はもう見てないだろう
今更どうこう言っても意味無いと思う
0501名無しさん＠そうだ選挙にいこう2016/06/04(土) 14:45:21.40
>>496
惜しい
1行目を削除ならRangeよりもRowsのほうがいい
（てか>>496だと1行目を消せてない）

r = Range("A1").End(xlDown).Row
If r < 1500 Then
　　Rows(1).Delete
End If
0502名無しさん＠そうだ選挙にいこう2016/06/04(土) 18:21:03.15
>>491データの下６桁だけの列を作ればいいんですよね？

=RIGHT(A1,6)
0503名無しさん＠そうだ選挙にいこう2016/06/04(土) 19:51:05.95
>>502
天才現る！
脱帽
0504名無しさん＠そうだ選挙にいこう2016/06/05(日) 10:18:38.14
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

例えば1/10の確率で1が出て、1/15の確率で2が出て、
それ以外の場合は3が出るセルを作りたいんですが
どうしたら良いのでしょうが？
回答お願いします。
0505名無しさん＠そうだ選挙にいこう2016/06/05(日) 10:54:54.85
>>504
=CHOOSE(RANDBETWEEN(1,30),1,1,1,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3)
0506名無しさん＠そうだ選挙にいこう2016/06/05(日) 11:09:42.42
>>505
うまいけど見た目で笑った
05075042016/06/05(日) 11:15:07.13
>>505
ありがとうございます。
確率分母が1000、2000と増えた場合の方法もご教授お願いします。。。
05085042016/06/05(日) 11:18:09.03
作業列などを使う方法でも構いません。
1/258の確率で1が出て、1/1229の確率で2が出て、
それ以外の場合は3が出るセルを作りたい場合の回答をお願いします。。。
0509名無しさん＠そうだ選挙にいこう2016/06/05(日) 11:20:06.45
>>507
1000個なら長い文字列からMIDで取り出す
2000個なら作業列にデータを並べて乱数で行番号を決める
0510名無しさん＠そうだ選挙にいこう2016/06/05(日) 11:22:09.02
そんなんVBAで関数を自作した方が早いだろ
0511名無しさん＠そうだ選挙にいこう2016/06/05(日) 11:27:13.85
　【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
05125042016/06/05(日) 11:34:51.76
です。。
VBAは使えません。。
よろしくお願いします。
0513名無しさん＠そうだ選挙にいこう2016/06/05(日) 11:44:43.45
0/258*1229～258/258*1229で1
259/258*1229～258+1229/258*1229で2
それ以外で3
ってのを考えたけど多分これ小数誤差起こるな
0514名無しさん＠そうだ選挙にいこう2016/06/05(日) 12:06:47.81
=IF(INT(RAND()*10)+1)=1,1,0)
=IF(INT(RAND()*258)+1)=1,1,0)
=IF(INT(RAND()*1229)+1)=1,1,0)
05155042016/06/05(日) 14:47:15.51
VBAを使わないと難しいのですね。。。
0516名無しさん＠そうだ選挙にいこう2016/06/05(日) 14:59:08.87
ｽﾞｺｰ
0517名無しさん＠そうだ選挙にいこう2016/06/05(日) 18:24:58.21
>>515

>>513がかなり良い線いってると思う
要するに 258 と 1229 の最小公倍数をとって、それで乱数作って場合分けすればいいんだよね
（あいにく 1229 が素数なので、最小公倍数でも 258 * 1229 ＝ 317082になってしまうけど）

RANDBETWEEN(1,317082)

これで
1 ～ 1229のときに 1、
1230 ～ 1487 のときに 2、
1488 ～ 317082 のときに 3、
と場合分けすれば、それぞれの確率は
1 / 258 (≒ 0.39%) で 1、
1 / 1,229 (≒ 0.08%) で 2、
それ以外 (315,595 / 317082 ≒ 99.53%) で 3、
となる
05185042016/06/05(日) 19:02:19.90
>>517
ありがとうございます。
勉強になりました。
0519名無しさん＠そうだ選挙にいこう2016/06/05(日) 19:17:28.91
というか、いつも思うのだけど、>>504（508）って何をやりたいんだろ・・
そっちを想像するほうがwktkするｗ
0520名無しさん＠そうだ選挙にいこう2016/06/05(日) 19:23:24.88
そもそも乱数ってけっこう偏りがあって、1/258の確率で1が出るなんて器用なことができるの？
0521名無しさん＠そうだ選挙にいこう2016/06/05(日) 20:35:11.57
>>514
乱数は1回にしないと答えが出ない場合が出てくる
0522名無しさん＠そうだ選挙にいこう2016/06/05(日) 20:38:14.27
つまりこういうこと

A1=RANDBETWEEN(1,317082)
B1=IF(A1<=1229,1,IF(A1<=1487,2,3))
0523名無しさん＠そうだ選挙にいこう2016/06/05(日) 22:30:53.46
どういう用途で乱数を必要とするのかわからないが・・
http://www001.upp.so-net.ne.jp/isaku/rand.html
0524名無しさん＠そうだ選挙にいこう2016/06/05(日) 22:46:43.53
全角漢字カタカナひらがなはそのまま全角
半角ｶﾀｶﾅは全角カタカナに
全角英数は半角に
記号は。、～の３つは全角、他半角
ピリオドやカンマは半角
という変換したい
正規表現とかなんでも使ってOKなんで
ひたすら目視修正って作業から解放される方法ご教示ください

【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
0525名無しさん＠そうだ選挙にいこう2016/06/05(日) 22:51:41.82
Excelでやる作業じゃないね
0526名無しさん＠そうだ選挙にいこう2016/06/05(日) 23:00:55.03
>>524
vbaだな

>>525
思いっきりエクセル向けの作業じゃんｗ
0527名無しさん＠そうだ選挙にいこう2016/06/05(日) 23:30:21.26
>>524
VBAが使えてVBAが可ならその程度は自分でできないの？どこがわからないの？
0528名無しさん＠そうだ選挙にいこう2016/06/05(日) 23:41:03.60
>>524
A列に変換対象を入れてこれを走らせればok
もし全角の対象を増やしたい場合は以下の様な感じ
#と@を全角リストに追加するなら

[ｱ-ﾝ､｡~]
↓
[ｱ-ﾝ､｡~#@]

ここからコード
Sub a()
g = Range("A65535").End(xlUp).Row
For i = 1 To g
l = Len(Cells(i, 1))
tmp_cell = ""
For k = 1 To l
tmp_moji = Mid(Cells(i, 1), k, 1)
tmp_moji = StrConv(tmp_moji, vbNarrow)

If tmp_moji Like "[ｱ-ﾝ､｡~]" Then
tmp_moji = StrConv(tmp_moji, vbWide)
End If

tmp_cell = tmp_cell & tmp_moji
Next
Cells(i, 1) = tmp_cell
Next
End Sub
0529名無しさん＠そうだ選挙にいこう2016/06/06(月) 00:51:24.40
Excel2013なのにA65535って書いちゃう男の人って・・・
0530名無しさん＠そうだ選挙にいこう2016/06/06(月) 00:58:42.26
>>529
すまん
1040000ぐらいってことは覚えてるけど性格に覚えてないんや
1040000ってのもかっこ悪いから慣れた方で打ってるだけや
というか使ってる最終行のプロパティなんでないんや・・・
0531名無しさん＠そうだ選挙にいこう2016/06/06(月) 01:30:13.88
>>530
あるよ
0532名無しさん＠そうだ選挙にいこう2016/06/06(月) 04:26:17.25
>>530

俺は range じゃなくて cells 使ってやるけど、
最終行は rows.count だな
cells(rows.count,1).end(xlup).row
0533名無しさん＠そうだ選挙にいこう2016/06/06(月) 08:05:37.29
>>529
なんで男ってわかった？！
0534名無しさん＠そうだ選挙にいこう2016/06/06(月) 08:07:35.14
ASCで半角統一してコピペしてPHONETICで英数半角・カタカナ全角まではいけるかな。
記号３つはシート全体に置換３回でいけんじゃない。
0535名無しさん＠そうだ選挙にいこう2016/06/06(月) 09:34:28.51
>>533
そりゃわかるわよ
0536４９１2016/06/06(月) 20:51:49.19
表示桁数を増やす(1234を001234とか)のと逆の形式は無いかと尋ねた次第ですが、
やはり数値のまま表示形式で対応するのは無理ですか。
ありがとうございました。
0537名無しさん＠そうだ選挙にいこう2016/06/06(月) 21:19:19.77
【1 OSの種類 　 　 　 　 .】 Windows8.1
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

担当者名をシート名にした各シートのL列に訪問日
0538名無しさん＠そうだ選挙にいこう2016/06/06(月) 21:21:01.38
>>537
落ち着け！
0539名無しさん＠そうだ選挙にいこう2016/06/06(月) 21:27:42.88
【1 OSの種類 　 　 　 　 .】 Windows8.1
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

担当者名をシート名にした各シートのL列に訪問日"yyyy/m/d/"（空白セル、重複あり）
D列に訪問先名称

別シートのA1に担当者名を入力して今月分の訪問先
を抽出したいのですがうまくいきません。
INDIRECTを使った方法をどなたかご教示下さい。
0540名無しさん＠そうだ選挙にいこう2016/06/06(月) 22:06:41.64
ピボットテーブルつかいなはれ
0541名無しさん＠そうだ選挙にいこう2016/06/06(月) 22:10:33.87
>>539
vbaでコピーしてフィルタでいいんじゃない？
0542名無しさん＠そうだ選挙にいこう2016/06/06(月) 22:22:44.43
>>539
indirect()はめんどくさいのでvba

Sub a()
s = Cells(1, 1).Value 'a1にシート名
d = DateValue(Cells(2, 1).Value & "/" & Cells(3, 1).Value & "/" & Cells(4, 1).Value) 'a2-4に年月日
r = Sheets(s).Cells(Rows.Count, 12).End(xlUp).Row
tmp = 1
For i = 1 To r
If Sheets(s).Cells(i, 12).Value = d Then
Cells(tmp, 2).Value = Sheets(s).Cells(i, 12)
Cells(tmp, 3).Value = Sheets(s).Cells(i, 4)
tmp = tmp + 1
End If
Next
End Sub
0543名無しさん＠そうだ選挙にいこう2016/06/06(月) 22:23:55.62
>>541
VBAまるでわかりません><
0544sage2016/06/06(月) 22:39:40.03
https://www.youtube.com/watch?v=nZDsMPhj4p4
0545名無しさん＠そうだ選挙にいこう2016/06/06(月) 23:49:15.69
16620

16674
16643
16612・△
16582
16551
16520
16489

a1にリアルタイムで株価が出ています。
1分ごとに数値が変化します。

a3からa9まで移動平均があります。
こちらもリアルタイムで数値が変動しますが上から下の順番は変わりません。

a1の価格に近いa3からa9のｂ列にサイン（この場合は△）が出るようにしたいです。
a1の数値が変わればそのサインもa1に近い価格のb列セルに移動するようにしたいです。
よろしくお願いします。
0546名無しさん＠そうだ選挙にいこう2016/06/07(火) 00:15:45.33
みんな株好きねぇ
ツール探すか買うかしたほうがいいんじゃない？
0547名無しさん＠そうだ選挙にいこう2016/06/07(火) 07:51:29.69
>>539
何がうまくいかないの？

ファイルうｐしたら見てみるけど
0548名無しさん＠そうだ選挙にいこう2016/06/07(火) 07:59:14.86
差分取ってABSで絶対値出してRANKで一番小さいところ見つける感じかな。
１つのセルでやろうとすると酷い式になりそう。
0549名無しさん＠そうだ選挙にいこう2016/06/07(火) 08:58:49.70
>>546
株やってるやつって基本的に他人は信用しない
損したのは人の作ったツールのせいだから、自分でゼロから作らないと気が済まない
0550名無しさん＠そうだ選挙にいこう2016/06/07(火) 16:30:24.15
他人を信用しない → ここでの回答も信用しない　って事ね
信用してもらえないなら　かんばって回答しても アフォらしいだけだね
0551名無しさん＠そうだ選挙にいこう2016/06/07(火) 22:01:40.14
>547

=IF(COUNTIFS(INDIRECT($G$4&"!L:L"),">="&'表紙'!$A$1,INDIRECT($G$4&"!L:L"),"<="&'表紙'!$A$2)
>=ROW(T1),"",INDEX(INDIRECT($G$4&"!D:D"),SMALL(IF(INDIRECT($G$4&"!C:C")="訪問済",ROW(INDIRECT($G$4&"!L:L"))),ROW(T1))))

これを下にコピー


G4 : 担当者名
'表紙'!A1 : =DATE(YEAR(TODAY()),MONTH(TODAY()),1)
'表紙'!A2 : =DATE(YEAR(TODAY()),MONTH(TODAY())+1,1)-1

各シート
C列 : 訪問済を含むドロップダウンリスト
D列 : 営業先名称
L列 : 訪問日

L列がcountifsの指定期間かつC列が"訪問済"のみのD列を取り出したいのですがうまくいきません。。。
0552名無しさん＠そうだ選挙にいこう2016/06/08(水) 07:46:38.86
見る気がしないな

データ消して良いから、ファイルうｐ！
0553名無しさん＠そうだ選挙にいこう2016/06/08(水) 10:48:21.52
>>545

それだけじゃ何とも
どーやってサイン出してるのさ
「1分おき」ってどうやって1分に区切ってるの

if サイン条件　= true then
Cells(X,B) = "△"　
End if

1分経過の条件式 = true then
Cells(X-1,B) = "△"　
Cells(X,B).clear
End if


楽天RSSだとしたら、あれの生データから分足取るのかなり面倒くさい筈
それができる人ならそんなん朝飯前だと思うけどな
0554名無しさん＠そうだ選挙にいこう2016/06/08(水) 11:22:19.49
すみませんちょっと質問なんですが
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

条件付き書式の設定してあるセルに他からデータを値貼り付けした際
条件付き書式が誤作動のような感じになるんですがこれって仕様でしょうか

条件付き書式は
1番「値が0なら背景色を塗りつぶしなしにする」
2番「値が実績セル($Z11と指定しています)以上であれば背景をピンクにする」
というものが縦1列っぽく並んでいるんですが(実際にはBA11:BA757まで)
そこに余所から取ってきたデイリーの成績データを毎日、値で貼り付けているんですが
値貼り付けした直後は0でもピンクになっているセルがあちこちにかなり多くあり
(正常に動作して塗りつぶされていない0のセルもそこそこある)
実績以上のセルに関しては見てる感じ全部バッチリピンクになっています
また、0でピンクになっているセルも一度F2を押してエンターで確定させると塗りつぶしなしに戻ります
(セルが多いので空白セルをコピーしてからまとめて値の合算貼り付けで対応しています)

値貼り付けしたセルの書式設定を見ても「数値」になっていて文字列にはなっていないのですが
これはExcelとしての仕様みたいなもので改善は不可能でしょうか
0555名無しさん＠そうだ選挙にいこう2016/06/08(水) 11:29:46.18
>>554
シート上に計算式が多いんじゃない？
シートが重くて再計算されてないような気がする。
F9押せばいいけど、それよりも数式まとめたほうがいいかもしれない
05565542016/06/08(水) 12:45:17.50
>>555
おっしゃる通り計算式はかなり多いんですが
F9押しても何も起こらないし左下にも「再計算」とかは出てないです・・・

ちなみに同じ条件付き書式のあるセルからの値貼り付けならば問題ない感じです
値の貼り付けは書式はスルーしてくれると思っているので
条件付き書式だけの仕様なのかなとか思っているんですが・・・
0557名無しさん＠そうだ選挙にいこう2016/06/08(水) 12:53:28.22
=TYPE(A1) で値の型を確認してみて
0558名無しさん＠そうだ選挙にいこう2016/06/08(水) 13:30:12.06
「余所から取ってきたデイリーの成績データ」これが文字列だね。
Ｆ２とエンターで数字に換わるから、正常な書式になる。

値を貼り付けたあと、データがセルの左よりに位置してない？


そもそも自分のミスの可能性が高いのに、仕様とか誤作動とかエクセルに失礼。
0559名無しさん＠そうだ選挙にいこう2016/06/08(水) 13:41:53.07
>>552

https://docs.google.com/spreadsheets/d/17z9mriRMIBHqYiyoLb8mZyJVseORloqgZqpQAS6N9u4/edit?usp=sharing

お願いしますm(＿)m
05605542016/06/08(水) 15:04:59.15
>>557-558
TYPE関数というものを初めて使いましたが2と1とそれぞれあって
たしかに2の部分だけ条件付き書式がおかしくなっているみたいです

なお全部のセルが右寄せになっていましたが
これも解除してみたところ問題のセルだけ左寄せな表示になりました

おかげさまで自己解決できました本当にありがとうございます
0561名無しさん＠そうだ選挙にいこう2016/06/08(水) 17:27:59.33
自己解決じゃねーだろクズすげーなお前
0562名無しさん＠そうだ選挙にいこう2016/06/08(水) 18:17:26.36
余所からのデイリーのデータって、普通はCSVのようなテキストファイルだろ
拡張子確認してみ
0563名無しさん＠そうだ選挙にいこう2016/06/08(水) 20:31:45.84
上限値を固定して値を足していって0になったら0に固定
という式を作りたいのですが訳が分からな過ぎるので助けてください

A1の値が300　B列を足していくのですが301以上にはならない設定です

B列
30 +300=300
-120 +300=180
10 +180=190
-20 +190=170
70 +170=240
-30 +240=210
190 +210=300
330 +300=300
140 +300=300
270 +300=300
-270 +300=30
-20 +30=10
-30 +10=0
-150 +0=0
200 +0=0

と計算される式をC1に置きたいです　説明下手ですがよろしくお願いします
0564名無しさん＠そうだ選挙にいこう2016/06/08(水) 20:49:14.09
>>563
=IF(B1+300>300,300,B1+300)
0565名無しさん＠そうだ選挙にいこう2016/06/08(水) 20:50:08.29
>>564
間違った
0566名無しさん＠そうだ選挙にいこう2016/06/08(水) 21:11:45.41
>>563
こうゆう事?

A1　=300
B列 加算する数値
として

C1　=IF(A1+B1>300,300,A1+B1)

A2　=C1
C2　=IF(C1=0,0,IF(A2+B2>300,300,A2+B2))

A2 と C2を下にオートフィル
05675632016/06/09(木) 00:02:09.20
言葉足らずでした
a1は300で計算の結果をc1に
a2には別の値があってその計算結果もc2に欲しいです
それを以降7000行分行いたいのです
0568名無しさん＠そうだ選挙にいこう2016/06/09(木) 00:05:14.59
ホント、このスレって質問者は何を聞きたいかすら具体的に言えない馬鹿だらけで、
解答者は質問者の意図度外視して適当に解答するゲスパーだらけだな
0569名無しさん＠そうだ選挙にいこう2016/06/09(木) 00:07:24.00
>>568
自己紹介乙
0570名無しさん＠そうだ選挙にいこう2016/06/09(木) 09:10:00.46
それにしても>>563の説明は酷すぎるなｗ

上限値を固定してと言いながら0になったら0に固定？
A1の値と上限が同じなのは意味あるのかｗ
0571名無しさん＠そうだ選挙にいこう2016/06/09(木) 09:17:01.02
素直に僕にも分かるように質問して下さいってお願いすればいいのに
0572名無しさん＠そうだ選挙にいこう2016/06/09(木) 09:22:42.83
c1=a1+b1
c2=a2+b2
c3=a3+b3
(以下同様)

ここまでは良い？
でも、>>563を読むとc1を再利用するような気が・・ｗ

そのうえでc1が0以下なら0、300以上なら300なのね？
0573名無しさん＠そうだ選挙にいこう2016/06/09(木) 09:26:39.16
>>571
分かるようにというか、>>563と>>567はあきらかに矛盾してる。
絶対どこかで間違った説明してる。
0574名無しさん＠そうだ選挙にいこう2016/06/09(木) 09:34:17.93
これはダムの貯水量みたいなイメージだね
満水300ｔでｂ列が日々の入出量、c列が貯水量
0575名無しさん＠そうだ選挙にいこう2016/06/09(木) 09:34:36.63
c1　= 　a1の値を上限にしてB列を順に足す　1度0になったら以降何を足し引きしようが0
c2　=　a2の値を上限にしてB列を順に足す　1度0になったら以降何を足し引きしようが0
（以下同様）

計算結果を見るにこうだな
0576名無しさん＠そうだ選挙にいこう2016/06/09(木) 09:40:08.42
足す前に0かどうか見て、0なら処理しない
0577名無しさん＠そうだ選挙にいこう2016/06/09(木) 09:41:00.26
Excel 2007で最初の文字が'だと省略されて、セルをダブルクリックすると表示する。
常に表示したいけどセルの設定からはできない様だ、常に表示する方法ある?
0578名無しさん＠そうだ選挙にいこう2016/06/09(木) 09:48:55.15
>>577
数式の表示しても無理だね
無さそう
0579名無しさん＠そうだ選挙にいこう2016/06/09(木) 09:55:36.26
>>575
a2の値を上限ってのは？
a2は別の数字と言ってるのに、計算結果では全ての行で300上限だけど

>>577
また変な説明来た・・
0580名無しさん＠そうだ選挙にいこう2016/06/09(木) 09:59:17.08
>>579
いやこの説明はわかるだろ
0581名無しさん＠そうだ選挙にいこう2016/06/09(木) 10:01:12.06
https://support.microsoft.com/ja-jp/kb/405491
方法２参照
0582579=5812016/06/09(木) 10:04:07.01
>>579
失礼
クォーテーションが見えなかったｗ
0583名無しさん＠そうだ選挙にいこう2016/06/09(木) 10:04:30.70
>>580
0584名無しさん＠そうだ選挙にいこう2016/06/09(木) 10:06:28.31
>>582
ｽﾞｺｰ
0585名無しさん＠そうだ選挙にいこう2016/06/09(木) 10:34:28.29
>>579
>A1の値が300　B列を足していく

a1が300だからc1に計算される値をa1の300を使って計算してくれ
ここが例に出した部分

a2が500ならc2に計算される値をa2の500を使って計算してくれ　　ってことかと
0586名無しさん＠そうだ選挙にいこう2016/06/09(木) 11:37:48.30
>>575

a列とb列に数字が並んでて

c1はa1を上限にa1+b1+b2+b3+・・・・
c2はb2を上限にa2+b1+b2+b3+・・・・
上限や0判定（途中で0になれば加算打ち切り）は加算の都度行う

これで良いの？ｗ
0587訂正2016/06/09(木) 11:40:02.56
a列とb列に数字が並んでて

c1はa1を上限にa1+b1+b2+b3+・・・・
c2はa2を上限にa2+b1+b2+b3+・・・・
上限や0判定（途中で0になれば加算打ち切り）は加算の都度行う

これで良いの？ｗ
0588名無しさん＠そうだ選挙にいこう2016/06/09(木) 12:25:49.81
>>587
そうだと思う
俺は7000列使わないと出来ないｗ
05895772016/06/09(木) 12:38:37.09
>>581
できたよ、回等ありがとうございます。
0590名無しさん＠そうだ選挙にいこう2016/06/09(木) 13:50:42.16
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
Sub unko()
Dim chinko As InternetExplorer '★

Set chinko = CreateObject("InternetExplorer.Application")
chinko.Visible
End Sub


★のところで ユーザ定義型は定義されていません。 というエラーになります
InternetExplorer を Object にすれば動作します
InternetExplorerという型は存在しないのでしょうか
0591名無しさん＠そうだ選挙にいこう2016/06/09(木) 13:54:37.87
>>590
http://www.ken3.org/cgi-bin/group/vba_ie_object.asp
参照設定が抜けてると思う
あと変数名ちんことかにすると回答率下がるからfooやhogeにしたほうがいいぞ
0592名無しさん＠そうだ選挙にいこう2016/06/09(木) 13:59:23.61
>>591
ありがとうございまんこ
参照設定が必要だったのか
0593名無しさん＠そうだ選挙にいこう2016/06/09(木) 15:33:12.26
VBAでリンククリックしたあと、
URLを見るとリンククリック前なんだけど
なんで？
0594名無しさん＠そうだ選挙にいこう2016/06/09(木) 15:36:21.52
>>593
リンクのクリック（履歴）はブラウザに残る
vbaはIEだからIEで見るとリンクの色が変わってると思う。多分。
IEで見ても変わっていなければキャッシュが別扱いなんだろう
そんなに気にしなくていいと思う
0595名無しさん＠そうだ選挙にいこう2016/06/09(木) 15:58:55.78
>>588
VBA無しだったら、7000列使うしかないね。

A列（A1,A2,A3・・・）を１行（B1,C1,D1・・・）に移動
B列（B1,B2,B3・・・）をA列（A2,A3,A4・・・）に移動
あとは>>566さんの要領で7000×7000を網羅
結果は最下行
0596名無しさん＠そうだ選挙にいこう2016/06/09(木) 17:34:34.34
VBAで、あるオブジェクトに メンバ変数が存在するかどうか を
チェックする方法ありますか？
0597名無しさん＠そうだ選挙にいこう2016/06/09(木) 22:24:16.63
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

sumifs関数の応用について質問させてください。
縦軸（A列，B列）の複数条件を設定して合計することはできたのですが、合計する範囲を横軸も使用して複数条件の合計を求めたいのですが、どのようにすればよいでしょうか。
横軸には１月-12月までの月数を入力しています。
0598名無しさん＠そうだ選挙にいこう2016/06/09(木) 22:36:33.95
>>597
縦軸、横軸とかヤメレ！
0599名無しさん＠そうだ選挙にいこう2016/06/09(木) 23:15:50.96
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

お願いします。
VBAで、２００ほどのセルに値を入力するコードを書いて実行しているのですが、
入力したセルの値を元にした関数や計算式が他のセルにあり、VBAによりひとつ入力たびに
別のところで毎回それを元にした関数や計算をしているようで、
とても処理に時間がかかっています。
これを速くする方法を探しています。
何か、処理前に、「いったん関数や計算とかやめろ」としておき、
ぜんぶ値を入力してから「はい、中断していた関数や計算を再開して」
という命令を出すことってできないでしょうか？
0600名無しさん＠そうだ選挙にいこう2016/06/09(木) 23:29:54.38
>>599
vba　高速化
で検索するとか
http://15g.jp/post-314/

>>598
なんでだ？

>>597
は正規化してれば楽勝なんだが・・・微妙に分からん
データベース関数とか使えそう
http://www.eurus.dti.ne.jp/~yoneyama/Excel/kansu/d_bas.htm
0601名無しさん＠そうだ選挙にいこう2016/06/10(金) 00:28:06.09
>>600
ありがとうございました。
INDIRECTを使用、対象範囲を名前登録して対応しました。
0602名無しさん＠そうだ選挙にいこう2016/06/10(金) 04:18:22.67
>>596
CallByName() とか使って、実行時エラー438なら
プロパティが存在しないとか判定するとか？

CallByName(New Class1, "test", VbGet)

VB6・VBA関数メモ：CallByName関数 | フィロの村note
http://note.phyllo.net/?eid=1106221
0603名無しさん＠そうだ選挙にいこう2016/06/10(金) 04:20:06.23
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

現在、条件付き書式を用いて○文字より上なら赤等の設定をしているのですが、
その際「=LEN(A1)>100」というふうに打ち込んでおります。
本当なら、使い勝手を考えて100という文字数も別のセルを参照にして、セルの数字を変更すれば
条件付き書式をいじらずとも文字数の変更ができるようにしたいのです。
例えば、B1セルに数字を打ち込んで、「=LEN(A1)>B1」という感じですが、残念ながらできませんでした。

どうにか手はないでしょうか。ご教授お願いいたします。
0604名無しさん＠そうだ選挙にいこう2016/06/10(金) 05:38:22.38
a1に　=new()　で現在の時刻が出ています。
b1に　=minute(a1)　で分の時刻が1分毎に更新されながら出ています。
a3からa14にかけて
4
9
14
19
24
34
39
44
49
54
59
とならんでいます。
ｃ１に最初１の数値が入っています。
b1とa3からa14の数値が一致したら１足して、
一致するまではその数値が維持される数式が知りたいです。
例えば
b1・c1
２２・１
２３・１
２４・２
２５・２
２６・２
２７・２
２８・２
２９・３
３０・３
こんな感じです。
お願いします。
0605名無しさん＠そうだ選挙にいこう2016/06/10(金) 07:05:26.83
>>599
xlCalculationManualでワークシートの計算が停止
xlCalculationAutomaticで再開
0606名無しさん＠そうだ選挙にいこう2016/06/10(金) 07:09:02.11
>>603
=LEN(A1)>=$B$1
0607名無しさん＠そうだ選挙にいこう2016/06/10(金) 07:09:38.42
間違えた
=LEN(A1)>$B$1
0608名無しさん＠そうだ選挙にいこう2016/06/10(金) 07:11:44.46
>>603
レン（Ａ１）〉レン（Ｂ１）でよくね？
0609名無しさん＠そうだ選挙にいこう2016/06/10(金) 09:15:10.31
$はコピーするとき以外は関係ない
=LEN(A1)>B1　でかまわない

できないという以上、コピーする前に確認してるよね・・
右辺の数字は2バイト換算は承知？
0610名無しさん＠そうだ選挙にいこう2016/06/10(金) 09:21:01.39
あと、計算式の頭の=が洩れてる、B1の書式が文字列、オプションで手動計算になってる・・
0611名無しさん＠そうだ選挙にいこう2016/06/10(金) 12:42:25.93
=LEN(A1)>B1+0
0612名無しさん＠そうだ選挙にいこう2016/06/10(金) 17:30:01.70
まさか603=554？

あるセル（今回の場合B1）の書式設定の表示形式が文字列となってると、そこに数字を入力してもそれは数字と認識されない。
つまり2を入力しても数字の2ではなく、文字の2となる。
見た目は同じだが、セル内の位置が左寄りと右寄りの違いがある。
LEN("第三者の厳しい目")<文字の2

>>611のように0を加えることでB1セルを数字として扱える。
0613名無しさん＠そうだ選挙にいこう2016/06/10(金) 19:11:55.23
テクニカル縛りが糞すぎる
06146042016/06/10(金) 21:22:34.03
明日納期だが間に合わなかった
ゆとりに対する扱いは冷たいよ
0615名無しさん＠そうだ選挙にいこう2016/06/10(金) 21:45:41.10
自虐すれば助けてもらえると思った？残念！
土下座画像上げれば助けてやるぞ

ちなみに誰も答えない理由は一行目の
=new()
が+now()の間違いでその時点で読む気無くしてるからゾ
0616名無しさん＠そうだ選挙にいこう2016/06/10(金) 22:18:08.39
>>614
テンプレ無いし
説明も判りにくい

回答者の立場になって読んでみな
06176032016/06/11(土) 07:19:53.71
ありがとうございます。
>>610>>612さんのご指摘通り、文字列でした。よもやそこに原因があるとは夢にも思わなかったです。
文字列指定から標準に戻し、数式も戻したら、無事にできました。
また、+0で、数値化できるというアイデアも大変参考になりました。

感謝しております。ありがとうございました。
0618名無しさん＠そうだ選挙にいこう2016/06/11(土) 07:57:11.87
>>617
>また、+0で、数値化できるというアイデアも大変参考になりました。
611だけど半分はネタだからw

もし実際に使う必要があれば、=LEN(A1)>INT(B1) の方がイイかも？
他人（無能上司とか）に見られた時にケチ付けられにくいｗ
0619名無しさん＠そうだ選挙にいこう2016/06/11(土) 08:39:41.45
>>618
Int?
それは整数化する関数
元が文字列かもしれないんなら CInt だろ、この無能

ってケチつくだけ
0620名無しさん＠そうだ選挙にいこう2016/06/11(土) 09:21:09.82
数値に変換する時って*1が定番と思ってたわ
+0も行けるんだな
0621名無しさん＠そうだ選挙にいこう2016/06/11(土) 09:29:24.38
>>619
知らんようだが、２０１０以降は文字列数字も数字化しなくても扱えるようになった
0622名無しさん＠そうだ選挙にいこう2016/06/11(土) 09:41:51.12
>>621
そう言う問題じゃないことぐらい気付けよ w
できればいいだけなら +0 でいいだろ
0623名無しさん＠そうだ選挙にいこう2016/06/11(土) 10:48:58.61
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 使えない
【4 VBAでの回答の可否】 否

一つのセルに
『　ネズミ,牛,虎,ウサギ,龍,蛇,馬　』
というコンマ区切りの文字列があったとして、虎とウサギだけを個別に抜き出すにはどうすればいいでしょうか？
※6つのコンマ数と7つの単語数は変わりませんが単語自体や文字数は毎回変わります。
0624名無しさん＠そうだ選挙にいこう2016/06/11(土) 10:51:18.95
sum(a$1:a1)を40万行くらいオートフィルすると
重くなって処理ができなくなってしまいます
同じ結果になる軽い計算方法はないでしょうか？
0625名無しさん＠そうだ選挙にいこう2016/06/11(土) 10:56:58.53
>>623
データの区切り位置

>>624
40万行が全て数式だと多分どうやっても重くなると思う
vbaの方がいいと思う
0626名無しさん＠そうだ選挙にいこう2016/06/11(土) 11:08:04.94
>>623
データの区切り位置というその式を教えて下さい
06276232016/06/11(土) 11:08:44.53
↑間違えました

>>625
データの区切り位置というその式を教えて下さい
06286232016/06/11(土) 11:27:44.79
http://i.imgur.com/XRP6XA5.jpg
↑イメージとしてはこうです。

A列に情報が入ればB列C列に抜き出し情報が自動で表示されるようにしたいんです。
0629名無しさん＠そうだ選挙にいこう2016/06/11(土) 11:49:35.08
>>626区切り位置 エクセル　でぐぐれ
06306242016/06/11(土) 11:58:17.22
>>625
ありがとうございます
関数式全て（もしくはなるべく？）VBAで代用する形にしたら重くならない感じでしょうか？
0631名無しさん＠そうだ選挙にいこう2016/06/11(土) 12:00:56.13
>>630
ちなみにその式sum()はA2に書いてるの？
06326242016/06/11(土) 12:03:51.36
>>631
B1です
0633名無しさん＠そうだ選挙にいこう2016/06/11(土) 12:11:03.04
【1 OSの種類 　 　 　 　 .】 Windows8
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 いいえ

$F$36=100
$F$36=200
シート2 A列：品名
シート2 B列：1～1000までの個数

B列を100～200の間に絞って昇順で抜き出したいのですがうまくいきません。
下記まではなんとかなったのですが、ANDをネストするとエラーがでます。
なにか良い方法を教えて下さい。

=INDEX('シート2'!A:A,SMALL(IF(AND('シート2'!B:B>=$F$36,'シート2'!B:B<=$F$37),ROW('シート2'!B:B)),ROW(A1)))
0634名無しさん＠そうだ選挙にいこう2016/06/11(土) 12:17:23.31
>>619
条件付き書式にはワークシート関数しか使えないと思ってました
大変勉強になります
0635名無しさん＠そうだ選挙にいこう2016/06/11(土) 12:22:54.85
>>624
あぁB列か
なら
B1=A1
B2=+A2+B1
下にオートフィルでいいと思う
ただこれでもちょっと重い。しょぼいPCならvba使ったほうがよさげ
0636名無しさん＠そうだ選挙にいこう2016/06/11(土) 12:24:38.08
>>633
？
$F$36=100
$F$36=200
06376242016/06/11(土) 12:25:00.43
>>635
そんな素直な手があったとは…
今後の為にも練習兼ねてVBAでやってみます　ありがとう
0638名無しさん＠そうだ選挙にいこう2016/06/11(土) 12:47:59.78
>>634
CInt関数は使えないよ
619が理解してないだけ

整数の文字列を数値化するには、何でもいいから計算すれば良いだけ
もちろん計算しても同じ整数になるように
*1、+0、ROUND、ABS等いくらでもある
0639名無しさん＠そうだ選挙にいこう2016/06/11(土) 12:50:13.67
>>636
$F$37=200の間違いでした。
0640名無しさん＠そうだ選挙にいこう2016/06/11(土) 13:04:42.28
>>623
無理やり　関数のみ でやろうとすると　こうかな??

B1 =MID(A1,FIND(CHAR(1),SUBSTITUTE(A1,",",CHAR(1),2)) +1, FIND(CHAR(1),SUBSTITUTE(A1,",",CHAR(1),3)) -FIND(CHAR(1),SUBSTITUTE(A1,",",CHAR(1),2)) -1 )

C1 =MID(A1,FIND(CHAR(1),SUBSTITUTE(A1,",",CHAR(1),3)) +1, FIND(CHAR(1),SUBSTITUTE(A1,",",CHAR(1),4)) -FIND(CHAR(1),SUBSTITUTE(A1,",",CHAR(1),3)) -1 )

一応説明をば

ネズミ,牛,虎,ウサギ,龍,蛇,馬
の時　3個目の虎を抽出したい時

①2個目の　カンマを　CHAR(1)に置き換えて　その位置をFINDで調べる
②3個目の　カンマを　CHAR(1)に置き換えて　その位置をFINDで調べる
あとは　MIDで抽出
　=MID("ネズミ,牛,虎,ウサギ,龍,蛇,馬", ①+1 , ②-①-1 )
0641名無しさん＠そうだ選挙にいこう2016/06/11(土) 17:44:05.41
クソだな
0642名無しさん＠そうだ選挙にいこう2016/06/11(土) 18:27:14.51
クソすぎ
06436232016/06/11(土) 20:28:17.30
>>640
ありがとうございます。助かりました。
0644名無しさん＠そうだ選挙にいこう2016/06/11(土) 21:02:19.82
>>602
マジすかそんな乱暴な方法すか
ありがとうございました
0645名無しさん＠そうだ選挙にいこう2016/06/11(土) 21:07:15.46
SUBSTITUTE()で文字列の引き算ができるから　それでも可能
0646名無しさん＠そうだ選挙にいこう2016/06/11(土) 23:39:29.77
>>628
青柳ういろうが出てくる時点で東海地方確定
0647名無しさん＠そうだ選挙にいこう2016/06/12(日) 01:21:33.43
ユーザフォーム表示中に、ワークシート内セルを移動させるとユーザフォーム内のテキストボックスの値も連動して選択中のセルの内容を表示させる事は出来ますか？

ググってイニシャライズでは選択セルの値を表示させる事が出来たのですが、ユーザフォームが立ち上がってからの選択セルとの連動は見つけられませんでした。

エクセルは2007のウインドウズ7です
0648名無しさん＠そうだ選挙にいこう2016/06/12(日) 03:05:17.03
>>647
こんな感じ?
Private WithEvents MyWb As Workbook
Private Sub UserForm_Initialize()
　Set MyWb = ThisWorkbook
　TextBox1.ControlSource = ActiveCell.Address
End Sub
Private Sub MyWb_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
　TextBox1.ControlSource = ActiveCell.Address
End Sub
0649名無しさん＠そうだ選挙にいこう2016/06/12(日) 14:07:51.99
すみません、VBAの記述の中で、VBEを起動することはできますか
0650名無しさん＠そうだ選挙にいこう2016/06/12(日) 15:18:59.78
>>649
[Excelのオプション]
　-[セキュリティセンター]
　　-[マクロの設定]
　　　-[VBAプロジェクト オブジェクト モデルへのアクセスを信頼する] をチェックON

※↑ただしVBEの操作を許可するのでマクロのセキュリティは低下します

Sub a()
　Application.VBE.MainWindow.Visible = True
　Application.VBE.MainWindow.SetFocus
End Sub


Office TANAKA - VBAでVBEを操作する
http://officetanaka.net/excel/vba/vbe/
0651名無しさん＠そうだ選挙にいこう2016/06/12(日) 18:24:53.14
>>650
ご回答ありがとうございます。
助かりました。
0652名無しさん＠そうだ選挙にいこう2016/06/13(月) 01:53:21.91
事務関係でエクセルをやらされます。

どんな本を読むべきでしょうか？
もしくはサイトでもいいです
おすすめが不明です

グラフ表示、
数値の自動計算の表、
いろいろ並ぶのそれぞれのセルの合計を出す
特定のセルにOKとか入力すると文字に反応し1行の色が変わる
特定の文字だけちぇっくいれるとそれのみの行が表示

みたいなのを覚えたいです。意味わかりますか？
0653名無しさん＠そうだ選挙にいこう2016/06/13(月) 01:55:29.71
タブが
タブテスト１～タブテスト６まであるとします

タブ１とタブ３とタブ５のそれぞれの特定のセルの合計を出したい
どうやって書いたらいいのかわかりません

=タブ１B3:タブ３C2:タブ５D1

みたいな感じですか？
0654名無しさん＠そうだ選挙にいこう2016/06/13(月) 02:08:57.49
エクセルを一通り覚えたいです
2003のエクセルを使っています
これだとまずいですか？オフィス買うべき？でも１万２万もするし
0655名無しさん＠そうだ選挙にいこう2016/06/13(月) 02:26:52.91
2007のMOSのテキストを買うと現場の事務でやるときまずいでしょうか
できればスマホで勉強できるサイトをよみたいんですが本を買うしかないですよね
0656名無しさん＠そうだ選挙にいこう2016/06/13(月) 03:36:07.84
>>654
Office2003までと2007以降で画面がガラリ変わるから
今から覚えるなら新しいの買ったほうが混乱がなくていいとは思うが・・・
0657名無しさん＠そうだ選挙にいこう2016/06/13(月) 04:32:47.40
セルa1に　１６２０

セルb1からe1に　１６３０　１６２５　１６２１　１６１７
と数値が入っています。

セルb1からe1でセルa1の数値にもっとも近い数値をセル　f1に抽出したいです。

こんなかんじです。
１６２０　１６３０　１６２５　１６２１　１６１７　１６２１

Excel２０１３です。
よろしくお願いいたします。
0658名無しさん＠そうだ選挙にいこう2016/06/13(月) 06:30:31.78
作業列を使っていいなら

C1=ABS(B1-A$1)
下方向にオートフィル

D1=INDEX(B:B,MATCH(SMALL(C:C,ROW(A1)),C:C,0))
下方向にオートフィル

近い数値は、差が小さいということで絶対値にして小さい順に検索するって手段

同じ差が出た時は上のセルにある物しか出てこないかrそういう検索するなら
また話が変わるけど
0659名無しさん＠そうだ選挙にいこう2016/06/13(月) 06:36:47.48
ごめん間違えた

考え方は一緒で

B2=ABS(B1-$A1)
右方向にオートフィル
F1=INDEX(B1:E1,0,MATCH(SMALL(B2:E2,1),B2:E2,0))

で可能だ
0660名無しさん＠そうだ選挙にいこう2016/06/13(月) 07:25:09.15
>>653
=タブ1!B3+タブ3!C2+タブ5!D1
0661名無しさん＠そうだ選挙にいこう2016/06/13(月) 08:25:55.73
>>652
Googleってサイトがオススメ
0662名無しさん＠そうだ選挙にいこう2016/06/13(月) 18:18:18.33
>>648
返信遅れてすみません
ありがとうございました
0663名無しさん＠そうだ選挙にいこう2016/06/13(月) 18:37:42.77
>>652
ひたすらやるしかない
vbaを知っておくと段違いに楽になるけど使えない会社もある
エクセルは範囲が広すぎるのでおすすめは事実上、ない
俺は10年エクセル触ってるけどまともにグラフ書けないわ

>>653
タブじゃなくてシートな
=sum(タブ１!B3,タブ３!C2,タブ５!D1)
0664名無しさん＠そうだ選挙にいこう2016/06/13(月) 19:16:53.71
Office95の頃から使ってるけど知らない関数とか機能がいっぱいある
0665名無しさん＠そうだ選挙にいこう2016/06/13(月) 20:13:05.14
>>664
大部分の人は、20以下の関数しか使う必要がないと思う
0666名無しさん＠そうだ選挙にいこう2016/06/13(月) 20:17:08.26
どんな事務担当するのか知らないけど
他の社員は自分の給与明細とかしっかり確認すべきだな
0667名無しさん＠そうだ選挙にいこう2016/06/13(月) 20:29:35.73
給与なんてシビアでデリケートな部分をぺーぺーにやらせる訳無いだろ
触らせるどころか見せもしねえよ
0668名無しさん＠そうだ選挙にいこう2016/06/14(火) 07:35:53.97
会社側はそのつもりでもセキュリティがザルで見放題なことも
俺派遣だけど派遣元に払う額の増減把握してたりする

派遣元への交通費支給が四月から始まったのに俺の定期代は今も全額自腹なのは
どういうことだとツッコみたい
0669名無しさん＠そうだ選挙にいこう2016/06/14(火) 07:42:35.60
【1 OSの種類 　 　 　 　 .】 Windows8.1
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 いいえ

○番目に大きな数字を取得する関数はありませんか？

largeだと以下の表で3番めを指定した時に3が返されてしまうのです。
数字としては2なんですが、3を指定してこれを返したい場合はどうすればいいですか？

1
2
3
3
3
4
0670名無しさん＠そうだ選挙にいこう2016/06/14(火) 08:06:39.27
>>669
作業列作って重複する数字は0にするようにすればいい
0671名無しさん＠そうだ選挙にいこう2016/06/14(火) 13:20:41.32
作業列無しでできるよ
http://www.geocities.jp/chiquilin_site/data/050916_ranking.html
0672名無しさん＠そうだ選挙にいこう2016/06/14(火) 16:14:15.15
【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

こんにちは、エクセルのフィルター詳細設定で自分の思い通りにうまくできません。

やりたいことは、
佐藤がA会社での販売個数と日付のみ取り出したい
こんなことは可能でしょうか？
できれば佐藤とA会社名はわかるので販売個数と日付のみ取り出せたら嬉しい。

Ctrlを使ってCとGを選択してもダメでした。どうすればいいのでしょうか？

http://iup.2ch-library.com/i/i1661750-1465888403.png
0673名無しさん＠そうだ選挙にいこう2016/06/14(火) 17:29:37.88
>>672
解決しました
0674名無しさん＠そうだ選挙にいこう2016/06/14(火) 20:14:29.57
作業列が便利だからかなり使ってるけど
やはり重くなる原因でしょうか？
作業列少なくした方が処理能力上がりますか？
0675名無しさん＠そうだ選挙にいこう2016/06/14(火) 20:36:03.99
>>674
作業列というより計算式を減らすほうがよい
特にif系，find系，lookup系など
0676名無しさん＠そうだ選挙にいこう2016/06/14(火) 22:13:04.02
SUMPRODUCTなんかあったら最悪　
0677名無しさん＠そうだ選挙にいこう2016/06/14(火) 22:20:33.25
>>675
ifは多いです。
関数によって重くなる差があるって事ですか？
0678名無しさん＠そうだ選挙にいこう2016/06/14(火) 22:27:18.12
>>674
作業列は同じ計算をしないために作る
作業列を使う/使わないは関係なく、同じ計算を何度もするから重くなる

あとは研鑽範囲をoffset()などで減らす方法もあるけど、ややこしくなるので俺は使わない
そこまで行くならvbaを使う

まぁ人それぞれだ
0679名無しさん＠そうだ選挙にいこう2016/06/14(火) 22:32:01.79
>>668
不正アクセス自慢かよ　コンプライアンス違反の自覚も無いんだな
ザルなら見てもいいとか　とんだ派遣だな
0680名無しさん＠そうだ選挙にいこう2016/06/14(火) 22:34:32.82
>>679
そう怒らんでも
そういうしょーもないことしてるから派遣なんだよ
0681名無しさん＠そうだ選挙にいこう2016/06/14(火) 22:56:45.12
>>679
セキュリティ掛かってなかったら
別に「不正」アクセスではないだろ。
0682名無しさん＠そうだ選挙にいこう2016/06/14(火) 23:17:24.92
>>677
if系だと検索式に*を入れたワイルド検索や複雑に入れ子になっていたりすると再計算に時間がかかりやすくなる。
0683名無しさん＠そうだ選挙にいこう2016/06/14(火) 23:41:44.63
>>681
ザルだから一応あるにはあるんじゃないかな
0684名無しさん＠そうだ選挙にいこう2016/06/15(水) 06:51:22.16
>>660
ありがとうございます
0685名無しさん＠そうだ選挙にいこう2016/06/15(水) 07:01:21.46
>>661
暗記せず逐次検索？

>>663
現場に行ってわからない関数その他は聞く調べるしかないですってことかな
0686名無しさん＠そうだ選挙にいこう2016/06/15(水) 07:02:09.32
>>666
自分も知らない。
0687名無しさん＠そうだ選挙にいこう2016/06/15(水) 07:08:30.94
>>685
最初のうちはわからないものは検索すればいい。俺も使わない関数は検索する。
数式（プログラム言語）なんて英語と同じ、わからん単語は分からん。全部覚える必要もない
ただ定型文みたいなパターンがいくつかあってそれを覚えた方がいい

具体的には
・正規化
・vlookup
が使えるだけで大分変わる
0688名無しさん＠そうだ選挙にいこう2016/06/15(水) 08:13:35.32
>>685
ネット環境がないなら本がいるだろうけど、ネット環境があるなら都度検索すればいい
頻繁に使うものはどうせ自然に覚えるし
ましてや、やらされる、ってニュアンスならなおさらね
0689名無しさん＠そうだ選挙にいこう2016/06/15(水) 10:30:50.79
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい･
【4 VBAでの回答の可否】 可

最下行のセルをコピーして、コピーしたセルの右上に貼り付けを繰り返す、vbaができません。最下行をさがすのは出来たのですが。
0690名無しさん＠そうだ選挙にいこう2016/06/15(水) 12:13:11.39
オレもエクセルは全てGoogle検索で覚えてきたが、最近「教えてGoo」とか「知恵袋」とかで間違った回答が
それも同じモノが重複してトップのほうに出てきてうざい。
三流は表現がくどくて見る気しないしｗ
06916892016/06/15(水) 12:19:26.56
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい･
【4 VBAでの回答の可否】 可

最下行のセルをコピーして、コピーしたセルの右上に貼り付けを繰り返す、vbaができません。最下行をさがして、最下行のセルを右上に貼り付けたあと、最下行のセルに行ってしまいます。貼り付けたあとは、最下行の1行上のセルをコピーして右上のセルに貼り付けしたいのです。
0692名無しさん＠そうだ選挙にいこう2016/06/15(水) 13:11:22.27
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

COUNTIFで1が何個、2が何個って数えてるんだけど”あ”という文字が出てきたら
そこから数え直し(ただし数えなおしたデータが20個以上ある場合のみ)＋数えなおしたデータ数を下のセルに表示って関数でできる？
もしできるなら式を教えてほしい。
0693名無しさん＠そうだ選挙にいこう2016/06/15(水) 18:45:06.47
>>692
データの範囲がわからん
数える順序もわからん
0694名無しさん＠そうだ選挙にいこう2016/06/15(水) 19:02:14.54
>>692
> 【3 VBAが使えるか　 　 .】 はい
VBA でやるべき案件だと思う
君が書いてる手順をそのままコードにすればいいだけ
0695名無しさん＠そうだ選挙にいこう2016/06/15(水) 19:11:31.40
>>691
Sub macro()
Dim r, c, top_row
top_row = 2
c = 1
For r = Cells(Rows.Count, c).End(xlUp).Row To top_row Step -1
Call Cells(r, c).Copy(Destination:=Cells(r, c).Offset(-1, 1))
Next
End Sub
0696名無しさん＠そうだ選挙にいこう2016/06/15(水) 20:06:34.71
>>693
元がこれ
=COUNTIF($A$89:$A$1930,A81)
0697名無しさん＠そうだ選挙にいこう2016/06/15(水) 20:21:48.71
【1 OSの種類 　 　 　 　 .】 WindowsXP pro 32bit
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
セルに入力した式がそのまま表示されるようになったとき、どう対処すればいいでしょうか。

セル参照したとき、式がそのまま表示されることがあります。=A5 などと、等号から表示されます。
シート内のセルでも同じブック内の別シートのセルでも。セルの表示形式を変えても変化なし。

こうなると、そのセル参照（式）を入力したセルに関数や算術式を入れても式がそのまま表示される
ようになってしまうので、式がそのまま表示されるといった方がいいかと。

セル参照を入力したときだけでなく、すでに入力されて（正しく表示されて）いるセル参照を
修正したときにも発生します。

他のセルに入力してあるセル参照式をコピペしたり、数字を入力したりすると表示が正常に戻ることもあり。

（普段ネットワークにつないでいないので）アップデートしていないからでしょうか。
0698名無しさん＠そうだ選挙にいこう2016/06/15(水) 20:49:45.28
>>697
表示形式　文字列
数式　数式の表示

多分どっちか
0699名無しさん＠そうだ選挙にいこう2016/06/15(水) 21:00:44.58
>>690
Office田中とモーグも検索で上位に出てくるけど、知りたいことになかなかたどりつけない
0700名無しさん＠そうだ選挙にいこう2016/06/15(水) 21:18:26.84
>>698
表示形式変えてみたけど、効果なかったんです。

当該セルにカーソル持ってきておいて、リボンの「数値」にあるプルダウンを
出すと、=からの式がそのまま各形式の下に表示される。

また、リボンの数式タブにある「ワークシート分析」で「参照元のトレース」というのを
クリックすると、正常にセル参照が表示されているセルでは矢印がでるのに、
式がそのまま表示されているセルでは矢印が出てきません。「数式の検証」でも
=からの式が表示され、「検証」ボタンはグレーアウト。

マクロを使ってセルにセル参照式を入れるようにしたら、正常に表示されるセルと
式がそのまま表示されるセルが出てきてしまいました。

コピペとか別の式を入れたりするうちに正常に表示されるようになったり、なんだか
よくわかりません。
0701名無しさん＠そうだ選挙にいこう2016/06/15(水) 21:30:01.52
>>696
1列だけなの？
数えるのは上から下？
0702名無しさん＠そうだ選挙にいこう2016/06/15(水) 21:38:24.31
>>700
書式設定が文字列の時に=1+1と入れても式がそのまま表示される
その後表示形式を数値に変えてもそのまま=1+1が表示され続ける
一度F2で編集した後にenterを押すと初めて2と表示される
こういう意味でもないなら、見てみないと分からないな。可能ならファイルをアップロードしてみて欲しい
0703名無しさん＠そうだ選挙にいこう2016/06/15(水) 21:44:03.35
>>695
ありがとうございます。
でもA列以外で使えたらよかったのですが。
0704名無しさん＠そうだ選挙にいこう2016/06/15(水) 21:50:17.53
>>703
処理対象がA列かどうかは
c=1の部分で設定してるから
ここを好きな数字に書き換えたらいいよ
0705名無しさん＠そうだ選挙にいこう2016/06/15(水) 22:04:35.05
>>697
どういう現象なのか実にわかりにくいので、当てずっぽうだけど・・

オプション－表示－「数式」にチェック入ってない？
0706名無しさん＠そうだ選挙にいこう2016/06/15(水) 22:10:46.94
>>704
ありがとうございます。
C=1は、列を指すのですね。ありがとうございます。
マクロをVBAで編集してごまかしているので、cellｓの使い方が
わかりませんでした。
07076972016/06/15(水) 22:57:46.71
>>702
最初に気付いたのがセル参照の作業をやってるとき。
シートを複製して、複製したシートのセルに入っている参照式を修正（=シート1!A3を
=シート1!A4とか）したら、式が表示された。もちろん複製元のシートではただしく
表示されていた。同じシート内の参照でも発生。
今のところ、二つのブックで発生、どのブックでも起きるかどうかは未確認です。
関係あるかどうか、他のマシンの都合でExel97-2003ブックで読み書きしています。
あと、すみません、当該PCは外のネットにつながってないし仕事のデータだし、upできないです。
自宅に持ち帰ってというのもNGなので。

>>705
入ってないです。

セルに式を入力したとき、数式の貼り付けしたとき、入力してある式を修正したとき、
式だけが表示されるタイミングが不定、正常表示に戻るタイミングも不定。
特定位置のセルだけでもなく、どのセルでもなるわけでもない。なんだろう。
0708名無しさん＠そうだ選挙にいこう2016/06/15(水) 23:05:54.26
>>707
ctrl+F11でマクロ4.0のシートが開くんだけどそれを使ったりはしてない？
0709名無しさん＠そうだ選挙にいこう2016/06/15(水) 23:24:59.67
>>688
iPadmini WiFiモデルに電子書籍（Kindleと自炊）を突っ込んで持ち歩いているよ。
現場によっては持ち込みが認められてないところもあるけどな。
まぁ、そういうところは紙の本も簡単には持ち込み持ち出しできないけど。
0710名無しさん＠そうだ選挙にいこう2016/06/15(水) 23:48:12.15
>>706
万が一、誤解されてたらアレなんで一応追記するけど、
c=1って書いてあったらそれが必ず列の指定を意味するってわけじゃないからね。
あくまでも>>695さんのコードでは列の指定に変数cを用いてるってことだよ

実際に列を指定しているのはcells(r,c) のcの部分だよ
（もうお分かりだとは思うが、行はrで指定しているよ）

英語では行をrow、列をcolumnっていうから
エクセルVBAでは行を表す変数にはr、列を表す変数にはcを用いるのが
割とポピュラーっていうか、ある種のお約束になってるんだよ
0711名無しさん＠そうだ選挙にいこう2016/06/15(水) 23:50:48.82
なってねーよクズループカウンタ以外に1文字変数書く奴は死ね
0712名無しさん＠そうだ選挙にいこう2016/06/15(水) 23:56:48.45
普通、ループカウンタはi,j,kあたりがお約束でしょ
ｒとかcとかをセルアドレス以外の
汎用のループカウンタに使うような奴こそ死んだほうがいい
0713名無しさん＠そうだ選挙にいこう2016/06/15(水) 23:59:51.80
>>697
こういうことじゃないの？

A1(書式：文字列)→ "test"
A2(書式：文字列)→ "test2"

B1(書式：標準)　 → =A1　と入力
　　　　　↓
B1(書式：文字列)→ =A1　　※書式が[標準]→[文字列]へとExceによって自動変更される
　　　　　↓
B1(書式：文字列)→ =A2　へ変更
　　　　　↓
B1(書式：文字列)→ "=A2"　※入力値が文字列として解釈されそのまま表示
　　　　　↓
B1(書式：標準)　 → "=A2"　※書式だけ[文字列]→[標準]に変更。
　　　　　↓　　　　　　　　　　　　 (ただし入力値の変更は無いので文字列と解釈されたまま)
B1(書式：文字列)→ =A2　　 ※F2を押して編集状態にした後、Enterで確定
　　　　　　　　　　　　　　　　　　　(書式は再度A2の書式[文字列]になるが、入力値は数式として解釈される)
0714名無しさん＠そうだ選挙にいこう2016/06/16(木) 00:07:30.91
そういう問題じゃない。１文字は検索も置き換えもできないクソ。
クソがクソ教えてクソが蔓延するからやめろ。
0715名無しさん＠そうだ選挙にいこう2016/06/16(木) 00:12:02.37
１文字変数が常識とか言ってる糞はエクセル方眼紙ありがたがってるクソと同じレベルでクソ
0716名無しさん＠そうだ選挙にいこう2016/06/16(木) 00:14:21.30
そしてなぜかクソほど他人に教えたがる。
クソの自覚が無いクソってまじでクソだわ。
0717名無しさん＠そうだ選挙にいこう2016/06/16(木) 00:16:57.42
え？
ループカウンタなら検索や置換ができなくてもいいんだ？
ふーーーんｗ
0718名無しさん＠そうだ選挙にいこう2016/06/16(木) 00:27:42.38
どうでもいいけど1文字でも[完全に一致する単語だけを検索する]をすれば検索出来るし
1文字変数じゃない4～5文字くらいの変数でも完全一致を指定しなければ
部分一致で誤検索されることはあるけどね
07196972016/06/16(木) 00:35:32.73
>>708
してないです。

>>713
これっぽいかなあ。F2の編集状態から確定で戻ったのかなあ。明日試してみます。
編集は、上の数式バーをクリックしたりセル内をWクリックしたりしてたんですけど。
セル参照式の入っているセルのコピペだけで、現象が発生したりしなかったり
するのが気になりますが。

みなさん、いろいろありがとう。おやすみなさい。
0720名無しさん＠そうだ選挙にいこう2016/06/16(木) 00:46:24.50
554=603もだったけど、書式の文字列と数値の違いがわからんやつがいるな・・

配置を右寄せとか左寄せとかに指定しないで、標準にしてみろ。
文字列は左寄り、数値は右寄りになるからすぐわかる。

ここはvbaの話題も良いのか・・
Dim　n,m,i,j as Integer　なんて書き方を認めてもらいたい。
ついでに nを整数型に指定したら、n1,nnなどnが頭の変数は全部整数型というのはまずい？
0721名無しさん＠そうだ選挙にいこう2016/06/16(木) 00:48:24.74
何そのFORTRAN的老害は迷惑でしかない
0722名無しさん＠そうだ選挙にいこう2016/06/16(木) 00:48:47.57
ループカウンタのiだのｊは広まりすぎて手遅れだわ。
逆に広まりすぎて区別つくから問題ない。
普段触ってないクソにはわからんけどな。
0723名無しさん＠そうだ選挙にいこう2016/06/16(木) 00:55:19.91
>>720
最初からそう言うルールの言語ならいんだろうけど違うからな。
手抜き自分ルールをコピペしてもっともらしいクソ理屈こねるクソが出てきてクソが蔓延するから駄目だわ。
0724名無しさん＠そうだ選挙にいこう2016/06/16(木) 00:57:36.28
クソだって自覚してる1人目はいいけど、コピペバカはそれ分からんで慣習とか言い出すからクソだわ。
0725名無しさん＠そうだ選挙にいこう2016/06/16(木) 00:58:27.17
>>707
異常な状態の画面を写真撮って、アップというのは？
0726名無しさん＠そうだ選挙にいこう2016/06/16(木) 00:59:02.71
クソ
0727名無しさん＠そうだ選挙にいこう2016/06/16(木) 01:07:01.99
オレは行に関するループはR1,R2,R3・・、列はC1,C2,C3・・・、フラグはF1,F2と決めてるわ。
他人とファイルをやりとりすることないし、たまにBVA知らない（いじらない）人に提供するくらいだから、
マイルールで何の問題もない。
0728名無しさん＠そうだ選挙にいこう2016/06/16(木) 01:08:13.91
俺もBVAは知らない
0729名無しさん＠そうだ選挙にいこう2016/06/16(木) 01:09:12.81
金額の数値入れてる列がありまして
書式は価格です
￥0のときは非表示にしたいけど
どうしたらいい？
シート全体に設定じゃなくて
個別のセルに書式設定で済ましたいんだけど。
0730名無しさん＠そうだ選挙にいこう2016/06/16(木) 01:45:44.70
>>729
<正>;<負>;<ゼロ>;<テキスト>　の順でセミコロンで区切り

\#,##0;\-#,##0;;@
0731名無しさん＠そうだ選挙にいこう2016/06/16(木) 01:55:44.47
【1 OSの種類 　 　 　 　.】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 不可
【4 VBAでの回答の可否】 不可

説明が難しいので画像を用意しました。
http://i.imgur.com/At1ZfH6.jpg

やりたいことは大まかに3点です。
1、図のように赤枠に商品名が入った場合のみ1から順に通し番号を付けたい。
2、↑でつけた通し番号順に商品名を縦一列に詰めて表示させたい。
3、赤枠内に情報さえ入れば自動でリストが作成されるようにしたい。

※最終的に赤枠4列のデータが縦1列で空白行なく表示されれば、通し番号自体はなくても問題ありません。
※赤枠はテキストデータのフリー入力欄です。商品名や商品の数、空きスペースの数は不特定です。

よろしくお願い致します。
0732名無しさん＠そうだ選挙にいこう2016/06/16(木) 01:59:12.86
>>710
っていうか変数に普通に漢字使えるから、cells(行,列)でいいじゃん。
0733名無しさん＠そうだ選挙にいこう2016/06/16(木) 05:14:28.32
>>732
いちいち漢字と英数字を切り替えるのが邪魔臭い
0734名無しさん＠そうだ選挙にいこう2016/06/16(木) 07:12:31.86
gyou retsu とか昔使ってたｗ
0735名無しさん＠そうだ選挙にいこう2016/06/16(木) 07:39:42.35
>>731
行数の上限はどのぐらいだろう
それによって作業列を作ってやる方法なら思い付いた
100として
M1=B1
M100までオートフィル
M101=D1
M200までオートフィル
M201=F1
M300までオートフィル
M301=H1
M400までオートフィル

これで各担当者のデータを一列にまとめる

そして
N1=IF(M1="","",ROW())
N400までオートフィルしてデータのあるところには、行数表示できるようにして

L1=IFERROR(INDEX(M:M,MATCH(SMALL(N:N,ROW(A1)),N:N,0)),"")
L400までオートフィル

これでN列の数字が小さい順にM列をL列に取得可能だと思う
0736名無しさん＠そうだ選挙にいこう2016/06/16(木) 08:05:38.96
ループカウンタとか関係なくスコープ狭きゃ１文字変数でもいいよ
そもそもサンプルコードになにいちゃもんつけてるんだよ
って話だし
0737名無しさん＠そうだ選挙にいこう2016/06/16(木) 08:51:06.88
=関数(a1="リンゴ","ミカン","ナシ")

こんな感じでa1がリンゴだったら1、ミカンだったら2を返してくれる関数がなかったでしたっけ？
IF なんたら？
0738名無しさん＠そうだ選挙にいこう2016/06/16(木) 09:03:19.48
はい、そのまま関数をifに置き換えれば・・・
そこまでわかってるのに・・・
0739名無しさん＠そうだ選挙にいこう2016/06/16(木) 14:16:34.97
>>737
IFS関数とか SWITCH関数とか かな?
俺ん所じゃ　使えないから詳細はググってれw
あと
MATCH関数でもいいかもね
0740名無しさん＠そうだ選挙にいこう2016/06/16(木) 15:20:33.67
【1 OSの種類 　 　 　 　.】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 可
【4 VBAでの回答の可否】 可

以下のようなコードで並べ替えをしてるのですが、セルのデータ状態が同じでも、
正常に動くときとエラーが出てしまうことがあります。

ThisWorkbook.Worksheets("データ").Range("A3:P15").Sort _
Key1:=Range("F3"), Order1:=xlDescending, Header:=xlNo, _
Key2:=Range("M3"), Order2:=xlAscending, Header:=xlNo, _
Key3:=Range("I3"), Order3:=xlDescending, Header:=xlNo

エラーメッセージは、「並べ替えの参照が正しくありません。並べ替えるデータ内に
あることと[最優先されるキー]ボックスが空白でないことを確認してください。」
と出てきます。
うまく行くときとエラーがでるのと、頻度は半々です。
何か考えられる原因や、対策法がありましたら、アドバイスください。お願いします。
0741名無しさん＠そうだ選挙にいこう2016/06/16(木) 15:33:48.62
KeyのRangeにブック、シートの指定がない
0742名無しさん＠そうだ選挙にいこう2016/06/16(木) 18:31:03.22
>>737
CHOOSE　辺りはどうだろう？
0743名無しさん＠そうだ選挙にいこう2016/06/16(木) 21:45:22.10
【1 OSの種類 　 　 　 　.】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 不可
【4 VBAでの回答の可否】 不可

countifsについて質問です。

年齢(100パターン)、性別(2パターン)、住所の一部に京都市を含むもの
の3つのキーワード条件を元に集計します。
その場合、
・セルが個別に別れているまま条件3つを指定。
・補助列を作り、&でつなげて条件を1つにする。
どちらが再計算時間を短くできますか？
ちなみに元データは約5000行です。
0744名無しさん＠そうだ選挙にいこう2016/06/16(木) 23:33:03.76
>>737
=IF(a1=リンゴ,1,IF(a1=ミカン,2,IF(a1=バナナ,3,4)))
カッコの数間違わないように
07456912016/06/16(木) 23:37:35.23
>>695
重ね重ね,お礼を申し上げます。
>>703
アドバイス、ありがとうございます。
>>710
アドバイス、ありがとうございます。この時点で寝てました。変数の使い方を身につけると、便利そうで助かります。
>>720
自分には難しいです。
07467372016/06/16(木) 23:49:55.67
>>738
=IF(A1="リンゴ","ミカン","ナシ")
「ミカン」が出ました・・

>>739
=ifs 　=switch
#NAME?　が出ました・・
=match
#VALUE が出ました・・

>>742
「ミカン」が出ました・・
07477372016/06/16(木) 23:53:21.14
>>744
ありがとうございます！
でも、力業と言えば失礼か？Ｗ

多重ではなくて一発の関数なかったでしたっけ？
ググッてもヘルプ見ても見つからない・・
0748名無しさん＠そうだ選挙にいこう2016/06/16(木) 23:54:34.07
>>746
使い方ぐらいググれよ
07497372016/06/17(金) 00:07:06.49
>>748
ググりました！

ifs関数：多重IFを簡潔にできるらしく使えそうですが2016からですねorz
switch関数：エクセルにはありません
match関数：全然違う用途です
choose関数：惜しいけどちょっと違う

結局多重IFしかないのか・・
0750i2016/06/17(金) 00:27:51.51
【1 OSの種類 　 　 　 　.】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 不可
【4 VBAでの回答の可否】 不可

先日、変なシートを見つけました。
A1に1,2,3,4などのカンマ区切りの文字列を入れると、B1に1,B2に2,B3に3,B4に4が
表示される仕組みのシートでした。

A1にもB1～B4にも数式がありません。VBAも内蔵されていません。
A1のセルをコピーして追加したシートにペーストしても同じ動作が発生します。

これはどんなテクノロジーを使っているのでしょうか？
0751名無しさん＠そうだ選挙にいこう2016/06/17(金) 01:38:45.61
>>749
=MATCH(A1,{"リンゴ","ミカン","ナシ"},0)
0752名無しさん＠そうだ選挙にいこう2016/06/17(金) 01:45:19.61
>>750
クイズ厨か？懐かしいな
シートの追加がなければ条件付き書式でも行けるだろうけど、とりあえず「XLStart」と答えておくけど、
前みたいにブックのアップロード拒否や答えを書かずに消えるのはやめてくれよ
0753名無しさん＠そうだ選挙にいこう2016/06/17(金) 02:05:30.72
>>749
>>switch関数：エクセルにはありません
ほんとにググった?
https://support.office.com/ja-JP/article/SWITCH-%E9%96%A2%E6%95%B0-47ab33c0-28ce-4530-8a45-d532ec4aa25e
0754名無しさん＠そうだ選挙にいこう2016/06/17(金) 06:26:24.50
>>743
その処理だけならWin7が動くスペックで元データ５０００行程度
大した差が出るとも思えんが

関数じゃなきゃいけないという特別な理由がないなら
ピボットテーブル 使うのが一番軽いが
07557432016/06/17(金) 07:41:20.07
>>754
データが多い場合はどっちのほうがいいですか？
他の計算もあるのでできるだけ軽くしたいんです。
0756名無しさん＠そうだ選挙にいこう2016/06/17(金) 07:54:04.51
オレならオートフィルターで集計するな
SUBTOTAL関数使って
0757名無しさん＠そうだ選挙にいこう2016/06/17(金) 08:52:17.63
>>750
マクロ4.0とか？
0758名無しさん＠そうだ選挙にいこう2016/06/17(金) 15:36:43.81
【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel２０１０
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可･
積み上げ横棒の行範囲を、セルに入力範囲に合わせるマクロができません。
0759名無しさん＠そうだ選挙にいこう2016/06/17(金) 19:35:46.15
【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel２０１０
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可

既存の出欠簿(印刷してから筆記具で○をつける)の記入欄にチェックボタンを付けてパソコン上で出欠を打ち込めるようにしたんですが、
印刷すると罫線の種類がバラバラになったり印刷されなかったりします
チェックボタン置くと発生する事象なんでしょうか
0760名無しさん＠そうだ選挙にいこう2016/06/17(金) 19:39:33.50
>>759
まず基本的なこととして、エクセルは印刷に弱い。バージョンやプリンタが変わるとすぐにずれる。むしろ保存しただけでもずれることがある。
どうしてもそのままやるなら、一度pdfに書き出してから印刷するといいと思う
もしくはチェックボックスをやめて○記号や1などにした方がいいと思う
0761名無しさん＠そうだ選挙にいこう2016/06/17(金) 20:02:43.82
>>759
ActiveX版のチェックボックスならコントロールのプロパティで
BackStyle プロパティが、[0 - fmBackStyleTransparent]（背景を透明にする）になっていないだけとか？

もしくは、フォームコントロール版なら右クリック-「コントロールの書式設定」で
塗りつぶしの設定が[塗りつぶしなし]になっていないとか？
0762名無しさん＠そうだ選挙にいこう2016/06/17(金) 20:17:13.14
【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

COUNTIFSについて質問です。
元ネタとなるシートは一つなんですが、別シートで約1万5000個のセルにCOUNTIFSを入力して集計をしなくてはいけません。
その場合、シートを1枚で全て集計するのと1000個ずつ15シートに分けて集計するのとでは再計算時間に違いは出ますか？
0763名無しさん＠そうだ選挙にいこう2016/06/17(金) 21:30:43.88
事務でエクセルを使うことになった
まずは、2007の本をかっても問題ないですか？
0764名無しさん＠そうだ選挙にいこう2016/06/17(金) 21:34:46.66
仕事で使うパソコンにインストされてるのは2007なのかい？
0765名無しさん＠そうだ選挙にいこう2016/06/17(金) 21:39:51.16
>>763
同じバージョンにした方がいい
あとはまず何を覚えるかを覚えないと厳しい
グラフなのか、ピボットテーブルなのか、それとも0から業務を作るのか
0766名無しさん＠そうだ選挙にいこう2016/06/17(金) 21:51:12.47
>>762
狂気の沙汰だから、実際に使うPCでやってみるしかないよ

根本から考え直せないならPCをハイスペックにすれば良い
0767名無しさん＠そうだ選挙にいこう2016/06/17(金) 21:59:56.41
>>762
どんなシートになってるのかわかんないけど、
自セルと同じ行だけ参照してcountifsしてるんならどっちでもそんなに変わんない気はするが。
0768名無しさん＠そうだ選挙にいこう2016/06/17(金) 22:02:17.15
>>762
分けると計算式が増えそうな気がしてならない
vbaにした方がいいと思うけど、無理なら管理面から考えてもまとめたほうがいいだろう
0769名無しさん＠そうだ選挙にいこう2016/06/17(金) 22:24:03.37
>>760-761
ありがとうございます
やってみます
07707622016/06/18(土) 07:55:48.78
>>768
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
って書いてあるだろ、死ね！
0771名無しさん＠そうだ選挙にいこう2016/06/18(土) 08:55:27.42
>>770
朝鮮人の方？キムチ食べて落ち着いて下さい
0772名無しさん＠そうだ選挙にいこう2016/06/18(土) 11:23:28.75
>>770
毎日生きてくのが辛そう　なんでおればかり、って四六時中思っていそう
頑張らないって選択肢もあるから、まずは海でも見てこい
おまえには解決できないから
0773名無しさん＠そうだ選挙にいこう2016/06/18(土) 15:57:13.73
【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

OR(A1="",A12="",A15="")
これを1つの関数でスパッとできないでしょうか？

COUNTBLANK()だと隣接しあってるセル同士しか判定出来ないのと、
仮に(A1:A15)とするとA2～11・13～15の内容次第で動作がおかしくなるので…
0774名無しさん＠そうだ選挙にいこう2016/06/18(土) 16:04:40.26
無理
0775名無しさん＠そうだ選挙にいこう2016/06/18(土) 16:33:06.30
=IF(A1&A12&A15="",1,0)
0776名無しさん＠そうだ選挙にいこう2016/06/18(土) 19:00:51.29
>>775
それは
and(A1="",A12="",A15="")
だろ
0777名無しさん＠そうだ選挙にいこう2016/06/18(土) 19:59:18.48
セル内でたとえば36.91ってなっててその上のセル内で18.9とかなってると右端づめしても２つのセルの末尾の数字が上下でちょいズレるんですけどこれなんとかなりませんか
0778名無しさん＠そうだ選挙にいこう2016/06/18(土) 21:08:26.92
>>777今設定している書式とフォントを言いなさーい
0779名無しさん＠そうだ選挙にいこう2016/06/18(土) 22:39:59.94
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

A1～A100までAとaが一文字ずつ入ったセルがあるとしてそれぞれの数を別々にカウントするにはどうすればいいですか？
フィルターではなく区別してカウントできる関数はありますか？他のシートに数字を引用するのでできれば自動化させたいんです。
0780名無しさん＠そうだ選挙にいこう2016/06/18(土) 22:41:55.35
>>773
一つの関数じゃん
0781名無しさん＠そうだ選挙にいこう2016/06/18(土) 23:05:30.63
>>779
https://support.office.com/ja-jp/article/COUNTIF-%E9%96%A2%E6%95%B0-e0de10c6-f885-4e71-abb4-1f464816df34
07827792016/06/19(日) 00:57:05.62
>>781
>COUNTIF では、テキスト文字列の大文字と小文字が区別されないことに留意する。
>検索条件 では、大文字と小文字は区別されません。つまり、検索条件として文字列 "apples" を指定した場合と文字列 "APPLES" を指定した場合の結果は同じです。

COUNTIF以外でやる方法でいいので教えて下さい。
0783名無しさん＠そうだ選挙にいこう2016/06/19(日) 00:57:08.01
やりたいのはこういうことか？

Function どれか空白(a1, a12, a15)
　　どれか空白 = a1 = "" or a12 = "" or a15 = ""
End Function
07847732016/06/19(日) 00:59:12.67
>>783
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
って書いてあるだろ、死ね！
0785名無しさん＠そうだ選挙にいこう2016/06/19(日) 01:06:32.03
撤収！
0786名無しさん＠そうだ選挙にいこう2016/06/19(日) 01:32:43.07
(｀･ω･´)ゞ らじゃ
0787名無しさん＠そうだ選挙にいこう2016/06/19(日) 02:02:43.20
>>779
B1に=code(A1)と入れてB100までオートフィル。
B1～B100まで数字のリストが出たら、Aは65でaは97となるのでその数字をCOUNTIFで計算する。
0788名無しさん＠そうだ選挙にいこう2016/06/19(日) 02:36:25.47
>>780
比較的簡単に、関数なしでもできるよな
0789名無しさん＠そうだ選挙にいこう2016/06/19(日) 05:09:13.12
比較的に俺天才まで読んだ
0790名無しさん＠そうだ選挙にいこう2016/06/19(日) 09:47:23.25
一応言っとくと>>784は>>773じゃない
他人になりすまさないと人を攻撃することができない、在日みたいな人
別の角度で見ると、自分はとても矮小で無力な存在です、と大きな声で宣伝しているわけだ
07917492016/06/19(日) 09:49:41.64
>>751
大変遅くなりましたが、ありがとうございましたm(_ _)m
0792名無しさん＠そうだ選挙にいこう2016/06/19(日) 10:00:08.31
>>777

18.90
36.91

これで良いなら、セルの書式設定－表示形式－ユーザー定義－種類（#.#0)
0793名無しさん＠そうだ選挙にいこう2016/06/19(日) 13:43:58.18
【1 OSの種類 　 　 　 　 .】 Windows8
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
よくWebの入力フォームで見かける
「未入力時は薄い灰色でセル内にメッセージが入ってるんだけど、クリックしたとたんに未入力セルになる」
を再現したいのですが書式設定やスタイルだけでなんとかなりませんか？
LibreOffice（Calc）の人も同じファイルを開くのでVBAとかマクロなしでおねがいします

住所
［ここに住所を入れてください　　　］

↓カーソルを合わせる（クリック）

住所
［　　　　　　　　　　　　　　　　　　　　 ］

こんなかんじです。
0794名無しさん＠そうだ選挙にいこう2016/06/19(日) 13:49:58.08
無理
0795名無しさん＠そうだ選挙にいこう2016/06/19(日) 13:54:08.27
>>793
プレースホルダーな

予め"0"を入れておいていいなら、
ユーザー定義で
0;-0;"未入力";@
とすれば0の時は未入力と表示される
で、条件付き書式で0の時にグレーにすればそれっぽく見える
もちろん0と入力することはできなくなるので、0で回答するパターンが有る場合は-1などを代用する

未入力状態の書式設定ができれば簡単なんだけどねぇ
0796名無しさん＠そうだ選挙にいこう2016/06/19(日) 16:18:20.18
>>782
SUMPRODUCTを使えばいいと思うよ
07977792016/06/19(日) 20:31:22.09
>>787
ありがとうございます。その方法でできました。
0798名無しさん＠そうだ選挙にいこう2016/06/19(日) 23:17:22.21
【1 OSの種類】Windows7
【2 Excelのバージョン】 Excel2013
【3 VBAが使えるか】いいえ
【4 VBAでの回答の可否】否
【5　参考】http://i.imgur.com/gP3YpMJ.gif

ランキング表の作り方について教えて下さい

A列とB列はフリー入力で、C列はRANK関数で参照先はB列、
E列はSMALL関数で参照先はC列で、F列はINDEXとMATCHを組み合わせてA,C,E列を参照しています

この場合ランキングで同位の場合一人目の名前が連続してしまい二人目の名前を拾ってくれません
3位には縦に青山,加藤　5位には伊東,塩見　10位には臼井,近藤と表示したいのです

元設定した式は変えても構いませんので良い方法を教えて下さい
0799名無しさん＠そうだ選挙にいこう2016/06/19(日) 23:37:52.36
>>798
Cのランキングはランク+row()/100000などとする
青山は3.000002
加藤は3.000007
おとなって重複を防ぐことができる

E列はindex(a:a,match(small(c:c,row()-1),0))
みたいにすればok

もし更に順位を付けたい場合は
青山　3.001002
加藤　3.002007
となるように一個噛ませてあげると良い
08007982016/06/20(月) 00:26:05.00
>>799
ありがとうございます。
C列にrow()/100000の追加をして、E列で小数点以下を非表示にしたら理想の結果になりました。
0801名無しさん＠そうだ選挙にいこう2016/06/20(月) 07:36:48.15
>>796
SUMPRODUCTでも大文字、小文字はCOUNTIFと同じ扱いになるような

95の頃はCOUNTIFでも別文字扱いだったんだが大文字、小文字違いが別判定は英語圏で不評だったんだろうな
0802名無しさん＠そうだ選挙にいこう2016/06/21(火) 16:58:31.14
会社でExcelの関数を教えなければなりません
思いついたのは
IF(ANDとORも一緒に)、VLOOKUP、SUMIF、ROUND(ROUNDUPとROUNDDOWNも一緒に)
くらいですが、仕事に役立つのをSUMとかAVERAGE以外で10個くらいと言われてます
教える相手は関数はSUMとせいぜいAVERAGEくらいで
関数を組み合わせて使うのは理解不能だと思われるので
単独で使える関数を考えているのですが思いつきません
他に何があるでしょうか？
0803名無しさん＠そうだ選挙にいこう2016/06/21(火) 17:03:24.88
andorのついでにnot
sumproduct
indirect
choose
iferror、むしろこれはvlookupとセットがいいだろう。vlookupもindexmatchがいいとは思う
あとシート名出すためにcell
0804名無しさん＠そうだ選挙にいこう2016/06/21(火) 17:21:39.55
>>803
早速ありがとうございました
でも単独で使えるのはsumproductくらいですね
indirect、index、matchは単独で使う方法が思いつきません
教える相手は関数の中に関数があるようなのは理解できないレベルです
notは<>で代用できるし
chooseはvlookupで同じことができるので
そのような関数は避けたいと思います
0805名無しさん＠そうだ選挙にいこう2016/06/21(火) 17:25:27.18
>>802
・条件分岐 IF(AND OR も一緒に)
・:検索関数(VLOOKUP)
・合計関数(SUM SUMIF SUMIFS)
・個数関数(COUNT COUNTIF COUNTIFS 等)
・四捨五入・切り捨て・切り上げ関数(ROUND ROUNDUP ROUNDDOWN 等)
・最大・最小・平均を出す関数(MAX MIN AVERAGE)
・日付関係の関数
とか
なかなか単独で使えそうな関数列挙するの難しいな
0806名無しさん＠そうだ選挙にいこう2016/06/21(火) 17:54:10.91
>>802
SUMと一緒に、SUBTOTAL
0807名無しさん＠そうだ選挙にいこう2016/06/21(火) 18:46:31.58
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
超素人な質問ですみません。

c2=INDIRECT(ADDRESS(2,2))　と　c3=INDIRECT($B$2)　は同じ意味かと思うのですが返される値が違いました。
ADDRESS(2,2)とは($B$2)を返すのではないのでしょうか。
c2とc3がなぜ同じ値にならないのが理解できません。

http://fast-uploader.com/file/7022057776518/
0808名無しさん＠そうだ選挙にいこう2016/06/21(火) 18:50:05.08
>>807
=INDIRECT(ADDRESS(2,2))
の　ADDRESS(2,2) の結果は　文字列の$B$2に対し
=INDIRECT($B$2)
の　$B$2 は　セル参照

つまり
=INDIRECT(ADDRESS(2,2))　　　　　　と =INDIRECT("$B$2")
が同じ意味となる

因みに
=INDIRECT(INDIRECT(ADDRESS(2,2)))　と =INDIRECT($B$2)
が同じともいえる
0809名無しさん＠そうだ選挙にいこう2016/06/21(火) 18:51:36.19
>>807
indirectの引数は文字列。あと相対参照のほうが見やすい
=INDIRECT("B2",1)
もういっちょいうとr1c1のほうが使いやすい
=INDIRECT("r2c2",1)
08108072016/06/21(火) 18:51:53.13
スクショは間違えでした

http://fast-uploader.com/file/7022058203984/
0811名無しさん＠そうだ選挙にいこう2016/06/21(火) 19:32:13.99
>>802
TODAY
LARGE
SMALL
辺りは、分かりやすいんじゃないかな
0812名無しさん＠そうだ選挙にいこう2016/06/21(火) 19:50:20.50
>>805-806
>>811
ありがとうございました
COUNT関連、SUBTOTAL、LARGEとSMALLは単独での使い方思いつかなかったけど
それでおもいついたRANKくらいを
教えておこうと思います

TODAY()は単独で使うと日付を表示するだけで
そういう使い方されると問題起こりそうなので
やめておくことにします
0813名無しさん＠そうだ選挙にいこう2016/06/21(火) 20:15:08.52
大変そうだな。ｶﾞﾝﾊﾞﾚ
0814名無しさん＠そうだ選挙にいこう2016/06/21(火) 21:07:57.95
ネストした関数がわからなないのに sumproduct は理解できる
って言う状況が想像できない...
0815名無しさん＠そうだ選挙にいこう2016/06/22(水) 02:50:34.99
教えてください。

Msgbox err.Description　という処理を、実際にエラーが起こっているときだけに実行
するように、If文で囲みたいです。
（エラーが発生してないときは、無文章のメッセージボックスが出てきてしまうのを防ぎたい）

どう書けばいいでしょうか？
たしか「エラー番号がゼロ以上なら」とかなんとか、そんな感じの条件だった記憶があるのですが。。
0816名無しさん＠そうだ選挙にいこう2016/06/22(水) 03:12:30.83
そのままだとおもうが
If Err.Number > 0 Then
　MsgBox Err.Description
End If
0817名無しさん＠そうだ選挙にいこう2016/06/22(水) 03:14:26.49
>>816
ありがとうございます！
0818名無しさん＠そうだ選挙にいこう2016/06/22(水) 03:17:19.06
【1 OSの種類 　 　 　 　 .】 Windows　XP
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

先生。
http://fast-uploader.com/transfer/7022088102467.jpg
A列のセルを参照して同じ物がＢ列のセルにあればその横のＣ列にわかるように表示させたいです。
関数では難しいでしょうか。５千行くらい処理あります。
☆マークではなくて　そのまま同じセルの内容の方うまくいくのかな。。（C1=3 C5=1)
0819名無しさん＠そうだ選挙にいこう2016/06/22(水) 03:31:08.66
>>818
なんかうまくいきましたすいません。

=IF(COUNTIF(A:A,B1),"☆","★")
0820名無しさん＠そうだ選挙にいこう2016/06/22(水) 03:58:49.80
>>802
・LEFT
・RIGHT
・MID
これで3枠ゲット
0821名無しさん＠そうだ選挙にいこう2016/06/22(水) 04:26:03.59
お願いします。
VBAで、あるセルの値（「天津飯」とか「タン麺」とかいろいろな料理名）を引数にして
使う以下のようなファンクション命令を作っています。

Private Function FKnd(f As String) As String
If fの文字列の中に「麺」が含まれるなら
　　　FKnd = "麺"
ElseIf fの文字列の中に「飯」が含まれるなら
　　　FKnd = "飯"
ElseIf fの文字列の中に「汁」が含まれるなら
　　　FKnd = "汁"
Else それ以外なら
　　　FKnd = "果"
End if
End Function

↑
このコードの、日本語部分をどう書けばいいのか教えてください。
0822名無しさん＠そうだ選挙にいこう2016/06/22(水) 04:34:53.13
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 不可

countifをする際に範囲をA1:D100000とするのとA:Dとするのでは計算時間に差は出ますか？
　※A:Dの場合もデータはA1～D100000まで入っているものとします。
0823名無しさん＠そうだ選挙にいこう2016/06/22(水) 04:41:16.16
>>821
>>If fの文字列の中に「麺」が含まれるなら
If f Like "*麺*" Then

後はいいよね
0824名無しさん＠そうだ選挙にいこう2016/06/22(水) 04:47:59.80
>>823
助かりました。
どうもありがとうございました。
0825名無しさん＠そうだ選挙にいこう2016/06/22(水) 05:09:20.98
>>824
どういたしまして。
0826名無しさん＠そうだ選挙にいこう2016/06/22(水) 05:24:13.86
すみませんVBA初心者です
Os:Windows7
Excel:2007
ユーザーフォーム上のリストボックス内にデータの検索結果を表示させることについて、実際のシート上でのデータのセル番地(行)を取得する方法がわかりません。
ググってみても、リストボックス上での行しか取得出来ないのですが何か良い方法はありますでしょうか？
行いたいユーザーフォームの動作としては、

1:品名等をtextbox1～5のどれかに入力し、ヒットしたデータをフォーム内リストボックスに表示する

2:リストボックス内のデータ何れかをクリックもしくはダブルクリックし選択データの内容変更を行う(別途入力用フォームを表示させても構わない)

上記2:の部分で、リストボックス内検索結果のシート上の行が1500行目だったとし、リストボックス内での順番が5行目だった場合、内容変更を行うと、シート上の5行目の内容が書き換えられてしまいます
シート上の1500行目を取得するよい方法がありますでしょうか

よろしくお願いします
0827名無しさん＠そうだ選挙にいこう2016/06/22(水) 08:13:48.55
>>822
自分でやってみりゃいいだけ
08288072016/06/22(水) 09:38:08.08
>>808さん809さんありがとうございました。
0829名無しさん＠そうだ選挙にいこう2016/06/22(水) 09:38:42.24
>>826
1.の段階でセル番地(行)を取得してリストボックスに入れておくといいんじゃね?

複数列のリストボックス
http://officetanaka.net/excel/vba/tips/tips158.htm
これ使って
セル値をリストBOXに入れる時(つまり 1.の段階ね)

　列0　　　　列1
データ　セル番地(行)

って入れてけば リストボックスから取り出す時に
ListBox1.List(ListBox1.ListIndex, リストボックスの列番号)
でやれば データとともに　元々の　セル番地(行)も取得できる

(因みに　ColumnCount=1　としとけば　リストボックスの列1　は隠せる)
0830名無しさん＠そうだ選挙にいこう2016/06/22(水) 10:30:17.47
>>829
ありがとうございます
試してみます
また質問するかも知れませんがよろしくお願いします
0831名無しさん＠そうだ選挙にいこう2016/06/22(水) 12:29:08.24
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい･
【4 VBAでの回答の可否】 可･
http://www.239-programing.com/excel-vba/dco/dco014.html
ここを参考に文字列の数値を数えてますが、フィルターを使った時に数が合いません。文字列の種類は11種類、行数は300くらい。よろしくお願いします。
0832名無しさん＠そうだ選挙にいこう2016/06/22(水) 12:54:40.39
>>831
具体的に説明するか上手くいかないコード示さないと
エスパーか自演以外のレスはつきにくいよ
0833名無しさん＠そうだ選挙にいこう2016/06/22(水) 13:16:28.68
失礼します
質問なのですが、オートコンプリートを「入力変換確定後は許可」するけど、「入力変換中は無効化」するような設定方法は無いでしょうか？
（オートコンプリートのON／OFFの仕方はわかります）
変換確定後に候補を示唆してくれるだけなら不要ならバックスペースを押してキャンセルするだけで済みますが、
変換確定前に出てくると、変換を確定するためにエンターを押すとその時点でオートコンプリートも適用されてしまい不便なのですが。
0834名無しさん＠そうだ選挙にいこう2016/06/22(水) 18:54:24.62
>>831
不思議なのはそのサイト内に掲示板あるのに、なんでここで聞くかな
アクセス稼ぎかな
0835名無しさん＠そうだ選挙にいこう2016/06/22(水) 20:16:01.97
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

詳細設定(フィルターの)のリスト範囲ってすべてのシートを対象にできないの？
0836名無しさん＠そうだ選挙にいこう2016/06/22(水) 20:33:48.18
斬新だなw
0837名無しさん＠そうだ選挙にいこう2016/06/22(水) 20:41:14.41
無理す
0838名無しさん＠そうだ選挙にいこう2016/06/22(水) 20:50:36.52
間違えた抽出範囲
0839名無しさん＠そうだ選挙にいこう2016/06/22(水) 21:02:12.08
▼━質問テンプレ (出来れば使ってね) ━━━
＞【1 OSの種類 　 　 　 　 .】 MAC
＞【2 Excelのバージョン 　 】 Excel2011
＞【3 VBAが使えるか　 　 .】 ･いいえ
＞【4 VBAでの回答の可否】 ･否

お願いします。コメントでどう伝えからいいかよくわかりませんので、

http://i.imgur.com/ns9fRPy.jpg

3257の右下にはコメントが記載されています。
コメントが記載されていない番号のみ抽出する方法ってありますでしょうか。
番号が被っているのはわざとです。
08408312016/06/22(水) 22:30:41.16
>>832
>>834
数が合わないのは自分の間違いでした。
ただ、合計と平均が正しく表示されないのは事実でした。

http://fast-uploader.com/file/7022157545927/
N列は正しいのですが、O列の合計とP列の平均がほとんど
ゼロになってしまいました。
0841名無しさん＠そうだ選挙にいこう2016/06/22(水) 23:24:30.88
>>>840
元の質問からすると
モジュール4の Sub ⑤情報のカウント()
だろうけど
↓が問題
dco_Sum.Item(wKey) = CLng(dco_Sum.Item(wKey)) + _
　　 CLng(cells(wRow, COL_I_PRICE).Value)

これ 元データ時間で 時間計算してるよね?

EXCELの日付時間は内部的にシリアル値
・整数部 1900/1/1 を1とした経過日数
・少数部 時間 (1/24=1時間)

なのよね　しかし上のコードではCLng()で整数型にして　少数部を捨てちゃってる
のでいくら集計しても　時間としては　0:00:00

新規登録時は　CLng() してないから　N列の　=1 の時は時間が出てる

でこのように変更してみては?

'金額加算
dco_Sum.Item(wKey) = CDbl(dco_Sum.Item(wKey)) + _
　　 CDbl(cells(wRow, COL_I_PRICE).Value)
0842名無しさん＠そうだ選挙にいこう2016/06/23(木) 09:57:05.62
if(なんたら関数>0,なんたら関数,"")

誰でもこういう使い方をすることは多いと思うんだが、なんたら関数が長いと見た目が美しくない。
構文を改善してもらいたいなあ。
しかも馬鹿エクセルはなんたら関数を2度計算してると見てるんだが・・
0843名無しさん＠そうだ選挙にいこう2016/06/23(木) 10:02:58.37
>>842
馬鹿はお前
作業列を使えばいいだけ
0844名無しさん＠そうだ選挙にいこう2016/06/23(木) 12:04:43.93
作業列ってVBAで言えば変数（配列）だからな
使えない奴は使えない
0845名無しさん＠そうだ選挙にいこう2016/06/23(木) 12:16:30.87
2007以前のバージョンだと作業列が原因で循環判定が誤作動起こすこともあるから痛し痒しか

2010以降にするなら問題起きないが
0846名無しさん＠そうだ選挙にいこう2016/06/23(木) 12:23:49.21
97の頃から作業列使ってるが何の問題もないな？
0847名無しさん＠そうだ選挙にいこう2016/06/23(木) 12:24:20.10
>>842
また分からんではないな
0848名無しさん＠そうだ選挙にいこう2016/06/23(木) 12:56:56.31
>>845
それ初めて聞いた、どんな状態でなるの？

これとは違うよね？
http://excel2007.officetanaka.com/?eid=424016
0849名無しさん＠そうだ選挙にいこう2016/06/23(木) 13:26:55.37
SUMPRODUCTの使い方は知ってるけど配列と言われると何のことか分からんな
0850名無しさん＠そうだ選挙にいこう2016/06/23(木) 13:42:30.21
>>849
配列はデータの集合であり、添え字で個々の要素を区別するものを指す。
古典的なプログラミング言語では同じデータ型の集合に限定されるが、
比較的新しい言語や多くの高水準言語では異なった型も格納することができる。
例えばJavaScriptでは一般的なオブジェクトも一種の連想配列である。

って言葉にしても全然分からんな
vbaだとめちゃくちゃ使う。使って覚えたほうが早い。
0851名無しさん＠そうだ選挙にいこう2016/06/23(木) 13:48:56.81
SheetやBookも配列みたいな物だ
Sheetは二次元
Bookは三次元の配列
0852名無しさん＠そうだ選挙にいこう2016/06/23(木) 13:52:41.92
作業列は1次元の配列って訳ね
0853名無しさん＠そうだ選挙にいこう2016/06/23(木) 14:11:48.60
ちげーよｗｗｗ
bookもsheetも1次元
bookのメンバにsheetがある
0854名無しさん＠そうだ選挙にいこう2016/06/23(木) 14:32:39.73
>>843
わざわざ作業列なんか使ったら、余計美しくないし遅くなるだろｗ

>>842
試しにVBAでスピード比較してみたら、2度計算してそうだな。
目から鱗の発見かもｗ
0855名無しさん＠そうだ選挙にいこう2016/06/23(木) 18:38:22.35
>>829
色々試してみましたが上手くいきませんでした。ググってみても検索用ユーザーフォームから直接内容変更は意外とややこしく、あまりしない方が良い様な意見が多かったので、諦めて変更入力は直接シートからする様にします
とにかくありがとうございました。

しかしlistindexってlist内だけでの行取得して何の役に立つんだろうか？
0856名無しさん＠そうだ選挙にいこう2016/06/23(木) 22:07:13.47
セル毎にナンバーふって保存してるんだけど、二つのデータを合わせて
被ってないものだけ抽出ってできますか？

1 1
2 2
3
4
5 5
6 6
で34だけ抽出したいのですが、可能でしょうか。
0857名無しさん＠そうだ選挙にいこう2016/06/23(木) 22:18:21.65
>>854
ええっ
同じ計算をいちいち2回してるって、そんなの見ればわかるじゃん
IFじゃなくても例えば

=何か関数+何か関数

みたいな単純な式でも2回計算するよ

関数が入れ子になってたりすると完全に同一かどうか調べるのはかなり大変になるんで、
普通は馬鹿正直に2回実行するもんだけど(その方が早いことが多い)
だから一般的には作業列を使えって言われてるんだよ
0858名無しさん＠そうだ選挙にいこう2016/06/23(木) 22:18:58.22
>>856
ホントに　その例のような 状態なの??????

A列　B列
1　　1
2　　2
3
4
5　　5
6　　6
で1行目から入ってるなら

C1 =IF(A1=B1,"",A1)
D1 =IFERROR(SMALL(C:C,ROW()),"")
下にオートフィル

で　D列が結果ww
0859名無しさん＠そうだ選挙にいこう2016/06/23(木) 22:39:56.73
>>857
冗長な処理をコッソリ最適化してくれるアプリもあるよ。コンパイラとか
エクセルでそれをやってるとは思わないけどね

>>858
C1 =IF(A1<>B1,A1&b1,"")
とかね
0860名無しさん＠そうだ選挙にいこう2016/06/23(木) 22:42:58.82
>>841
アドバイス、ありがとうございます。
見つけたVBAをコピペしただけなので、内容が理解できていませんでした。
文字列と数値が別の扱いなのは、なんとなくわかってましたが、
小数点以下を切り捨てるとは、わかりませんでした。
08618412016/06/23(木) 22:56:12.07
>>860
正確には小数点1位を四捨五入して整数化してるようです
Debug.Print CLng(1.5) ・・・・2
Debug.Print CLng(1.4) ・・・・1
になるwww
08628602016/06/23(木) 23:38:55.11
>>861
ご指摘ありがとうございます。
VBAは難しいです。F8で変数がどうなってるか、わかればいいのですが。
0863名無しさん＠そうだ選挙にいこう2016/06/23(木) 23:51:39.37
>>861-862
関数でわからない時はリファレンスを見る癖をつけよう
何をやろうとしているか知らないけど、CLng()は正直使わないほうがいいと思う

https://msdn.microsoft.com/ja-jp/library/cc410213.aspx
メモ CLng 関数は小数部分を丸めますが、Fix 関数と Int 関数は小数部分を切り捨てます。
小数部分が 0.5 の場合は、CLng 関数は常に最も近い偶数に値を丸めます。
たとえば、0.5 を 0 に、1.5 を 2 に、それぞれ丸めます。
0864名無しさん＠そうだ選挙にいこう2016/06/23(木) 23:57:13.51
>>857
関数Ａ＋関数Ａが2度計算するのはなんとなく理解できるが、
>>842のif(なんたら関数>0,なんたら関数,"") も2度計算するのかｗ

でも、関数のしつこさにもよるが、作業列使うとかえって遅くなる悪寒・・
0865名無しさん＠そうだ選挙にいこう2016/06/24(金) 00:05:18.10
>>864
気になるなら試してみては？

実際に困るまでどっちが早いとか興味ないわ
0866名無しさん＠そうだ選挙にいこう2016/06/24(金) 00:24:04.55
>>865
興味なきゃレスしなければ良いのに(´-`).｡ｏＯ
興味あるから（かまって欲しいから）レスしたんだよね！
0867名無しさん＠そうだ選挙にいこう2016/06/24(金) 00:26:32.88
>>866
どうでも良いことに一々構うな
荒れるだろ
0868名無しさん＠そうだ選挙にいこう2016/06/24(金) 00:33:55.60
>>863
843にある、時間の計算。信号が変わった時間しか拾わないから、自分の技量では、ほぼお手上げでした。
0869名無しさん＠そうだ選挙にいこう2016/06/24(金) 00:34:20.73
うーん
作業列含めIF(なんたら関数・・)が美しくないというのは同意。
遅いか遅くないかは使い方次第だが、わざわざ作業列使う気にはならんな。
0870名無しさん＠そうだ選挙にいこう2016/06/24(金) 00:37:12.39
>>863
>>840でした。
0871名無しさん＠そうだ選挙にいこう2016/06/24(金) 00:38:20.30
>>869
美しさを語りたいならこちらへ
Excel総合相談所 122 [無断転載禁止]?2ch.net
http://echo.2ch.net/test/read.cgi/bsoft/1461287268/
08728692016/06/24(金) 00:44:39.30
>>871
誘導されて来ました！
0873名無しさん＠そうだ選挙にいこう2016/06/24(金) 00:45:45.60
>>872
間違えた

美しさを語りたいならこちらへ
【質問不可】Excel総合相談所スレの雑談・議論スレ3
http://echo.2ch.net/test/read.cgi/bsoft/1354358619/
0874名無しさん＠そうだ選挙にいこう2016/06/24(金) 00:46:34.50
オレも(｀･ω･´)
0875名無しさん＠そうだ選挙にいこう2016/06/24(金) 00:48:45.84
暇な奴は>>840手伝ってくれ
0876名無しさん＠そうだ選挙にいこう2016/06/24(金) 01:25:08.94
>>840
分かった。ココが悪い
先に解決方法
dco_Sum.Item(wKey) = CLng(dco_Sum.Item(wKey)) + _
CLng(Cells(wRow, COL_I_PRICE).Value)
↓
dco_Sum.Item(wKey) = dco_Sum.Item(wKey) + _
Cells(wRow, COL_I_PRICE).Value

dco_Sum.Item(wKey)には時間が入ってる。時間はシリアル値で1時間は大体0.04ぐらい
で、それをclng()に入れるんだから0になる
Cells(wRow, COL_I_PRICE).Valueも同様にclng()で0になっている
clng()は多分金額計算か何かに使っていたんだろう。

というかこんなややこしい事態になるなら最初から作ったほうが早いと思う
俺ならDictionaryとか使わない
0877名無しさん＠そうだ選挙にいこう2016/06/24(金) 02:54:46.35
数値の表示方法で、整数から小数点以下二桁までの数値が並んでます
1なら1.0
1.1なら1.1のまま
1.11なら1.11のまま
としたいんだけれど、どうやるんだっけ？
0878名無しさん＠そうだ選挙にいこう2016/06/24(金) 03:13:41.50
0.0#
0879名無しさん＠そうだ選挙にいこう2016/06/24(金) 03:17:26.82
桁位置を合わせる場合は

0.0?
0880名無しさん＠そうだ選挙にいこう2016/06/24(金) 06:12:51.59
>>876
Dictionaryを使わない方法がわかりませんでした。
http://fast-uploader.com/file/7022157545927/
ここをそのままつかったから。
0881名無しさん＠そうだ選挙にいこう2016/06/24(金) 10:13:23.27
>>880
H列をコピーしてRに値で貼り付け
並び替えでフィルタして重複を除く
S列にコピーペースト
後はcountif、sumifだけ
超楽勝
0882名無しさん＠そうだ選挙にいこう2016/06/24(金) 12:23:58.44
>>881
それ、合計時間と平均時間の式をいれないとダメなんじゃないの？
0883名無しさん＠そうだ選挙にいこう2016/06/24(金) 12:34:13.39
合計はsumifで出す。平均はただの割り算だからわざわざ書いてない
0884名無しさん＠そうだ選挙にいこう2016/06/24(金) 12:43:03.82
>>883
質問者はvbaでの並べ替えや重複の削除ができない気がする。
0885名無しさん＠そうだ選挙にいこう2016/06/24(金) 13:17:51.82
>>827
分からないならレスするな死ね！！
0886名無しさん＠そうだ選挙にいこう2016/06/24(金) 14:15:44.10
ごめんなさい死にました
0887名無しさん＠そうだ選挙にいこう2016/06/24(金) 18:10:27.85
マルチすいません。
VBAスレで質問したのですが理解ができず、ここにきました。

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

質問
シフト表の作成です。7連続勤務以上のセルを緑に色付けします。
A～AEの1～31日までのセル
×、空白以外のセルは勤務でカウント

条件書式が苦手でイマイチ理解できません。
COUNTIFSで、×と空白以外をカウントし、7以上なら、という数式は組めます。
それをどう条件書式に落とし込んだらいいのか理解できません。

例えばA:Gのセルに対して、条件書式は余裕でできます。
数式も、その範囲で×と空白以外が7以上だったら緑。と設定すればうまくいきます。
けど、これを31日分全てに設定する方法が理解できません。
VBAスレで聞いて試したのですが、
うまくいかないし、よくわかりません。
誰か教えていただけますか？
0888名無しさん＠そうだ選挙にいこう2016/06/24(金) 18:35:03.87
>>887
URLを
同じ回答になったらアホらしので
0889名無しさん＠そうだ選挙にいこう2016/06/24(金) 18:50:39.06
>>888
Excel VBA 質問スレ Part41
http://echo.2ch.net/test/read.cgi/tech/1461697906/

よろしくお願いします。
VBAはできます。というかC#.net VB.Netなどやるんですが、エクセルは仕様書でしか使わない為
エクセル独自の機能に疎いのです。
正直マクロで組んだほうが楽なんですが、スマートではないと思うので。
よろしくお願いします。
0890名無しさん＠そうだ選挙にいこう2016/06/24(金) 18:57:29.81
>>889
どのレスだよｗ
0891名無しさん＠そうだ選挙にいこう2016/06/24(金) 19:44:14.63
>>889
直近です
0892名無しさん＠そうだ選挙にいこう2016/06/24(金) 19:44:58.98
919に質問入れてます。
0893名無しさん＠そうだ選挙にいこう2016/06/24(金) 19:52:37.69
多分自分が絶対参照と相対参照をあまり理解してないせいかもしれません。

わかる方、実現の方法だけでもいいのでおしえてください。
簡単にできそうなのにできなくて、情けないです
0894名無しさん＠そうだ選挙にいこう2016/06/24(金) 20:41:38.23
C#やVBができるとかいう情報は不要だから
VBAでやるにしても、ちょっとググればExcel独自機能の使い方なんていくらでも出てくるだろうに
検索エンジンすら使えずによく仕事できるよな、って思ったけど口には出さないでおこう

ほれ

Sub Macro1()
　　r = 1　' 処理する行
　　Rows(r).Interior.Pattern = xlNone
　　For c = 1 To 25
　　　　f = True
　　　　For i = 0 To 6
　　　　　　Select Case Cells(r, c + i)
　　　　　　　　Case "", "×": f = 0
　　　　　　End Select
　　　　Next
　　　　If f Then
　　　　　　For i = 0 To 6
　　　　　　　　Cells(r, c + i).Interior.Color = RGB(103, 201, 113)　　' 好きな電車の形式を並べること
　　　　　　Next
　　　　End If
　　Next
End Sub
0895名無しさん＠そうだ選挙にいこう2016/06/24(金) 21:32:32.71
>>894
すいません。マクロでやるのはスマートでないし、条件書式でやりたいので、
そういうソースはいらないです。
ごめんなさい。
マクロでやるならすぐできますよ。

それに…
ちょっと、そのコーディングはいただけなくないですか？w
0896名無しさん＠そうだ選挙にいこう2016/06/24(金) 21:33:35.25
>>894
条件書式でするにはどうされます？

何度か質問してるのですが、明確な答えをくれる方がいないのでどうしたものかと。
0897名無しさん＠そうだ選挙にいこう2016/06/24(金) 21:37:10.17
>>895
横からレスするけれど
>>887で
>>【4 VBAでの回答の可否】 可
なぜ可とした?

因みに
条件付き書式に使う
ユーザ定義関数(VBA)も不可?
0898名無しさん＠そうだ選挙にいこう2016/06/24(金) 21:38:10.81
釣り師認定されてるからじゃ？
0899名無しさん＠そうだ選挙にいこう2016/06/24(金) 21:45:46.64
無駄にプライドだけ高い、理解不能の美学を持ってる、人に物を教えて貰う態度じゃない
レスが付かなくて当たり前だと気付けよ、若造
0900名無しさん＠そうだ選挙にいこう2016/06/24(金) 21:48:27.02
>>895
おまえの言うことなんて全然信用できないね
証拠を見せろ
その「すぐできるマクロ」のソースをここに書いて見せろよ

そうしたら条件付き書式でやる方法を教えてやるよ
0901名無しさん＠そうだ選挙にいこう2016/06/24(金) 22:50:15.04
>>887
A:AEまで選択して
=SUM(RC[-6]:RC)>=7
で出来るでしょ

COUNTIFは余裕で使えるらしいので数式は適宜書き換えてくれ
これで理解できなかったらお前は自分で思ってるほど理解力が高くないのでプライド捨てて死ね
0902名無しさん＠そうだ選挙にいこう2016/06/24(金) 23:51:08.00
>>901
ありがとうそれでやってみます。
むしろこれだと理解できるんですが、
それまでの回答の殆どがよくわからなかったんですよねー
いや、ならんだろ～みたいな回答もあったので。
SUMの部分は適当に変えてそれでやってみます。

>>897
ああ、そういう意味なの？
理解可能かどうかって意味かと思ったよごめんね
0903名無しさん＠そうだ選挙にいこう2016/06/24(金) 23:59:16.45
"VBAでの回答の可否"を

>>理解可能かどうかって
どう読んだらそうなるwww 日本語OK?

EXCEL　とかC#.net VB.Net とか覚える前に　日本語覚えろ
さすがにそう解釈した　質問者(たとえ初心者でも) いねーぞ
122スレ目で お前が始めて
0904名無しさん＠そうだ選挙にいこう2016/06/25(土) 00:26:08.38
まぁアスペに噛まれたと思って
0905名無しさん＠そうだ選挙にいこう2016/06/25(土) 08:01:29.48
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
でVBAなら…とか言うバカもいるしお互い様だな
0906名無しさん＠そうだ選挙にいこう2016/06/25(土) 08:43:51.89
前の人の質問をコピペしたからじゃないの？
意味を考えずにこれが必要なのか・・とｗ
0907名無しさん＠そうだ選挙にいこう2016/06/25(土) 18:05:03.88
【1 OSの種類 　 　 　 　 .】 Windows 7
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

グラフについて相談させて下さい
下記のグラフで、範囲を超えて表示できていない数値が1ヶ所あります。
グラフの数値の上限を引き上げることなく、表示させる方法はありませんでしょうか？
上限をこんなに超えてることを表現したいんです。
http://i.imgur.com/5nOZO7p.jpg

宜しくお願い致します
0908名無しさん＠そうだ選挙にいこう2016/06/25(土) 19:59:17.08
背景透明でもう一個グラフ作って重ねる
その際最大値より大きなキリのいいとこまでの少し縦長で作ってね
横軸の比率もぴったりあわせて
余計な枠とか軸線とか補助線とか消して
レイヤー作戦完了
0909名無しさん＠そうだ選挙にいこう2016/06/25(土) 20:07:06.12
>>908
ありがとうございます
レイヤーで重ねる発想はなかったですが、力業ですね
やってみたいと思います
理想としてははみ出したポイントも数値を表記したかったのですが、想定されたものではないんですね
ありがとうございました
0910名無しさん＠そうだ選挙にいこう2016/06/25(土) 23:18:26.31
>>909
赤線を右クリックしてラベルの追加
目盛りや補助線など必要な部分以外は全て消せば良し
0911名無しさん＠そうだ選挙にいこう2016/06/26(日) 08:51:32.68
>>903
他人に偉そうに説教するならまず自分が正しい日本語を覚えろ
正しくは「始めて」じゃなくて「初めて」だ
0912名無しさん＠そうだ選挙にいこう2016/06/26(日) 09:40:55.78
2ch で誤字指摘とかどんだけ必死なんだよ w
0913名無しさん＠そうだ選挙にいこう2016/06/26(日) 10:01:22.81
>>910
ありがとうございます
やってみます
0914名無しさん＠そうだ選挙にいこう2016/06/26(日) 10:01:29.37
でた 必殺の返し「必死」
0915名無しさん＠そうだ選挙にいこう2016/06/26(日) 10:41:11.51
必死返しかっこよすぎる


昭和爺はとっとと引退すればいいのに
0916名無しさん＠そうだ選挙にいこう2016/06/26(日) 10:53:19.21
【1 OSの種類 　 　 　 　 .】 -
【2 Excelのバージョン 　 】 -
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

IDもIPもない板での名無し同士の人格攻撃ってアホらしくならないんでしょうか？
0917名無しさん＠そうだ選挙にいこう2016/06/26(日) 10:53:58.36
>>916の続きです
また、なんのためにやっているのでしょうか？
0918名無しさん＠そうだ選挙にいこう2016/06/26(日) 10:57:05.05
>>916
VBAでどう答えろと？ｗｗｗｗｗｗｗ
0919名無しさん＠そうだ選挙にいこう2016/06/26(日) 11:18:50.58
攻撃してる本人じゃないから分らんが
2chらしいな　とは思う

>>915
引退する気はない(キリッ
0920名無しさん＠そうだ選挙にいこう2016/06/26(日) 17:27:46.73
マクロ付きのエクセルファイルを動かしたいのですが、

”マクロを実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。”
というエラーメッセージが出てきます。

エクセルのオプション画面で、セキュリティセンターでマクロの設定を見ると、マクロ有効の設定になっています。
原因がさっぱりわかりません。詳しい人いましたら、教えてください。

Excel2010です。
0921名無しさん＠そうだ選挙にいこう2016/06/26(日) 18:39:57.81
昭和を馬鹿にするって意味がわからない。
世界に通用するようになったのは昭和だし、
平成なんて昭和の貯金を食いつぶしながら生きているだけじゃん。
0922名無しさん＠そうだ選挙にいこう2016/06/26(日) 18:42:31.71
>>920
候補が多いから自分で検索して解決してくれ
マクロを実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります
で検索して端から試してくれ

>>921
ゆとりの思考について考えても時間の無駄だぞ
0923名無しさん＠そうだ選挙にいこう2016/06/26(日) 20:49:53.99
>>921
昭和でひとくくりにして語っちゃう人って...
0924名無しさん＠そうだ選挙にいこう2016/06/26(日) 22:05:18.70
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

日付を和暦で
平成28年6月 9日
平成28年6月10日
のように揃えたいのですが等幅フォント以外で揃える方法はないですか？
ggge"年"_*m"月"_*d"日";@で空白は入ったのですが
やはり月も日もずれます
0925名無しさん＠そうだ選挙にいこう2016/06/26(日) 22:09:33.52
>>924
A1に入力、B1に出力はダメ？
それならtextやifで調節すればいいと思うけど
0926名無しさん＠そうだ選挙にいこう2016/06/26(日) 22:10:06.73
>>924
頭に0が入っていいなら
ggge"年"mm"月"dd"日"
とか
0927名無しさん＠そうだ選挙にいこう2016/06/26(日) 22:13:21.80
>>922
ぐぐっても解決できないからここに来てるんじゃないですか。
他人事のように思わないでもっと真剣に考えてください。
0928名無しさん＠そうだ選挙にいこう2016/06/26(日) 22:16:46.95
>>927
他人事だよｗｗｗｗ
俺ならそうするってだけの話。
ファイルみてもわからんしアップロードしてもらってもわからん、PCの中も見れんしな

エクセル再インストールしたほうが早いし確実
初心者は何故か嫌がるけど最終的にやるハメになるからさっさとした方がいいぞ
0929名無しさん＠そうだ選挙にいこう2016/06/26(日) 22:17:37.01
>>927
拡張子がxlsxだったりするとか?
0930名無しさん＠そうだ選挙にいこう2016/06/26(日) 22:21:13.07
>>925
ありがとうございます
ちょっと骨が折れそうですね
ただ自分が揃ってないと気に食わないって理由なので
>>926
ありがとうございます
やはりその方法になりますか
空白だとフォントがずれるんですね
0931名無しさん＠そうだ選挙にいこう2016/06/26(日) 22:29:31.18
>>928
他人事なんて思わないでください。
自分のことばかり考えずに他人のことももっと真剣に考えてほしい。
本当に困っているんです。
エクセルはすでに再インストールしてみました。

>>929
拡張子は、xlsmであることを確認しています。
0932名無しさん＠そうだ選挙にいこう2016/06/26(日) 22:33:39.63
>>930
骨が折れそうですねって書いてる間にかけるけど・・・
=TEXT(A1,"ggge年")&IF(MONTH(A1)<10," ","")&TEXT(A1,"m月")&IF(DAY(A1)<10," ","")&TEXT(A1,"d日")
ってこれでもあわんな
B1に平成xx年、C1にx月、D1にx日で良いんじゃない？

>>931
俺とお前には何の関係もねーよｗｗｗ俺は自分のスキルを高めるために回答してんだよｗｗｗ
ってわけでOS再インストールでいいんじゃない
もしやりたくないなら仮想PCの導入でも検討してみたら

ただ検索してどのやり方でも解決できないってのがありえない気はするけどね
もう一度全部やり直してみたら？
俺ならOS再インストールするけど。そのほうが早いから
0933名無しさん＠そうだ選挙にいこう2016/06/26(日) 22:49:31.74
>>932
「あなた以上冷ややかな人はいない」大瀧詠一さらばシベリア鉄道より
もっと他人を思いやってほしい。

ＯＳの再インストールはリスクが多いので最終手段です。
ほかにいい案を出してください。
0934名無しさん＠そうだ選挙にいこう2016/06/26(日) 22:55:39.48
>>932
列ごとにわけるやり方も試したのですが
今度日付順に並べる際困ると思い断念しました
すみません
0935名無しさん＠そうだ選挙にいこう2016/06/26(日) 22:57:38.78
>>933
回答もらえるだけありがたいと思わないと
昔は初心者は死ねって罵倒されるだけのスレだったんだぞ

まぁそんなことが君に関係ないように、俺は君にはなんの関係も興味もないし君が困っても俺は何も困らない。
＞初心者は何故か嫌がるけど最終的にやるハメになるからさっさとした方がいいぞ
ってさっきも言った通り、この回答は変わらない

まぁ嫌なら来ない回答をずっと待ってれば良いんじゃない？
時間は貴重だから使い道はよく考えたほうが良いぞ
0936名無しさん＠そうだ選挙にいこう2016/06/26(日) 23:03:42.39
>>935
あなたからはまともな回答が出てきそうもなさそうですね。
素人とお見受けしました。残念です。
他にマクロに詳しい方はおられませんか。
困っています。回答をよろしくお願いいたします。
0937名無しさん＠そうだ選挙にいこう2016/06/26(日) 23:05:57.05
クロマティ
0938名無しさん＠そうだ選挙にいこう2016/06/26(日) 23:06:59.52
>>933
マルチ質問は　解決策が分散するから君にとっても不利にならね?
既に確認した事項が　また他で書かれるし

大抵の回答者は　EXCEL関連の他スレ(VBAスレとか)見てる事が多いと思うから
マルチは　嫌われる事もあるよ　(容認する人ばかりじゃない)

>>2　 ･9 マルチは嫌う人が多いのでなるべく避けましょう。マルチをすると､逆に回答は得られにくくなると思ってください。
0939名無しさん＠そうだ選挙にいこう2016/06/26(日) 23:13:06.18
>>938
藁にもすがる思いでおたずねしています。
複数の方にお伺いすることは悪いことでしょうか？
病気になった場合でもセカンドオピニオンを聞くのは当然のことのようです。
大した回答もできないくせに偉そうに。
0940名無しさん＠そうだ選挙にいこう2016/06/26(日) 23:13:49.43
>>924
条件付き書式で_ を入れたりして作ったことあるけど
でも俺はその時等幅フォントを使った気がするわ・・・
0941名無しさん＠そうだ選挙にいこう2016/06/26(日) 23:15:47.21
マルチしたのか、アホだなー
vbaスレは特に嫌うから諦めて来年ぐらいにもう一度聞くと良いぞ

>>939
ちなみに煽って回答を引っ張りだす手段は古すぎて誰も乗ってくれないぞ
09429382016/06/26(日) 23:18:01.64
>>939
最後の一行がなければ　比較的まともな意見だとはおもうが
余計に嫌われる　言い方しなくてもいいのに
0943名無しさん＠そうだ選挙にいこう2016/06/26(日) 23:20:59.17
>>941
マルチしたから回答ができない？(笑)
もともとあなたには回答できる知識はないとお見受けしました。
自分の能力を棚に上げて言い訳がましいことは言わないでください。
“Shame on you!”
0944名無しさん＠そうだ選挙にいこう2016/06/26(日) 23:23:08.53
>>940
やはりそうですか
ありがとうございます
素直に等幅フォントでやっときます
0945名無しさん＠そうだ選挙にいこう2016/06/26(日) 23:25:32.68
>>942
わからないならわからないと言ってください。
マルチがどうの、嫌われるだの、論点がズレすぎていませんか？
質問に対して答えてくれればいいだけの話なのに。
答えられずに言い訳だけ。“Shame on you!”
0946名無しさん＠そうだ選挙にいこう2016/06/26(日) 23:42:50.55
ここは相談を書くスレッドでして
回答を書くトコロではないんですよ？！

あと、解決法あるよ？
マイクロソフトと年間契約して有償サポートを受ける
一回辺り幾らするか位、お見積もりとってみたら？
0947名無しさん＠そうだ選挙にいこう2016/06/26(日) 23:54:31.09
スレタイがEXCEL総合相談所となっていたので、相談をしました。
このスレは相談を書くだけで、回答を書くところはないんですか？(笑)

マイクロソフトと有償サポート？　それがあなたの回答？
回答書くところないんですよね？
全く意味不明　
0948名無しさん＠そうだ選挙にいこう2016/06/27(月) 00:11:40.84
>>946
あ、その手があったな

>>920
とりあえず無償サポートに電話したら？俺も一度問い合わせて解決したことがあるし、かけて損はないだろう
https://supp
ort.mic
rosoft.com/ja-jp/kb/875330

はよ再インスト^るしたら？
どっちゃでもええけど
0949名無しさん＠そうだ選挙にいこう2016/06/27(月) 00:12:08.51
urlがばらばらになった。これ
https://support.microsoft.com/ja-jp/kb/875330
0950名無しさん＠そうだ選挙にいこう2016/06/27(月) 00:27:21.37
>>949
回答ありがとう。ただ、残念ながらマイクロソフトが作成していない
エクセルファイルのトラブルシューティングは対象外になっている。
マイクロソフトに問い合わせても無駄と思われる。
ただ、君が襟を正して、何とか回答をしてくれたという事実には
心から感謝したい。
将来、このスレの住人のレベルがアップして私の質問にも即答
できるようなスレになることを願う。
0951名無しさん＠そうだ選挙にいこう2016/06/27(月) 00:44:36.87
なんかな？タイマン張って一人が回答してると思ってる馬鹿が居る

襟を正して、真摯に相談するという紳士な対応を心掛け無いと
マトモな回答貰えないぞ？

相談者の君と回答者複数と、その他数百数千の閲覧者が居る
オープンな場所だということお忘れなく。

公衆の場で独りイキがってる生意気なガキが
なんかホザイテるわ
回答者さんも可哀想にな
大多数はこんな風に感じてる筈
0952名無しさん＠そうだ選挙にいこう2016/06/27(月) 00:53:15.20
もう言い訳はいいから。答えられないなら黙って！！
0953名無しさん＠そうだ選挙にいこう2016/06/27(月) 01:00:37.38
真摯=自らの倫理と価値観に従うこと。
紳士とは関係がない。日本語でよくやる間違いだけどねｗｗｗ
0954名無しさん＠そうだ選挙にいこう2016/06/27(月) 01:02:04.16
誤
マイクロソフトに問い合わせても無駄と思われる。

正
お馬鹿に何言っても無駄と思われる。
0955名無しさん＠そうだ選挙にいこう2016/06/27(月) 01:18:11.45
>>920
暇なんで予想してみた

女性
40代か50代。
事務なら何かしら部下がいる。もしかすると結構上のほうかも。営業なら成績は良い。職種はわからないが有名な企業。多分だけどメーカー。
30代ぐらいまで結構モテた、というかかなりモテた
最近部下もしくは社内の男性があまり話をしてくれない
壁紙は青か緑が貴重。空か、自然が写っている。若い男が写っているかもしれない。
携帯は白かピンク。

当たってる？外れてたら教えて。
0956名無しさん＠そうだ選挙にいこう2016/06/27(月) 01:29:00.78
ちょうどバブル入社世代だな
0957名無しさん＠そうだ選挙にいこう2016/06/27(月) 06:17:58.09
エクセル2003のsumproduct関数を使った数式で質問なのですが、

=sumproduct((a1:a100=l1)*(b1:b100=m1)*(c1:c100=n1),(d1:d100))

上記の様な計算をさせているのですが、行の削除をすると、a1:a100などの参照範囲がa1:a50などの様に変更されてしまいます。

計算式の参照範囲が行削除などに影響を受けない様にすることは可能ですか？
教えていただけると助かります。
0958名無しさん＠そうだ選挙にいこう2016/06/27(月) 07:17:47.86
>>957
よくあるのは、a1:a100を
a1:index(a:acounta(a:a))
みたいにすること
列に空白がない列を元にcountaしないといけないけど
0959名無しさん＠そうだ選挙にいこう2016/06/27(月) 07:27:19.54
>>957
OFFSET(A1,,,99)
0960名無しさん＠そうだ選挙にいこう2016/06/27(月) 07:44:20.05
>>957
↓でｇｇｒ
エクセル関数 セル範囲 可変
0961名無しさん＠そうだ選挙にいこう2016/06/27(月) 08:09:02.06
お、>>955当たってたか

次スレ
Excel総合相談所 123 [無断転載禁止]&#169;2ch.net
http://echo.2ch.net/test/read.cgi/bsoft/1466982445/l50
0962名無しさん＠そうだ選挙にいこう2016/06/27(月) 12:01:02.81
>>957
>>958ありがとうございます
0963名無しさん＠そうだ選挙にいこう2016/06/27(月) 13:57:57.48
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

折れ線グラフ作成についての質問です。
元データの表は横方向に時間が並んでおり、別のシートにあるデータをcountifで計算して、時間毎の数値が横並びになっています。

まだ過ぎていない未来時間のセルには0が入っており、
当然ながらグラフの右端は0に向かい急降下してしまいます。
その急降下の線を出ないようにするにはどうすればいいですか？

if文でcountifの結果が0の時にna()を返すようにしたら
内部でcountifの処理を2回しているために再計算がもの凄く重くなりました。
countifを2回計算させずに済む代替案や、グラフ側の設定でできることを教えて下さい。

※手動で0を消すとかではなく、自動化できる方法を教えて下さい。
0964名無しさん＠そうだ選挙にいこう2016/06/27(月) 14:00:41.08
>>963
http://www.relief.jp/itnote/archives/000855.php
作業列使えば？
a1=countif()
b1=if(a1=0,na(),a1)
みたいな感じで
0965名無しさん＠そうだ選挙にいこう2016/06/27(月) 19:10:15.03
【1 OSの種類】 Windows7
【2 Excelのバージョン】 Excel2013
【3 VBAが使えるか】 いいえ
【4 VBAでの回答の可否】否
1列にたくさん
123456123
123457123
123458123
とあり、右から三番目だけの1を２に変更したいのですが良い方法あるでしょうか？
１で置き換えをすると頭文字の１まで置き換わってしまうので右から何番目の文字列だけを指定したいのですが不可能でしょうか？
よろしくお願いします。
0966名無しさん＠そうだ選挙にいこう2016/06/27(月) 19:24:38.16
>>965
右から3番めが1以外だったら？
0967名無しさん＠そうだ選挙にいこう2016/06/27(月) 19:25:53.75
右から３番目が１の時に１００を足すのはどうか？
0968名無しさん＠そうだ選挙にいこう2016/06/28(火) 00:13:07.53
エクセルでマクロを走らせているのですが、”応答なし”のメッセージが出て
フリーズしたような状態になります。どのように対応すればよろしいでしょうか。
エクセルに詳しい方、教えてください。
0969名無しさん＠そうだ選挙にいこう2016/06/28(火) 00:22:01.96
>>968
全てマクロでやろうとせず関数でできるところは関数計算でやってみる。
ストリクトでヴァリッドな文法にしてみる。
0970名無しさん＠そうだ選挙にいこう2016/06/28(火) 01:09:26.96
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

A列に
1
1
2
2
2
3
3
のようにデータがあった時1:2,2:3,3:2のようにカウントした結果を他の列に表示させたいのですが何かいい方法はありますか
0971名無しさん＠そうだ選挙にいこう2016/06/28(火) 01:12:45.41
実際には1や2や3のような数字ではなく文字列です
同じ文字列をカウントしているということです
データはソートしてあります
0972名無しさん＠そうだ選挙にいこう2016/06/28(火) 01:29:20.84
VBAで適当に作って事故解決じました
0973名無しさん＠そうだ選挙にいこう2016/06/28(火) 02:48:52.66
>>968
どんな感じのマクロなのか処理概要でも教えてもらえなきゃ答えようがない
0974名無しさん＠そうだ選挙にいこう2016/06/28(火) 08:17:51.04
>>968
マルチ
0975名無しさん＠そうだ選挙にいこう2016/06/28(火) 08:19:26.62
>>968
マルチおばちゃん、>>955ってどうでした？
0976名無しさん＠そうだ選挙にいこう2016/06/28(火) 13:29:14.55
>>967
>>968
すいません。わかりやすいようにすべて数字にしたのですが、
1A_1AB
1A_1AB
1A_1AB

こういうものが並んでいて、右から三番目の１だけ２にしたいということです。
１を２に置き換えすると先頭の１も２に置き換わってしまいます。
0977名無しさん＠そうだ選挙にいこう2016/06/28(火) 13:32:46.35
>>976
1A_3AB
の場合は？3を1にするの？それとも置き換えないの？
0978名無しさん＠そうだ選挙にいこう2016/06/28(火) 13:58:25.62
>>965
作業列を使えば簡単だよ

文字列操作関数で3つの文字列に分ける
1　先頭から6文字目まで
2　7文字目
3　8と9文字目

2' 7文字目が1なら2にする

1&2'&3
0979名無しさん＠そうだ選挙にいこう2016/06/28(火) 14:05:02.98
>>976
わかりやすいように数字って・・
こういう答えが返ってくるのは想像できなかった？
相手の立場になって考えようよ
0980名無しさん＠そうだ選挙にいこう2016/06/28(火) 14:16:57.78
・桁数は決まってる
・右から3番目は1と決まってる

この条件ならleft(A1,*)&"2"&right(A1,2)で良いけど、実際はいろいろなんだろうな・・
いずれにしろ条件さえちゃんと説明できれば答えは簡単だよ。
0981名無しさん＠そうだ選挙にいこう2016/06/28(火) 14:22:08.14
>>965
置き換え対象がA列だとした場合
適当な列に以下を入力して、変換結果を元の列に値だけコピー

=IF(MID(A1,LEN(A1)-2,1)="1",REPLACE(A1,LEN(A1)-2,1,"2"),A1)
↓オートフィル
0982名無しさん＠そうだ選挙にいこう2016/06/28(火) 16:45:34.20
例示からして>>965も>>976も同じ文字列が並んでるんだよ。
だったら、F2で1を3に換えて、下にコピーすれば良い。

>>981
オートフィルなんて高級テクニックを知るはずもないし、ググルこともできないと思う。
0983名無しさん＠そうだ選挙にいこう2016/06/28(火) 19:25:30.63
>>982
ググった結果、ここに辿り着いたのかも

わからないことを2ちゃんで聞くという発想はなかなか出てこないだろう

ピンポイントにやりたいことを文章で書いて、Excel と並列してブラウザのＵＲＬ欄に書くのが
一番手っ取り早いことが多いのも確かだが
0984名無しさん＠そうだ選挙にいこう2016/06/28(火) 22:16:01.70
1A_2ABを手で入力してコピペでいいんじゃないの
0985名無しさん＠そうだ選挙にいこう2016/06/28(火) 23:40:57.65
>>965　>>976
こゆう事かな? 自信ないけど
123456123
1A_1AB

見たいに　1の文字 が複数あって
左から数えて　2つ目の　1を　2に変換したいなら　
=SUBSTITUTE(A1,1,2,2)
0986名無しさん＠そうだ選挙にいこう2016/06/28(火) 23:41:56.99
つぎ
http://echo.2ch.net/test/read.cgi/bsoft/1466982445/
0987名無しさん＠そうだ選挙にいこう2016/06/28(火) 23:42:21.26
うめ
0988名無しさん＠そうだ選挙にいこう2016/06/28(火) 23:42:34.67
うｍ
0989名無しさん＠そうだ選挙にいこう2016/06/28(火) 23:43:56.90
あきた
0990名無しさん＠そうだ選挙にいこう2016/06/28(火) 23:46:28.97
ハタハタ
0991名無しさん＠そうだ選挙にいこう2016/06/28(火) 23:56:04.78
zzz
0992名無しさん＠そうだ選挙にいこう2016/06/29(水) 00:19:33.39
ばいばい
0993名無しさん＠そうだ選挙にいこう2016/06/29(水) 00:49:01.31
うめ
0994名無しさん＠そうだ選挙にいこう2016/06/29(水) 01:51:26.61
梅
0995名無しさん＠そうだ選挙にいこう2016/06/29(水) 02:37:39.58
竹
0996名無しさん＠そうだ選挙にいこう2016/06/29(水) 03:09:37.28
松
0997名無しさん＠そうだ選挙にいこう2016/06/29(水) 07:25:52.26
桃
0998名無しさん＠そうだ選挙にいこう2016/06/29(水) 07:51:51.44
椚
0999名無しさん＠そうだ選挙にいこう2016/06/29(水) 09:49:50.74
海
1000ぴころ ◆lHG3Yzo0a6 2016/06/29(水) 09:55:44.95
（＾▽＾）
10011001Over 1000Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
life time: 67日 23時間 47分 57秒
10021002Over 1000Thread
２ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。


───────────────────
《プレミアム会員の主な特典》
★ ２ちゃんねる専用ブラウザからの広告除去
★ ２ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────

会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。

▼ プレミアム会員登録はこちら ▼
http://premium.2ch.net/
http://pink-chan-store.myshopify.com/
レス数が1000を超えています。これ以上書き込みはできません。