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

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

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

前スレ
Excel総合相談所 119 [転載禁止]?2ch.net
http://peace.2ch.net/test/read.cgi/bsoft/1437713605/

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

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

○○年○○月と入力したら○○○○/○○/○となるんだけど助けて
0006名無しさん＠そうだ選挙にいこう2015/10/29(木) 13:53:18.36
あっ、ごめん。書式設定いじったら解決した
書式設定に行きつくのにえらく時間掛かったわ
触りはじめたばっかだと本当に分からん
0007名無しさん＠そうだ選挙にいこう2015/10/29(木) 18:50:42.99
頑張れ
ついでにシリアル値でぐぐって勉強しておくとgood
0008名無しさん＠そうだ選挙にいこう2015/10/29(木) 21:01:57.36
=IF(AND("12:10"<J23+TIME(,I24,),"12:59">J23+TIME(,I24,)),1,0)

こんなイメージですが
J23+TIME(,I24,)の時間が12時10から12時59分の間なら　を条件にしたいです
正しい式をお願いします
0009名無しさん＠そうだ選挙にいこう2015/10/29(木) 21:33:42.76
>>8
J23は時間(11:00 とか)
I24は数値(70　　とか)
で良いんだよね?

=IF(AND(TIME(12,10,0)<=J23+TIME(,I24,),TIME(12,59,0)>=J23+TIME(,I24,)),1,0)
又は
=IF(AND(TIMEVALUE("12:10")<=J23+TIME(,I24,),TIMEVALUE("12:59")>=J23+TIME(,I24,)),1,0)
0010名無しさん＠そうだ選挙にいこう2015/10/29(木) 21:40:50.10
>>8
J23に「2015/10/29 11:50」のような日付データ、I24に
「30」のような数値が入っている前提で。

=IF(AND(TIME(12,10,)<J23+TIME(,I24,)-INT(J23+TIME(,I24,)),J23+TIME(,I24,)-INT(J23+TIME(,I24,))<TIME(12,59,)),1,0)

ちょっとややこしいので、作業列に「J23+TIME(,I24,)」や
「J23+TIME(,I24,)-INT(J23+TIME(,I24,))」を格納した方がよいかも。
001182015/10/29(木) 21:52:41.49
思い通りの値になりました！
お二方ありがとうございました！
0012名無しさん＠そうだ選挙にいこう2015/11/01(日) 15:03:50.15
【1 OSの種類 　 　 　 　 .】 Windows8.1
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否

=IF(COUNTIF('リスト'!$A:$A,$E$15)>=ROW(T1),INDEX('リスト'!C:C,SMALL(INDEX(SUBSTITUTE(('リスト'!$A$1:$A$500=$E$15)*1,0,10^5)*ROW('リスト'!$B$1:$B$500),),ROW(T1))),"")

リストSheetのC列、文字数が9だけのものを抽出する方法がわかりません。
ご教授ください。
0013名無しさん＠そうだ選挙にいこう2015/11/01(日) 17:05:08.70
>>12
作業列作って、文字数返す関数設定して、オートフィルタで抽出
0014名無しさん＠そうだ選挙にいこう2015/11/01(日) 21:52:14.91
os:windows7
ver:excel2007
3:はい
4:はい

Androidからの書き込みです。
たとえばEXCELで
altとHVVを順番に押せば、値の貼り付けです。
altとHVSTを順番に押せば、書式の貼り付けです。

こういったaltキーで出きる操作の一覧表が欲しいのですが、どこかにないでしょうか？
0015名無しさん＠そうだ選挙にいこう2015/11/01(日) 21:55:29.68
どこかにあるかもしれないけど、探してる間に自分で作ったほうが早そう
どうせ大量に覚えても普段使わないの忘れるよ
俺の時がそうだった
0016名無しさん＠そうだ選挙にいこう2015/11/01(日) 22:30:24.13
しかもバージョンが変わると、ショートカットも変わるし。
0017名無しさん＠そうだ選挙にいこう2015/11/01(日) 23:04:07.41
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否


例えば、あるセルに「500-5」って地番を書き込むと、
自動的に別の2つのセルにそれぞれ「500-5A」「500-5B」という風に、
地番の末尾にA,Bとアルファベットがふられるようなやり方探してます。
0018122015/11/01(日) 23:25:38.32
>>13
LEN関数で作業列に出力するまではわかるのですが、出力した条件を含めた抽出方法がわからないのです。
オートフィルターは使えないsheetなので余計に困ってます。
0019名無しさん＠そうだ選挙にいこう2015/11/02(月) 00:19:02.70
>>12 & >>18
こゆうことしたいのかな?

抽出したいデータが"リスト"のC列にあったとして
作業列はデータを抽出するシートに作る事を想定してます

A1 =IF(LEN(リスト!$C1)=9,ROW(リスト!$C1),"")
下へオートフィル("リスト"のC列のデータ行数分必要です)
(9桁の所のみ行番号が表示されます)

B1 =IFERROR(INDEX(リスト!$C:$C,SMALL($A:$A,ROW())),"")
下へオートフィル
0020名無しさん＠そうだ選挙にいこう2015/11/02(月) 00:47:26.21
>>17
質問の意図する所が分らないけど

=A1&"A"
とか
=A1&"B"
じゃダメなん?
0021122015/11/02(月) 01:14:19.34
>>19
それを>>12に組み込みたいのです。

リストSheetの内容
A列：顧客番号
B列：顧客名
C列：品番（9桁or12桁）
J列：LEN(C列)

別シートのA1に顧客番号を打ち込むとB列にリストSheetの品番一覧を抽出。
B1=IF(COUNTIF('リスト'!A:A,$A$1)>=ROW(A1),INDEX('リスト'!C:C,SMALL(INDEX(SUBSTITUTE(('リスト'!A:A=$A$1)*1,0,10^5)*ROW('リスト'!B:B),),ROW(A1))),"")

上記で抽出するとリストSheet：C列の9桁品番、12桁品番両方が抽出されるので、条件として更にJ列を追加したいのです。
0022名無しさん＠そうだ選挙にいこう2015/11/02(月) 01:59:00.72
>>21
一度にそれをするんじゃなくて
一旦それで(12桁&9桁で)抽出して さらにそれから9桁品番のみを抽出するようにすれば?

つまり今の抽出そのものは作業列として扱うって事で
0023122015/11/02(月) 02:12:25.20
>>22
やっぱり一度では無理ですよね・・・
0024222015/11/02(月) 02:18:21.22
>>23
多分無理じゃないとは思うけど
今現在でもその数式の修正が難しいのにさらに複雑にする事ないと思うぞ

俺は　元の数式は理解できなかった(汗
0025名無しさん＠そうだ選挙にいこう2015/11/02(月) 09:42:18.14
>>23
たぶんCOUNTIFS関数（末尾にSが付くと複数条件指定可。
ただしExcel 2003以前では使えない）や配列数式（ググってくれ）
で実現可能。
もっとも、メンテナンスや引き継ぎを考えると作業列を
つかったほうがいいと思う。

>>24
同意。俺も元の数式がわからない^^;;;
0026名無しさん＠そうだ選挙にいこう2015/11/02(月) 20:02:19.76
>>12
数式で並び替えするならこんな感じ
http://www.dotup.org/uploda/www.dotup.org587602.xlsx.html
メンドクサイし重いのでvbaのほうがいいけどな
0027名無しさん＠そうだ選挙にいこう2015/11/02(月) 21:37:54.70
>>21
こういうことかな？
COUNTIF →COUNTIFS(リスト!A:A,A$1,リスト!D:D,9)
SUBSTITUTEの第一引数 →(リスト!A:A=A$1)*(リスト!D:D=9)

COUNTIF(S)は毎回計算させる必要はないので、他セルに抜き出した方が良い。
あと、この方法での抽出はめちゃ重い。
出来れば作業列かピボットテーブル使用を検討すべき。
0028名無しさん＠そうだ選挙にいこう2015/11/03(火) 23:23:22.00
【1 OSの種類 　 　 　 　 .】 Windows81
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

縦のスクロールバーがすごく小さくなってしまいました。

スゴイ下の方にゴミが書いてあるセルがあって
そのせいでスクロール量がすごくなってると思ったんですが、
「条件を選択してジャンプ」 で 「最後のセル」 に飛んだところ
意図したとおりの最終行にジャンプしたので
下の方にごみはなさそうです。

ほかにゴミとみなされてスクロール量がすごくなる条件は
なにかありますでしょうか
0029名無しさん＠そうだ選挙にいこう2015/11/03(火) 23:31:26.44
>>28
色々ある
excelはその辺り割りとゴミを残すので、めんどくさいから解決策しか考えない。
１～100行使ってるとする

原因
・バグ（何のバグかは考えない。考えずに以下で解決したほうが早いし生産的）
・オブジェクト、図形とか

以下解決法色々
・新しいシートに100行目までコピーして保存スル、これが一番確実。
・（もう試してるけど）最終セルを削除して保存
・xlsにして保存、再度xlsxファイルに保存し直す

もしかすると印刷すると原因がわかるかもしれんけど、どうでもいいわ
0030282015/11/03(火) 23:42:28.02
よっしゃ
新しいシートつくるやで
0031名無しさん＠そうだ選挙にいこう2015/11/04(水) 07:41:23.49
新しいシートにコピペして旧シートを削除しても容量は大して減らないから
いっそのこと新しいブックを作った方が良い場合も

関数によっては、元ブックにリンク張り始めるのがネックだが

感覚的に串刺し可能な関数はリンク張って、不能な関数はそのままコピペできる気がする
0032名無しさん＠そうだ選挙にいこう2015/11/04(水) 15:16:11.39
windows7
2010
vba ng

a1に日付、b1に追加か削除、c1以降は1～31日
11/10が追加の時に10日のセルに丸とかつけたいのですが
どうしたらいいでしょうか
0033名無しさん＠そうだ選挙にいこう2015/11/04(水) 15:47:38.57
>>32
丸は無理だな
条件付き書式をA列に設定して色変えるとかどう
0034名無しさん＠そうだ選挙にいこう2015/11/04(水) 18:31:41.80
俺はそういうとき隣のセルをつくって○を入れたよ
0035名無しさん＠そうだ選挙にいこう2015/11/04(水) 22:16:28.56
二つの表があって、お互いのある列を見て重複していない部分だけ抽出する方法教えてください
0036名無しさん＠そうだ選挙にいこう2015/11/04(水) 23:12:26.64
>>35
EXCEL2007以上で　二つの表が同じフォーマットなら

1)新規シートに二つの表を 一つに コピペして ドッキング
2)EXCELの　重複削除機能を使って　重複削除を行う

これでどゃ?
0037名無しさん＠そうだ選挙にいこう2015/11/04(水) 23:28:34.72
作業列に２ツノ表を参照するCOUNTを入れて　１だけの行を抽出
0038名無しさん＠そうだ選挙にいこう2015/11/04(水) 23:41:40.80
トン
３つの列の同じ行の値を比較して1番少ない値のセルを塗りつぶすには、条件書式でどのようにすればいい？
0039名無しさん＠そうだ選挙にいこう2015/11/05(木) 00:10:54.09
and(a1<b1,a1<c1)
みたいな感じで
0040名無しさん＠そうだ選挙にいこう2015/11/05(木) 00:13:49.76
トン
かつ、空白だったら除外は、<> ""とおもったらできなかった。
0041名無しさん＠そうだ選挙にいこう2015/11/05(木) 00:55:00.43
AND(A1<>"",A1=MIN(A1:C1))　でもいんじゃね
0042名無しさん＠そうだ選挙にいこう2015/11/05(木) 01:10:40.81
bかc列が空白の場合除外じゃないか
and(if(b1="",true,a1<b1),if(c1="",true,a1<c1))
and(a1<if(b1="",9999,b1),a1<if(c1="",9999,c1))

どっちでもわかりやすい方で
後者は数値の決め打ちが気持ち悪いから論理式整理したほうがいいけど眠い
0043名無しさん＠そうだ選挙にいこう2015/11/05(木) 05:25:45.14
Microsoft、Updateの修正パッチ誤配信問題が修正されたことを発表
http://www.forest.impress.co.jp/docs/news/20151104_728745.html
問題は、32bit版の「Microsoft Office 2010」がインストールされている環境で、
64bit版「Microsoft Office 2010」の更新プログラムが Update に表示されるというもの。
0044名無しさん＠そうだ選挙にいこう2015/11/05(木) 10:10:27.60
Windows8.1のエクスプローラでファイルをコピー中Excel2010の操作を行うと
ファイルのコピーが終わるまで待たされるのですがこういうものなのですか？
2013や最新のバージョンだとどうなんでしょう？
使っているのノートPCはi7,メモリ8GBです。
0045名無しさん＠そうだ選挙にいこう2015/11/05(木) 12:06:08.98
>>44
そんなもん
バージョン上げても意味ない
5.0まで落とせば同時処理が可能にはなるが実用性的にお勧めできない
0046名無しさん＠そうだ選挙にいこう2015/11/06(金) 14:42:42.53
>>16
そういえば俺隠れてるシートの再表示って
ALT→O→H→U
って覚えてて今でもやってるんだけど
これ2003の時のやつなのね

2010だと
ALT→H→O→U→H
で順番も違うし一手多い
0047名無しさん＠そうだ選挙にいこう2015/11/06(金) 22:32:21.44
【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 可

複数のdoc, docx, xlsx, xlsファイル（xlsx, xlsはシート全て）をpdfで保存する という動作をマクロで実現したい場合，
「複数のWord文書をWordだけで連続PDF変換するマクロ作りました」
とググると一番上に出てくるサイトに紹介されているVBAプログラムをどのように書き換えれば良いでしょうか（どのような記述を追加すれば良いでしょうか）。

会社パソコンのセキュリティがキツく，エクセルの個人用マクロブックに保存したものを使用できません。
しかし，ワードのマクロは何故かちゃんと機能してくれるので，出来ればワードのマクロひとつで上記の動作を実現したい。
0048名無しさん＠そうだ選挙にいこう2015/11/06(金) 22:55:22.02
>>47
どっかで見たような質問だなと思ったら

Excel VBA 質問スレ Part38 [転載禁止](c)2ch.net
http://peace.2ch.net/test/read.cgi/tech/1441619979/583
の質問じゃん
あの時も思ったのだけど

＞「複数のWord文書をWordだけで連続PDF変換するマクロ作りました」とぐぐると一番上に出てくる
とか書いて　なぜそのサイトの URLを書かない?

荒らし? それとも回答者をバカにしてる?
0049名無しさん＠そうだ選挙にいこう2015/11/07(土) 00:09:12.40
>>47
会社に言って、Wordのマクロも使用できないようにしてもらうべきかと思いますよ
0050名無しさん＠そうだ選挙にいこう2015/11/07(土) 08:24:39.98
パワポにもアクセスにもマクロはあるんで問題ないです
0051名無しさん＠そうだ選挙にいこう2015/11/07(土) 11:36:14.47
Excelにのみを規制して、パワポやWordのマクロはＯＫにするってどういう思想の運用なんだろう？
Excel以外は使わない人が多いだろうと見込んでのコスパ重視なんだろうか

万全期すなら他のアプリも規制しない理由ないよな
0052名無しさん＠そうだ選挙にいこう2015/11/07(土) 12:19:41.74
単なる無知だろ
使い方次第で効率化につながるマクロを無差別に制限するのも無知からだし
0053名無しさん＠そうだ選挙にいこう2015/11/07(土) 13:01:46.55
A1とA2のセルを結合させ
A1～A10を範囲選択した状態で
検索を行いA1、A2連結セルの値を検索する

検索に引っかからないのはなぜですか？
0054名無しさん＠そうだ選挙にいこう2015/11/07(土) 13:26:31.43
>>53
理由は分らんけど 検索方向が "行"だと失敗するな
"列"にしたらうまくいくようですよ
(全てテストした分けではないですが・・・)

因みに 俺は EXCEL2013
0055名無しさん＠そうだ選挙にいこう2015/11/07(土) 13:26:50.83
結合すると検索ひっかからないなら結合してるせいだろアホか
0056名無しさん＠そうだ選挙にいこう2015/11/07(土) 13:45:33.19
このスレって未だに>>55みたいなやつがいるのか
0057名無しさん＠そうだ選挙にいこう2015/11/07(土) 14:22:50.64
BBx規制中により亀レスになってすみません。

>>48
他の板はどうもスレ違いだと察してこちらに参りました。
URLを張って投稿しようとしたらアプリにNGワード！って言われてしまったので苦肉の策を取っています。最初のhを抜いても、短縮urlを張っても書き込めませんでした。不快な思いをさせてしまい申し訳ありません。

>>49
やはりワードだけでやるのは厳しいですかね……
0058名無しさん＠そうだ選挙にいこう2015/11/07(土) 14:42:22.98
統合セルの場合左上にあったセルの値のみが検索対象になるので
今回の場合ならA1セルに記入してからA2セルと統合すれば検索対象になるよ

統合セルに直接入力するとどうも元セル扱いのセルがランダムになるらしく
再計算実行すると元セルの座標が変わって検索できるようになることがある

統合を解除すると必ず左上セルに入力したことになっているのが憎たらしいが
0059名無しさん＠そうだ選挙にいこう2015/11/07(土) 16:07:48.92
>>57
そうゆう理由ならまー　いいかな
EXCEL VBAスレで回答あったと思うけどどうなのよ?

あんまり虐めても　しかたないから
指定したフォルダの全ての WORDとEXCELをPDF化するやつ
https://friendpaste.com/18wJtR5eC4i8fSA15ny2uU

・ExportAsFixedFormatメソッドは　マクロの記録で出て来たやつをそのまま使用してます。
　適宜変更して下さい。

・EXCEL VBAでやるなら Microsft Word　nn.n Object Libraty
　WORD VBAでやるなら Microsft Excel nn.n Object Libraty
　をそれぞれ　参照設定して下さい。

・動作テストは EXCEL2013とWORD2013でやってます
0060名無しさん＠そうだ選挙にいこう2015/11/07(土) 17:18:44.24
>>57
NGワード対策ならURLの一部を全角で書くと大丈夫な事がある
NGワードかどうかはMANGO板で確認できるから
http://maguro.2ch.net/mango/
（この板ではNGワードを書いても規制されない）

hoge.ＪＰ
とか(ＪＰが全角)こんな感じでやってみ
0061名無しさん＠そうだ選挙にいこう2015/11/07(土) 20:30:24.01
>>58
http://www.dotup.org/uploda/www.dotup.org595238.png
vbaで試してみたけど、必ず上側のセルになった。
win7 64bit+excel2010
vbaを無視するパターンか、バージョン違いだろうか
0062名無しさん＠そうだ選挙にいこう2015/11/07(土) 23:00:22.90
【1 OSの種類 　 　 　 　 .】 Windows81
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

むかしみたく、2行以上あるセルを表示してる時は
数式バーを複数行に広げてほしいんだけど
そういう機能拡張とか裏技ありえますか？
0063622015/11/07(土) 23:01:17.07
自決しました
0064名無しさん＠そうだ選挙にいこう2015/11/07(土) 23:45:26.82
無茶しやがって
0065名無しさん＠そうだ選挙にいこう2015/11/08(日) 01:00:10.03
>>59
EXCEL VBAスレでの回答は，ワードでxlsx,xlsのpdf化を行うことができるご回答ではありませんでした。
（私の技術力が足りないせいも勿論あると思われます）

WD.ExportAsFixedFormatについてはちょっと勉強して適当にいじってみます。
時間を割いて作って下さり，ありがとうございました。


>>60
そんなテスト板があるとは……
普段は見る専門のため存じませんでした。
今後はちゃんと利用させて頂きます！
0066名無しさん＠そうだ選挙にいこう2015/11/08(日) 17:22:33.53
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
配列変数に1～100までの連番を入れる場合
ループ処理を100回させて1～100まで配列に入れる方法か、array関数を使いarray(1,2,…,100)と入れる方法しかないのでしょうか？
出来れば1～100までの連番とわかっているなら、もっとスマートな方法で配列に入れたいです
0067名無しさん＠そうだ選挙にいこう2015/11/08(日) 17:32:05.79
無い
0068名無しさん＠そうだ選挙にいこう2015/11/08(日) 18:08:46.89
>>66
別の方法ならある
ワークシートのセルにオートフィルして配列にコピー

スマートかどうかは主観だから、何がスマートか数値化された条件が必要
行数を減らしたいなら配列を初期化するライブラリを作って処理を見えなくする
0069662015/11/08(日) 18:39:07.64
>>67>>68
回答ありがとうございます
セルに入れてから配列に入れると重くなりそうですし素直にループ処理させてやってみます
0070名無しさん＠そうだ選挙にいこう2015/11/08(日) 20:02:56.49
ちょっと似たような話だけど、
配列の各要素に対して同じ演算（全部2倍とか、全部に10を足すとか）をしたいときに
Hoge()=Hoge()*2
とかやれたらいいなと思うことはある

セルだったら値の貼り付けから加減乗除が選べるわけで
VBAにもそういう関数が用意されてたら便利だよね
0071名無しさん＠そうだ選挙にいこう2015/11/08(日) 20:55:20.44
そういう関数作って呼び出せばいいのでは？
0072名無しさん＠そうだ選挙にいこう2015/11/08(日) 21:38:15.04
ベンチマークしたらオートフィルの方が何十倍も遅かった
.ScreenUpdating = Flaseしてもほとんど変化なし
Arrayで初期化は面倒で測ってない

Sub Macro1() ' オートフィルで初期化
　　Dim ar()
　　T1 = CDbl(Timer)
　　For i = 1 To 100
　　　　With Range("A1")
　　　　　　.Value = 1
　　　　　　.AutoFill Destination:=Range("A1:A100000"), Type:=xlFillSeries
　　　　End With
　　　　ar() = Range("A1:A100000")
　　Next
　　T2 = CDbl(Timer)
　　Debug.Print T2 - T1
End Sub

Sub Macro2() ' ループで初期化
　　Dim ar()
　　ReDim ar(100000)
　　T1 = CDbl(Timer)
　　For i = 1 To 100
　　　　For j = 1 To 100000
　　　　　　ar(j) = j
　　　　Next
　　Next
　　T2 = CDbl(Timer)
　　Debug.Print T2 - T1
End Sub
0073名無しさん＠そうだ選挙にいこう2015/11/08(日) 22:16:23.11
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

A列に1行目から　2.1.1.3.3.3.0.2.1.2.1.3 と不規則に10万行数字が並んでるのですが
1行目から6行目までの値をそれ以降10万行の中から同じパターンを検索し
見つけた場所から6行上までの値をB1:B6に書き出す式をお願いしたいです

A列1行目から6行目までの値が　3 3 3 1 0 2　だとして
検索結果1050から1055行目が同じ並びだった場合
1044から1049の値をB1からB6に書き出す
説明下手ですがよろしくお願いします
0074名無しさん＠そうだ選挙にいこう2015/11/08(日) 22:59:53.98
>>73
数字は1桁？
作業列に=A1&A2&A3&A4&A5&A6&""と入れてオートフィル、あとは単純検索して6行上を引っ張ってくればいい
0075名無しさん＠そうだ選挙にいこう2015/11/08(日) 23:31:43.61
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
単なるリスト製作にエクセル使ってるのですが
14/01/01
って記述が日付って認識されて自動的に2014/01/01って出ちゃいます。
プロパティで数値にすると、今度は計算されちゃって……
どうしたら単なる文字列として表示させられますか?
0076名無しさん＠そうだ選挙にいこう2015/11/08(日) 23:47:27.90
書式設定で文字列を選べばよいと思います
あるいは14/01/01の頭に’をつければ文字列とみなされます
0077732015/11/09(月) 00:02:17.81
>>74
説明不足でした　数字は全て一桁です
10万行の値はすぐに変動するので手動検索せずに常に結果を表示しておく自動式にしたいです
0078名無しさん＠そうだ選挙にいこう2015/11/09(月) 00:12:24.49
>>75
冒頭に半角カンマをつける
そうすると自動的に文字列扱いに
0079名無しさん＠そうだ選挙にいこう2015/11/09(月) 00:26:24.29
>>77
LOOKUPで検索すればいい
0080名無しさん＠そうだ選挙にいこう2015/11/09(月) 01:54:41.19
>>73
愚直にFor文で1行ずつ6行まとめて検索してみたけど数秒で終わったぞ
For i = 7
　If Cells(i, 1) = Range("A1") And _
　 Cells(i + 1, 1) = Range("A2") And _
　 Cells(i + 2, 1) = Range("A3") And _
　 Cells(i + 3, 1) = Range("A4") And _
　 Cells(i + 4, 1) = Range("A5") And _
　 Cells(i + 5, 1) = Range("A6") Then
0081名無しさん＠そうだ選挙にいこう2015/11/09(月) 03:07:49.55
>>77
＞＞10万行の値はすぐに変動するので手動検索せずに常に結果を表示しておく自動式にしたいです
との事ですが　10万行のデータ変更は 手入力? それとも他のVBA等でやってる?
手入力なら Worksheet_Changeイベントでやる手もあるけど そうじゃないと イベント回数が とんでもなくなりそうで・・・・
0082名無しさん＠そうだ選挙にいこう2015/11/09(月) 08:00:51.11
【1 OSの種類 　 　 　 　 .】 Windows　７
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
2003以前で作ったのを2007で読み込むと列幅が異なって #### 表示になったりします。
旧バージョンに対して何倍くらいの列幅にすればバランスが取れるのでしょうか。
行高さも微妙に違っているようです。比率に一定の関係はありますか。
0083名無しさん＠そうだ選挙にいこう2015/11/09(月) 08:58:26.84
>>82
仕様に関する質問はメーカーサポートに問い合わせるのがよかよ
0084名無しさん＠そうだ選挙にいこう2015/11/09(月) 09:05:19.09
>>82
多分無い。
縮小して表示デモしておくと良いと思う
0085名無しさん＠そうだ選挙にいこう2015/11/09(月) 14:42:21.46
【1 OSの種類 　 　 　 　 .】 Windows81
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

貼り付けオプションの「CTRL」を非表示にしているときに
一時的にこのボタンを表示する方法を教えてちょんまげ
0086名無しさん＠そうだ選挙にいこう2015/11/09(月) 21:06:15.09
【1 OSの種類 　 　 　 .】 Windows7
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか　 　.】 少し
【4 VBAでの回答の可否】　 可
セルＡ３に11月２日、セルＢ３に４、と入力すると（Ｄ１には１１月、Ｄ２には１日、Ｅ２には２日、Ｆ２には３日と３０日まで
入っています）セルＥ２から営業日にして４日間セルが塗りつぶされる書式は条件付き書式で
規則を作れるでしょうか？せルＣ３には、11月２日から、営業日分を「４」数えた１１月6日が
入るようになっているようです。
Ｄ列以降は、ｗｅｅｋｄａｙの１と７を使って色が付くように条件付書式を他の人が
入れていますが、これだと、文化の日、３日や２３日は拾ってきません。
よろしくお願いいたします。
0087名無しさん＠そうだ選挙にいこう2015/11/09(月) 21:39:53.72
>>86
せめて全角数字か半角数字に統一して入力してもらうことはできないの？
ルールが複雑すぎるよ
0088名無しさん＠そうだ選挙にいこう2015/11/09(月) 21:43:46.28
すみません。キーボードの文字配列が、表示されているものと違っていまして（自宅）
職場のエクセルの中は、すべて半角です！
0089名無しさん＠そうだ選挙にいこう2015/11/09(月) 21:45:03.23
>>86
workday関数というものがある
祝日は毎年変わるので、祝日の設定は必須
0090名無しさん＠そうだ選挙にいこう2015/11/09(月) 22:01:37.74
おお！それでセルＣ３に終了日みたいのが入るようになっていたのですね？
関数を有難うございました。
しかしＤ列以降に、その、あてはまる日にち分のセルに色を付けたいのですが
条件付書式でできますか？現在、Ｄ列以降は、土日だけ、薄青、薄ピンクが色つくように
なっていますが、その土日を除いたセル、Ｅ３，Ｇ３、Ｈ３、Ｉ３を例えば紫色に
塗りつぶすには、どういった式をＤ列以降に入れればいいでしょうか？
0091名無しさん＠そうだ選挙にいこう2015/11/09(月) 23:13:52.06
例えば、セルの強調表示ルールで指定の範囲内、なんかを使うことはできますかね？
明日職場に行ってやってみます
0092名無しさん＠そうだ選挙にいこう2015/11/10(火) 17:27:00.07
マクロ有効テンプレ(.xltm)から新規作成したファイルを保存する時に
いつも「エクセルブック(.xlsx)」が選択されてるんですけど、デフォルトで「マクロ有効エクセルブック(.xlsm)」にすることってできませんか？
毎回 .xlsm に変えるのが面倒です。

Windows10、Excel2010
0093名無しさん＠そうだ選挙にいこう2015/11/10(火) 17:51:34.51
オプションにあるんじゃね
うちはxls？古い方にしてるよ
0094名無しさん＠そうだ選挙にいこう2015/11/10(火) 19:07:31.92
>>90-91
やりたい内容の時に、計算結果が1以上になるように=を使った式にするといいよ
条件付き書式は、条件による計算結果が1以上になる時に、書式を設定する機能だから
0095名無しさん＠そうだ選挙にいこう2015/11/10(火) 20:15:35.59
>>92
オプション → 保存 → ファイルの保存形式
0096名無しさん＠そうだ選挙にいこう2015/11/10(火) 20:30:12.83
>>93,95
ありがとうございます。思い通りの動作になりました。
0097名無しさん＠そうだ選挙にいこう2015/11/10(火) 21:13:46.46
>>94
レスを有難うございます。明日職場でやってみますね。１になれば、塗りつぶしが
できるかんじでしょうか。今日は時間がなくてセルの強調表示、を試してみることが
できませんでした
0098名無しさん＠そうだ選挙にいこう2015/11/10(火) 22:37:05.89
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
申し訳ありません。お力添えを
実はリンクの編集で状態のところが適用できませんとなり
リンク元を変更した後セルにREFが表示されるのですがその後ファイルを
リンクの更新をするで開き直すと変更した値が反映して表示されます
これは問題ないのでしょうか　普通は状態の所がOKになると思うのですが
0099名無しさん＠そうだ選挙にいこう2015/11/11(水) 00:44:51.20
すまん。殆ど言ってる意味がわからん
「リンクの編集」「状態のところ」「適用できません」
excelの話？
0100名無しさん＠そうだ選挙にいこう2015/11/11(水) 12:12:49.65
>>98
まったく問題ありませんよ
0101名無しさん＠そうだ選挙にいこう2015/11/11(水) 20:16:30.78
http://i.imgur.com/UFmYAuK.jpg
0102名無しさん＠そうだ選挙にいこう2015/11/13(金) 17:23:21.03
過疎
0103名無しさん＠そうだ選挙にいこう2015/11/16(月) 09:22:20.40
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

同じ行内の指定した２つのセルの文字列比較させて
同じ場合と違っていた場合に決めた文字を表示させる命令とかってありますでしょうか？
0104名無しさん＠そうだ選挙にいこう2015/11/16(月) 09:30:21.25
>>103
A1とB1を比較スル時、A1かB1に文字をどうこうさせるならvba必須
A1とB1を比較スル時、C1に文字を表示させるなら
c1=if(a1<>b1,"ちがう","おなじ")
で可能
01051032015/11/16(月) 09:42:35.15
解決できそうです、ありがとうございます
0106名無しさん＠そうだ選挙にいこう2015/11/16(月) 13:24:49.99
てか、まだ2003なの？
0107名無しさん＠そうだ選挙にいこう2015/11/16(月) 13:54:19.85
職種別、資格別、スキル別の平均最低月給リスト（ほぼ毎日更新）
http://jobinjapan.jp/cate/
全掲載求人109,160件の平均最低月給195,800円

Excelの求人18,212件 の平均最低月給174,000円
http://jobinjapan.jp/job-listing/keyword-excel.html
0108名無しさん＠そうだ選挙にいこう2015/11/16(月) 17:06:17.59
エクセルの求人ってエクセルだけやってりゃいいんでしょ
そんなもんじゃね
他ってメインの業務があって片手間にエクセルで資料作るみたいなイメージ
何かこうセル一番小さくして手順書作る的な
0109名無しさん＠そうだ選挙にいこう2015/11/16(月) 18:36:02.00
>>107
全求人とエクセルの求人を比べたって意味ないよ
全求人には高給取りもいるだろうし
エクセルの仕事より激務なのに給料安い職場もある

セールスドライバー求人141件
平均最低月収166,900円

タクシードライバー求人20件
平均最低月収157,400円

つーか、

アナウンサー求人6件
平均最低月収163,300円

高給取りというか花形職業のひとつだという印象が強いんだけど
ケーブルテレビ局とかコミュニティーFMとかだとこんなもんか
現実は厳しいね
0110名無しさん＠そうだ選挙にいこう2015/11/16(月) 20:09:55.34
>>109
セクシードライバー求人
と空目した
0111名無しさん＠そうだ選挙にいこう2015/11/16(月) 21:08:37.19
わざわざ求人にExcelと書いてあるものは、元々ある表に延々とデータを入力するだけのものも割とある
必要なスキルは、早く正確に入力できることであり、関数やＶＢＡの知識は求められていない

そら、金額も安くなる
0112名無しさん＠そうだ選挙にいこう2015/11/16(月) 23:08:03.79
単なるデータ入力ならまだいい方だよ
VBA使えば一瞬で終わることを手作業でやらされる苦痛
0113名無しさん＠そうだ選挙にいこう2015/11/16(月) 23:37:17.67
>>112
0114名無しさん＠そうだ選挙にいこう2015/11/16(月) 23:39:54.82
>>112
あれは辛かった。10年ほど前に官公庁系の仕事を担当したことがあるんだけど、
リストの住所氏名を延々入力させられる。
元のデータくれれば一瞬で終わるとか、安くなるとか言っても一切聞かない
今思えば、少しでも自分の仕事が増えるのが嫌だったんだろう。しかも経費が浮いても時間が短縮されても自分には関係ないから、余計にだろうな
0115名無しさん＠そうだ選挙にいこう2015/11/17(火) 01:30:25.80
昔偉い人が言いました
くだらねえ仕事でも仕事は仕事
働く場所があるだけいいじゃないか
0116名無しさん＠そうだ選挙にいこう2015/11/17(火) 08:39:16.85
「Office 2016」の新機能をいち早く体験できる“Office Insider”を開始
http://www.forest.impress.co.jp/docs/news/20151116_730838.html
0117名無しさん＠そうだ選挙にいこう2015/11/17(火) 12:39:26.76
>>114
役所は、データ管理がうるさいから仕方ない
口ぶりからすると外部の人なんだろうがデータアクセス権限のない人に直接データを渡さないのは当たり前というか
渡したら渡した人が処分されるよ
0118名無しさん＠そうだ選挙にいこう2015/11/17(火) 12:42:26.64
>>117
なるほど、ありがとう。少し納得した
0119名無しさん＠そうだ選挙にいこう2015/11/17(火) 19:02:21.60
セキュリティーとかそういう合理的な理由以外に
その仕事を早く終わらせないためというのもあると思うよ

そもそもその仕事の成果は一切必要じゃなくて、
予算の消化のために仕事を無理やり作り出してるケースってのがあって
そういうのは人月とか人日でいくら予算使えるかが決まるから
作業が早く終わっちゃうと予算が消化できなくて困る
0120名無しさん＠そうだ選挙にいこう2015/11/17(火) 20:40:04.06
【1 OSの種類 　 　 　 　 】 Windows7
【2 Excelのバージョン 　】 Excel2013
【3 VBAが使えるか　 　 】 いいえ
【4 VBAでの回答の可否】 否

数式バーとリボンタブとシートバーの上下の隙間をなくす方法もしくは幅を狭くする方法を教えて下さい。

http://i.imgur.com/RmlugPP.jpg
画像だとピンクの無駄な上下スペースのことです。
イメージとしてはExcel2010のように、縦の余白がほとんど無いようにしたいです。
0121名無しさん＠そうだ選挙にいこう2015/11/17(火) 20:59:13.37
>>119
やたら何度も道路掘って工事してるのと同じ事か
0122名無しさん＠そうだ選挙にいこう2015/11/17(火) 23:44:20.24
>>120
カンで答えるからうまくいくかどうか知らないけど、
真ん中としたは無理
上はシステムのフォントか、レジストリが影響すると思う

多分他のアプリに影響しておかしなことになるからやめたほうがいい
0123名無しさん＠そうだ選挙にいこう2015/11/19(木) 16:25:03.22
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

Excelというより数式の問題になってしまいますが…
「年利【A】%複利、支払回数【B】年×12、一回ごとの支払【C】円」
から【最初に借りた元金】を求めるにはどうすればよいですか？
例えばローン計算アプリで、年利3%、120回払い(10年×12)、
一回の支払10万と設定すると、元金1036万と出ますが
これをExcelで再現するにはどう式を入れればよいでしょうか？
0124名無しさん＠そうだ選挙にいこう2015/11/19(木) 16:31:09.56
>>123 自己解決しました。PV関数ですね、お騒がせしました…
0125名無しさん＠そうだ選挙にいこう2015/11/19(木) 16:38:43.75
>>123
この辺かなぁ？

>毎月返済時の借入可能額計算－PV関数
>http://www.relief.jp/itnote/archives/002915.php

>初期預け入れ額を求める－PV関数
>http://www.relief.jp/itnote/archives/002956.php
0126名無しさん＠そうだ選挙にいこう2015/11/20(金) 09:17:04.48
Excelの古いバージョンになってくると、
サポート打ち切られて、セキュリティやばくなるよね。

Excelのセキュリティでやばいところって、
結局はマクロウイルスだよね？
ということは、マクロ使わない人は、マクロを完全に無効にしていれば
安心なのですか？
0127名無しさん＠そうだ選挙にいこう2015/11/20(金) 09:39:16.56
>>126
自分で使ってないつもりでも、ネットから落としたり誰かから送られてきたファイルに仕込まれてれば
古いバージョンだと気付かずに実行してしまう
ネットにつながってなくて、CD-RとかUSBメモリも絶対に貸し借りしないって条件なら大丈夫かもしれない
0128名無しさん＠そうだ選挙にいこう2015/11/20(金) 09:50:19.91
>>127
マクロを完全に無効に設定にしていて、
絶対にマクロ使わないと決めていたら、ほぼ大丈夫じゃないの？

いちおう、自分がいま、使っているのは、Excel2010です。
0129名無しさん＠そうだ選挙にいこう2015/11/20(金) 12:09:11.02
>>126
xls拡張子に偽装したウィルスは受け取ったことある

下半身が女の裸で顔が関羽の画像が流れて無限に処理が止まらなくなるものだった

大規模災害時帰宅ルート調査書.xlsのファイル名に騙された
0130名無しさん＠そうだ選挙にいこう2015/11/20(金) 12:14:58.55
>>129
そういう騙しがあるのか。

自分はExcelはアフィリエイトのサイト作成の作業に使うだけなので
大丈夫かなと思うけど。。。
だって、他の人のファイルなんて開けることないし。
せいぜい、アフィリエイトの会社のcsvデーター開けることぐらい。
マクロは使うことない、というか、使い方知らないので
Excelの設定でマクロは無効にしている。
0131名無しさん＠そうだ選挙にいこう2015/11/20(金) 12:43:13.11
絶対に安全なんて誰にも言えない
今までも、盲点をついてとんでもない場所にウィルスを仕込まれるパターンが何度もあった
マクロさえ禁止すれば全て安全なんて考えないほうがいい

でもそんな人は他のセキュリティもガバガバだろうからそもそもどうでもいいようなきがしてきた
0132名無しさん＠そうだ選挙にいこう2015/11/20(金) 13:44:14.44
Excel2016の印刷プレビューって、拡大はできるでしょうか？
0133名無しさん＠そうだ選挙にいこう2015/11/20(金) 14:00:24.99
印刷画面で右下のボタン押せば拡大されるけどそれのこと？
0134名無しさん＠そうだ選挙にいこう2015/11/20(金) 19:41:27.64
>>131
なるほど。絶対に安全なことはないということだね。

ちなみに、ExcelじゃなくWordだけど、こういう事例。

マクロウイルスなんて引っかかるわけないという人ほど試してほしい テスト用のマクロ付きWordファイル
http://reynotch.blog.fc2.com/blog-entry-1006.html
0135名無しさん＠そうだ選挙にいこう2015/11/20(金) 22:33:52.66
古い新しい関係ないじゃん
使い手の問題かと
0136名無しさん＠そうだ選挙にいこう2015/11/20(金) 22:35:39.97
2016を使ってるんですが数式バーの上下の隙間を無くすにはどうすればいいですか？
0137名無しさん＠そうだ選挙にいこう2015/11/20(金) 23:57:09.94
無理
01381362015/11/21(土) 06:11:18.45
>>137
そんなこと言わないでお願いします。m(_ _)m
0139名無しさん＠そうだ選挙にいこう2015/11/21(土) 07:39:54.32
A列に金額
B列にみかん、りんご、ぶどう等の品が書いてあるのですが
りんごの金額部分だけ抜き出して合計した金額を知る式は何を使えばいいでしょうか？
0140名無しさん＠そうだ選挙にいこう2015/11/21(土) 08:28:05.67
>>139
=SUMIF(B:B,"りんご",A:A)
0141名無しさん＠そうだ選挙にいこう2015/11/21(土) 08:28:49.98
>>139
sumifとかsumproduct？
0142名無しさん＠そうだ選挙にいこう2015/11/21(土) 08:32:13.04
>>139
=SUMIF(B:B,"りんご",A:A)
Excelのバージョンによっては、Ａ列が文字列だと使えないが
01431392015/11/21(土) 08:38:07.45
>>142
　>>140の式をコピペすんなやハゲ！
0144名無しさん＠そうだ選挙にいこう2015/11/21(土) 08:42:24.01
>>143
この条件で他にどうやれと
第一俺のガラケーじゃ、2ちゃんに書かれたものをコピペできないんだが
0145名無しさん＠そうだ選挙にいこう2015/11/21(土) 09:40:34.87
SUMPRODUCTだと何行目からデータ開始かとかわからんと
式を書きようがないよなw

こういう質問者の表だとデータが未入力の行があってそもそもSUMPRODUCT使えない
なんてことも割と多いしw

式ではなくピポットテーブル使うのが一番簡単
0146名無しさん＠そうだ選挙にいこう2015/11/21(土) 10:47:35.81
>>145
笑
0147名無しさん＠そうだ選挙にいこう2015/11/21(土) 17:17:53.98
139です
>>140さん、>>142さんの式で出来ました！
遅れましたがありがとうございました。
0148名無しさん＠そうだ選挙にいこう2015/11/22(日) 00:42:29.95
そういや、ピポットテーブルの「ピポット」ってどういう意味なんだろう？
0149名無しさん＠そうだ選挙にいこう2015/11/22(日) 02:01:02.62
人の名前
0150名無しさん＠そうだ選挙にいこう2015/11/22(日) 03:19:29.97
7.5cm ＝ＡＡカップ
10cm ＝Ａカップ
12.5cm＝Ｂカップ
15cm ＝Ｃカップ
17.5cm＝Ｄカップ
20cm ＝Ｅカップ
22.5cm＝Ｆカップ
25cm＝Ｇカップ
27.5cm＝Ｈカップ

カップサイズを表示したいです、計算式を教えて下さい。
0151名無しさん＠そうだ選挙にいこう2015/11/22(日) 03:33:18.05
>>150
セル番号○○に数字を入れてたとして、
=if(○○=5,"AAA",if(○○=7.5,"AA",CHAR(61+○○/2.5)))&"カップ"
01521512015/11/22(日) 03:41:23.03
未入力時の禁止処理忘れてた
=if(or(○○="",○○<5),"",if(○○=5,"AAA",if(○○=7.5,"AA",CHAR(61+○○/2.5)))&"カップ")

もし数字があるのがA1なら
=if(or(A1="",A1<5),"",if(A1=5,"AAA",if(A1=7.5,"AA",CHAR(61+A1/2.5)))&"カップ")
あとA1に、セルの書式＞表示形式タブ＞種類を0"cm"に変更して完成
0153名無しさん＠そうだ選挙にいこう2015/11/22(日) 04:05:08.24
>152
=if(N(A1)<5,"",if(A1=5,"AAA",if(A1=7.5,"AA",CHAR(61+A1/2.5)))&"カップ")
こっちのほうがいいな
01541502015/11/22(日) 04:31:41.68
>>152>>153
出来ました、有難うございます。

10未満は
？カップや、@カップになります。
7.5ピッタシだけＡＡカップになります。
5だとAAAカップで、4.9だと表示されません。

7.5未満はすべてAAに出来ませんか？
0155名無しさん＠そうだ選挙にいこう2015/11/22(日) 05:22:05.68
>>154
=IF(N(A1)<=0,"",IF(A1<=7.5,"AA",IF(A1<10,"A",CHAR(61+A1/2.5))
01561502015/11/22(日) 07:37:31.65
>>155
上手く出来ました。　有難うございます。
0157名無しさん＠そうだ選挙にいこう2015/11/22(日) 07:38:37.74
>>148
bagをバック、dogをドック、bedをベット、 tetheringをデザリング、と表記する人がいるけど
それと同じようにその人のポリシーなんじゃないかな？意味とか特になくて
0158名無しさん＠そうだ選挙にいこう2015/11/22(日) 08:02:03.58
>>157
ケージをゲージとかいう馬鹿飼い主みたいなもんか
おまえらは犬猫を物差しの中に入れるんか！と
0159名無しさん＠そうだ選挙にいこう2015/11/22(日) 08:06:21.05
>>156
つか、その計算式だと端数切捨てだぞ？
17.5cm～19.9cmがDカップになるわけだが
普通、Dカップは大体16.5cm～18.5cm(17.5cm±1cm程度)の範囲じゃないのか？
そんな計算式で大丈夫なのか？
0160名無しさん＠そうだ選挙にいこう2015/11/22(日) 10:22:46.74
>>159
2.5cmなので良いと思います。　17.4cmの人はＣだと思いますが、Ｄと申告すると思います。
http://www.dotup.org/uploda/www.dotup.org618704.png
0161名無しさん＠そうだ選挙にいこう2015/11/22(日) 12:37:50.25
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

Sheet2～Sheet101(シート名は1，2，3，4...)のそれぞれのD4(個定位置)にテキストデータ(住所)があります。

その各シートD4位置のデータをSheet1で縦並びにリスト化させたいのですが、
1セルずつ=シート名!D4と手作業で地道に入れるしか方法はないのでしょうか？

フィルハンドルのドラッグ操作ではセルの方が変わってしまい、シート名を連続データとして認識してくれませんでした。

簡単にできる方法があれば教えて下さい。
0162名無しさん＠そうだ選挙にいこう2015/11/22(日) 13:03:56.29
>>161
まず最初の2セルに「s1d」「s2d」と入れてオートフィル
「d」を「!d4」に置換、最後に「s」を「=sheet」に置換
0163名無しさん＠そうだ選挙にいこう2015/11/22(日) 13:48:31.14
>>161
=indirect("sheet"&row()&"!r4c4",0)
とか
01641612015/11/22(日) 14:28:30.79
>>162
ありがとうございます。できました。
こんなに簡単にできるんですね。
0165名無しさん＠そうだ選挙にいこう2015/11/22(日) 15:05:46.58
シート内でマクロ実行時にエラー（#REF!など）が出た時に
再度マクロを実行するようにするにはどうすればよいのでしょうか？
0166名無しさん＠そうだ選挙にいこう2015/11/22(日) 15:55:06.16
IsErrorで判定してCallで呼べばいいけどそれってまたエラーになって無限ループするんじゃ？
0167名無しさん＠そうだ選挙にいこう2015/11/22(日) 15:58:43.52
>>165
コンフロードをかけてオブジェクトデータに対しValidにすればいいだけ
01681652015/11/22(日) 16:27:48.51
>>166
>>167
できました。
0169名無しさん＠そうだ選挙にいこう2015/11/22(日) 16:44:50.36
>>166
>>167
ありがとうございます。
DDE通信でデータを読み込む際、たまに取りこぼしがあるみたいで対策が無いものか考えていました

ところで>>168って誰？勝手に返事しないでくださいよww
0170名無しさん＠そうだ選挙にいこう2015/11/22(日) 20:33:30.91
【1 OSの種類 　 　 　 　 .】 Windows　8.1
【2 Excelのバージョン 　 】 Excel 2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

すみません。仕事の資料で、どうしても式がわかりません。
エクセル関数と思い、ここにたどりつきました。

　１つの項目が５通り（①～⑤）、もう一つの項目が２通り（ＡかＢ）
の場合、全部で１０通りの答えが出てくると思います。

　①Ａなら１０点
　①Ｂなら１５点
　②Ａなら２０点・・・・

　と１０通り作りたいのですが、どうしたらよいでしょうか？

　１列目に①～⑤を選択してもらい
　２列目にＡかＢを選択する事で、
　３列目に点数が出るようにしたいのですが。。。
0171名無しさん＠そうだ選挙にいこう2015/11/22(日) 20:45:44.88
>>170
事前にリストを作っておいてVLOOKUP
0172名無しさん＠そうだ選挙にいこう2015/11/22(日) 20:48:16.20
>>リストは、データの入力規則で、リストを作ることができました。
　３列目のＶＬＯＯＫＵＰ？が分からないです・・・
　
0173名無しさん＠そうだ選挙にいこう2015/11/22(日) 20:51:24.68
ＩＦとかで、できるのかと思ったのですが、ＶＬＯＯＫＵＰと同じ事なんでしょうか
0174名無しさん＠そうだ選挙にいこう2015/11/22(日) 22:06:47.56
>>170
http://www.dotup.org/uploda/www.dotup.org619832.png
=INDEX(G:G,MATCH(A1&B1,F:F,0))
こんな感じ。リストを別に作ってそこから数値を引っ張ってくる

indexとmatchがややこしいと思うけど、
このパターン死ぬほど使うから定型文と思って頑張って覚えて

わからんかったらまた聞いて
0175名無しさん＠そうだ選挙にいこう2015/11/22(日) 22:08:07.90
indexとmatch組み合わせてるけどvlookupの上位バージョンと思ってくれ
まぁなんだ。頑張れ。リストから引っ張るパターン覚えたら大抵のことは出来るようになるからな
0176名無しさん＠そうだ選挙にいこう2015/11/23(月) 15:05:53.01
>>174>>175
個人的意見だけど
これが使いこなせないのに「エクセルが出来ます」と言ってほしくない
0177名無しさん＠そうだ選挙にいこう2015/11/23(月) 16:54:50.30
「エクセルが出来ます」
これに意味があるのはアルバイトと若い派遣のおねーちゃんだけ。

生産性が低い作業もなんでもかんでもエクセルでやりたがるアホが多い。
無駄な時間使ってしょぼい成果しか出せないのに、
「私は頑張りました。評価して下さい！」ってｗお前への評価は最低ランクじゃ。
個人的意見だけど。
0178名無しさん＠そうだ選挙にいこう2015/11/23(月) 17:19:13.26
>>176
くだらない
0179名無しさん＠そうだ選挙にいこう2015/11/23(月) 22:21:47.31
不景気の昨今、「Excelできます」より「OpenOfficeできます」のほうが就職しやすいしな
0180名無しさん＠そうだ選挙にいこう2015/11/23(月) 22:29:58.06
（さすがにそれはないと思いました）()
0181名無しさん＠そうだ選挙にいこう2015/11/23(月) 23:04:32.93
お前らのクソの役にも立たねえ妄想とか愚痴いらねーから。
0182名無しさん＠そうだ選挙にいこう2015/11/24(火) 01:25:06.05
>>181
お前のクソの役にも立たねえ育ちの悪い暴言もいらねーから。
0183名無しさん＠そうだ選挙にいこう2015/11/24(火) 06:57:07.59
今時、エクセルの表を作るのは、非正規労働者の仕事
正社員は出来上がった表をもとに判断するのが仕事だ

エクセルができてもバイトに採用されやすいだけだぞ
0184名無しさん＠そうだ選挙にいこう2015/11/24(火) 08:37:35.93
>>183
がんばってまずは非正規になってね
ここで質問いっぱいすればいいからね
0185名無しさん＠そうだ選挙にいこう2015/11/24(火) 12:44:31.88
Excelを知っているから有利じゃないのは確かだがあとで自分が楽になるのも確か
仕事に就くためにExcelを覚えるのではなく、就いてから楽をするために覚えるぐらいで良いんでは？
0186名無しさん＠そうだ選挙にいこう2015/11/24(火) 13:12:23.81
どんな仕事やってても、ちょっとしたデータを整理したり整形したくなることはあるだろうに
そういう時に知ってると手間が省けるんだけどな
1分かからないような簡単な作業をいちいち部下やパートに頼むのも煩わしいもんだし
0187名無しさん＠そうだ選挙にいこう2015/11/24(火) 16:04:28.96
Office2003のEXCELとオンラインで無料で使えるEXCELはどちらのほうが機能豊富なんですか？
0188名無しさん＠そうだ選挙にいこう2015/11/24(火) 18:50:29.18
>>187
オフライン版
0189名無しさん＠そうだ選挙にいこう2015/11/24(火) 20:25:26.51
>>186
中途半端に知っていて、作業列がみっともないとか、ＶＢＡはセキュリティが危険だから使うなとか
いらいろ口出される身からすれば上司は、知識がない方が気楽だｗ
細かい作業押し付けられても構わんと思う

作業列ＶＢＡ使用禁止縛りよりかは、楽そうに思う
0190名無しさん＠そうだ選挙にいこう2015/11/24(火) 22:48:51.55
Excel2013のフラットメニューがものすごく使いづらいのですがカスタマイズできますか？
2016にすることで解消できますか？2010にすべきでしょうか？
0191名無しさん＠そうだ選挙にいこう2015/11/24(火) 22:52:22.06
俺は行列番号非表示にして、同じシート内に非表示状態の作業列作ってる
メンテナンスは少し面倒になるが
一見すると作業列が全く無いように見えるし
仕事中にあの面倒くさい環境設定から行列表示オンにして、非表示列を再表示してまで詮索するなんて暇な奴も居るはずないし
作業列どころか、作業用シート作ってタブが増えただけでギャーギャー騒ぐカスもいるから、俺の所ではこうしてる
0192名無しさん＠そうだ選挙にいこう2015/11/24(火) 22:53:29.80
>>190
http://www.vector.co.jp/soft/winnt/business/se483273.html
こういうのがある。使ったことないからどうなるかしらん。多分戻すときに苦労する気がする。
でもこんなものに頼るより、慣れたほうが早いよ
0193名無しさん＠そうだ選挙にいこう2015/11/24(火) 23:25:13.67
>>192
違います。
フラットメニューのデザイン自体をクラシック表示に変更したいんです。
デカすぎるメニュータブを小さくとか数式バーの無駄なスペース削除とか。

2010を購入するしかないですかね？
0194名無しさん＠そうだ選挙にいこう2015/11/25(水) 00:44:55.46
ところで「フラットメニュー」ってなに？
0195名無しさん＠そうだ選挙にいこう2015/11/25(水) 01:06:11.86
>>194
フラットデザインのメニュー。
0196名無しさん＠そうだ選挙にいこう2015/11/25(水) 01:48:17.94
ニッポンの平均最低月給と人口の都道府県別、市町村別ランキング
求人情報113,957件の平均最低月給196,400円 &#9836;

あなたの住む街は第何位？平均最低月給はいくら？
http://jobinjapan.jp/area/
0197名無しさん＠そうだ選挙にいこう2015/11/25(水) 09:02:16.84
四捨五入はROUNDですが
五捨六入、六捨七入ができる関数はないでしょうか？
0198名無しさん＠そうだ選挙にいこう2015/11/25(水) 09:15:21.48
>>197
ないんだな、これが
もし必要なら自作するしかない
12.7
の7をとりだして、6以上なら12に1を足すとかそんな感じ
0199名無しさん＠そうだ選挙にいこう2015/11/25(水) 09:39:39.82
>>198
どうもです
0200名無しさん＠そうだ選挙にいこう2015/11/25(水) 10:06:30.89
小数点以下第一位で四捨五入するとしたら
元の値に0.1足してから四捨五入すれば五捨六入だし
0.2足してから四捨五入すれば六捨七入だべ
0201名無しさん＠そうだ選挙にいこう2015/11/25(水) 10:54:25.01
0.4足して小数点以下切り捨て
0202名無しさん＠そうだ選挙にいこう2015/11/25(水) 12:29:09.86
>>200
少数偏差あるから、数字によっては異なる結果になる件
0203名無しさん＠そうだ選挙にいこう2015/11/25(水) 16:05:44.56
>>201
間違えた六捨七入だったな
なら0.3足して小数点以下切り捨て
0204名無しさん＠そうだ選挙にいこう2015/11/25(水) 20:47:48.38
小数誤差を考慮すると文字列で処理した方が安全なのかな
0205名無しさん＠そうだ選挙にいこう2015/11/25(水) 22:47:05.13
【1 OSの種類 　 　 　 　 .】Windows 7 Home edition 64bit
【2 Excelのバージョン 　 】 Excel 2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

質問させて下さい。
あるセルに他のセルの内容を使った計算結果を書く場合、そのセルの行を表す数字と列を表すアルファベットを記述すると思います。
具体的にはB3のセルにA5からA3を引いた結果を表示する場合、B3のセルに"=A5-A3"と入力すると思います。
このA5, A3を自分自身のセルからの距離(数字)で記述することは可能でしょうか？
具体的にはB3のセルに記述する"=A5-A3"を"=(自分のセルの1左で2下) - (自分のセルの1左で0下)"と記述したいです。

よろしくお願いいたします。
0206名無しさん＠そうだ選挙にいこう2015/11/25(水) 23:14:47.92
>>205
B3=OFFSET(B3,2,-1)-OFFSET(B3,0,-1)
0207名無しさん＠そうだ選挙にいこう2015/11/25(水) 23:20:36.09
>>205
もしかすると、
B3=OFFSET(OFFSET($A$1,ROW()-1,COLUMN()-1),2,-1)-OFFSET(OFFSET($A$1,ROW()-1,COLUMN()-1),0,-1)
のほうが、期待された答えかもと考え直した
これなら、自分のセルがどこかというのも自動計算される
0208名無しさん＠そうだ選挙にいこう2015/11/25(水) 23:35:32.53
>>205
indirect()
という手も
0209名無しさん＠そうだ選挙にいこう2015/11/26(木) 00:09:25.52
エクセルも一々オプションから切り替えるんじゃなくて
もっと手軽にR1C1形式が使えるようになればいいのにね
0210名無しさん＠そうだ選挙にいこう2015/11/26(木) 00:16:30.25
>>209
ない物は作ればいい
モード切替はVBAで簡単に書けるからショートカットに登録
0211名無しさん＠そうだ選挙にいこう2015/11/26(木) 01:05:15.96
>>210
いや、VBA使うなら .FormulaR1C1 で直に書くよ
0212名無しさん＠そうだ選挙にいこう2015/11/26(木) 05:31:51.14
>>208
>>205式だと
B3=INDIRECT(ADDRESS(ROW()+2,COLUMN()-1))-INDIRECT(ADDRESS(ROW(),COLUMN()-1))
こんな感じか
なるほど
0213名無しさん＠そうだ選挙にいこう2015/11/26(木) 08:01:39.81
>>211
なんだそりゃ？
0214名無しさん＠そうだ選挙にいこう2015/11/26(木) 08:37:14.59
話がかみあってないな
0215名無しさん＠そうだ選挙にいこう2015/11/26(木) 20:25:08.12
【1 OSの種類 　 　 　 　 .】 Windows2000
【2 Excelのバージョン 　 】 Excel97
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
シートの仕様変更を繰り返していたら入力規則のリストの選択項目が
300近くになってしまい選び難くなってしまいました
リスト内をコンパクトに折りたためる方法とかないでしょうか？
（リスト内をフォルダ分けして＋－で開いたり閉じたりとか）

ちなみに直接印刷用にもなっている事や、リストで300種類から選ぶセルが
30以上有るので、フォルダや大分類用の別セルを作るスペースはありません
同一セル内でなんとなしたいです
0216名無しさん＠そうだ選挙にいこう2015/11/26(木) 20:50:23.04
>>215
１から作り直したほうが良いんじゃね？
それだけ古いバージョンだとそれだけのリストあったら重いだろうし
0217名無しさん＠そうだ選挙にいこう2015/11/26(木) 20:57:58.81
>>215
別セルに分けるのが普通だけど、無理ならvbaで自前のフォームを作るぐらいしか
それか小手先でどうこうするより>>216の通り作りなおすほうが最終的にいいと思うけど、
0218名無しさん＠そうだ選挙にいこう2015/11/27(金) 05:23:19.33
エクセル９７でも、２５６列使えるなら、列数が足りないってことはそうそうない筈だが
作業列は非表示にすれば印刷にも影響しないし

作業リスト列作って、印刷用のリスト列から項目を絞る方法ならある
条件がTRUEになるものだけを拾ってリスト選択する方法

俺自身がよく使うのはコードをリストから選択するのに
途中まで文字を入れてリストを絞っていく方法

B列にリストがある場合でA1にコード文字入力欄、A2をリスト選択場所にするとして
C1=(COUNTIF(B1:B1,"*"&A$1&"*")>=1)*ROW()
でC列をB列のリスト一番下行までオートフィル

D1=COUNTIF(C:C,0)
D2=COUNT(C:C)-COUNTIF(C:C,0)

E1=IF(ROW(A1)<D$2,INDEX(B:B,MATCH(SMALL(C:C,ROW(A1)+D$1),C:C,0)),"")
でB列の一番下行までオートフィル

このE列を実際に使用するリストにすることで、実際に使う必要な項目のみが選択できるようにしている
0219名無しさん＠そうだ選挙にいこう2015/11/27(金) 13:59:51.78
質問です。
vlookup関数を使う際に、２番目に「範囲」を入力しますが、
これを直接入力するのではなく、他のセルに入力されているセル範囲を参照する形で「範囲」を入力したいのですが、
どうやればいいのでしょうか？
0220名無しさん＠そうだ選挙にいこう2015/11/27(金) 14:27:17.99
>>219
INDIRECT
0221名無しさん＠そうだ選挙にいこう2015/11/27(金) 14:32:16.97
>>219
indirect()を使う
また、vlookupよりindex+matchの方がいい
http://www.d3.dion.ne.jp/~jkondou/excelvba/GA2.htm
0222名無しさん＠そうだ選挙にいこう2015/11/27(金) 16:42:28.23
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可


学校 順位
東大 1
京大 3
慶應 4
東大 7
慶應 5
東大 6
京大 2
慶應 8

ある競技でこのように各学校から複数人の選手が出場している場合に
東大のなかで一番目に良い順位と二番目に良い順位を別のシートに表示する方法はないでしょうか。
DMIN関数を使えば一番目に良い方は表示できるのですが…
二番目はどうすれば良いでしょうか

実際はもっと学校の数が多くなります。
0223名無しさん＠そうだ選挙にいこう2015/11/27(金) 17:10:13.73
>>222
RANK関数
0224名無しさん＠そうだ選挙にいこう2015/11/27(金) 17:14:52.41
>>222
暇だから作るわ
待っとけ
0225名無しさん＠そうだ選挙にいこう2015/11/27(金) 17:24:53.50
>>222
単純に考えると
学校のセルが東大か調べ、東大だったら順位のセルが1（または2）か調べる
IFのネストだけで出来そう
0226名無しさん＠そうだ選挙にいこう2015/11/27(金) 17:31:01.75
>>225
>東大だったら順位のセルが1（または2）か調べる
それはダメじゃ？
0227名無しさん＠そうだ選挙にいこう2015/11/27(金) 17:32:01.84
>>222
http://www.dotup.org/uploda/www.dotup.org626970.xlsx.html
一応解説すると、左から右にデータが流れていく感じ
DE列で学校のシリアルナンバーを作る
GJ列で並び替え
LQで出力
って感じ
0228名無しさん＠そうだ選挙にいこう2015/11/27(金) 21:13:12.67
>>220
>>221
ありがとうございます
0229名無しさん＠そうだ選挙にいこう2015/11/28(土) 00:20:41.76
>>227
ありがとうございます！
0230名無しさん＠そうだ選挙にいこう2015/11/28(土) 09:59:40.86
条件付き書式で数式に関数を入力する場合、fxっていう関数の挿入ボタンは、使えず、自分で入力しないと駄目ですか？
やり方が分からなくて
0231名無しさん＠そうだ選挙にいこう2015/11/28(土) 12:52:39.25
コピペすれば？
0232名無しさん＠そうだ選挙にいこう2015/11/28(土) 13:24:57.71
┏━━━┳━━┳━━━━┳━━━━━┳━━━━━┳━━━━━┳━━┳━━━━┓
┃------┃行数┃連投規制┃ ｽﾚ保持数 .┃ I D の有無.┃ TATESUGI.┃ コテ┃ 過去ﾛｸﾞ ┃
┣━━━╋━━╋━━━━╋━━━━━╋━━━━━╋━━━━━╋━━╋━━━━┫
┃　V I P.┃　60 ┃ 　10秒　 ┃　 　 500 　 .┃　 　 有　 　 ┃　 　 .8 　 　 ┃可能┃　.残 る　.┃
┣━━━╋━━╋━━━━╋━━━━━╋━━━━━╋━━━━━╋━━╋━━━━┫
┃ なんJ ┃　12 ┃　 10秒　 ┃ 　 　 30　 　┃　 　 有　 　 ┃　　　8　　　..┃可能┃　 残 る . ┃
┣━━━╋━━╋━━━━╋━━━━━╋━━━━━╋━━━━━╋━━╋━━━━┫
┃ 穴 実..┃ 256.┃規制なし ┃ 　 　 10　　 ┃　 　 無　 　 ┃ 　 　 1　　 ...┃不可┃残らない ┃
┗━━━┻━━┻━━━━┻━━━━━┻━━━━━┻━━━━━┻━━┻━━━━┛
その他携帯回線や海外からでも書き込めるぞ！
Anarchy実況板をよろしくな！
http://maguro.2ch.net/liveanarchy/
0233名無しさん＠そうだ選挙にいこう2015/11/28(土) 13:27:09.85
>>230
自分で入力するか、近くにいる人に頼んでください
0234名無しさん＠そうだ選挙にいこう2015/11/28(土) 14:24:07.91
>>230
事前にセルに入力しておいてINDIRECT
0235名無しさん＠そうだ選挙にいこう2015/11/28(土) 15:03:18.01
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 mac os x10.11
【2 Excelのバージョン 　 】 Excel for mac2016
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否





失礼します。
エクセル初心者なので、質問が分かりづらい等あると思いますが
よろしくお願いします。

エクセルで単語帳を作成したので、
シート2に無作為に100件抽出する関数を教えてください

2行目、B列にNo.の項目が入力、C列に単語の項目が入力、
D列に読みの項目が入力、E列に意味の項目が入力、
F列にフラグの項目が入力、G列に備考の項目が入力、
H列に登録日の項目が入力してあります。

実際のデータは3行目から入力されていて、1051行目まであります。

これをシート2に、100件無作為抽出し、
その際に1つの件数をBからH列すべての項目を表示させたいです。

その関数を教えてください
0236名無しさん＠そうだ選挙にいこう2015/11/28(土) 15:23:33.00
>>235
作業列使っていいなら、MODとROWとRANDBETWEENとINDEXとMATCHとSMALLで出来るかな
シート1!I1=RANDBETWEEN(0,11)
シート1!I3=(MOD(ROW(),10.48)=I$1)*ROW()
I1051までオートフィル
シート2!A1=INDEX(シート2!C$3:C$1051,MATCH(SMALL(シート2!$I$3:$I$1051,ROW(A1)),シート2!$I$3:$I$1051,0))
シート2!A100までオートフィル

自動再計算は切ったほうが使いやすいかも
0237名無しさん＠そうだ選挙にいこう2015/11/28(土) 17:32:04.96
Excel2016でタッチモードとマウスモードの切り替えというのはないのですか？
リボンの面積が広くて肝心の作業スペースが狭い・・
0238名無しさん＠そうだ選挙にいこう2015/11/28(土) 17:37:38.49
>>236
お返事ありがとうございます。つまり作業としては、

シート1のI1に【=RANDBETWEEN(0,11)】を入力する
シート1のI3に【=(MOD(ROW(),10.48)=I$1)*ROW()】を入力し、
Iの1051までオートフィルをする。
シート2のA1に【=INDEX(シート2!C$3:C$1051,MATCH(SMALL(シート2!$I$3:$I$1051,ROW(A1)),シート2!$I$3:$I$1051,0))】を入力し
シート2のA100までオートフィルをするということですよね？


ここで、オートフィルとは連続データとしてコピーということですよね？
どうやら、連続データとしてコピー出来ないのですが、何か問題がありますでしょうか？

基本的なところから聞いてしまい、申し訳ございません。
0239名無しさん＠そうだ選挙にいこう2015/11/28(土) 23:29:33.17
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

（AA）○○○○○○○○○○
（BBB）○○○○○○○○○

という文字列から
()内に含まれる文字だけを抜き出すことはできるでしょうか？
※()は複数ある場合もある
0240名無しさん＠そうだ選挙にいこう2015/11/28(土) 23:40:37.83
>>239
すみません
()は1セルに1つしかありませんでした。
0241名無しさん＠そうだ選挙にいこう2015/11/28(土) 23:43:12.09
>>239
できるよ
0242名無しさん＠そうだ選挙にいこう2015/11/28(土) 23:43:36.52
>>239
findで括弧の位置を探して、midで抜き出す
mid(a1,find("("),find()-find("(")))
こんな感じになるはず
0243名無しさん＠そうだ選挙にいこう2015/11/29(日) 00:07:47.75
>>241
>>242

できました。
ありがとうございます。
0244名無しさん＠そうだ選挙にいこう2015/11/29(日) 02:23:14.61
>>238
わざわざマウスの右ボタンでオートフィルしてる？
左ドラッグでいいんだよ、まあ癖か好みなんだろうけど

右でする場合、数式の場合は「連続データ」は選べないみたいね
普通のオートフィル＝一番上の「セルのコピー」
これでちゃんと、数式内でのセル参照は
連番振ったみたいにズレてくから安心汁
0245名無しさん＠そうだ選挙にいこう2015/11/30(月) 01:11:30.03
>>206-208
遅くなりましたが、回答ありがとうございます。
OFFSETが私の探していた関数にあたるようです。
助かりました。
0246名無しさん＠そうだ選挙にいこう2015/12/01(火) 19:42:45.10
【1 OSの種類 　 　 　 　 】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 】 いいえ
【4 VBAでの回答の可否】 否

数字が入っている一番下のセルの一つ上のセルの値を返すには、どういう式を使えばいいんでしょうか？

一番下の返し方はググって、LOOKUPを使うやり方を見つけたんですが、その上の返し方がどうしても分からないです

よろしくお願いします
0247名無しさん＠そうだ選挙にいこう2015/12/01(火) 20:58:54.15
>>246
数字は隙間なく入っているか？
入っているなら、INDIRECTとADDRESSとCOUNTAの組み合わせで可能
0248名無しさん＠そうだ選挙にいこう2015/12/01(火) 21:17:43.76
>>246
調べたらこういうのが出来た
http://stamp-uploda.com/src/file1619.jpg

MATCHの第一引数をMAX+1（最大を超える数値）、第二引数を列全体、第三引数を1にすると、最後尾の行を取得できる
行を取得できればあとはindeirect()で瞬殺
0249名無しさん＠そうだ選挙にいこう2015/12/01(火) 22:33:04.88
>>247
>>248

ありがとうございます
MATCHとINDIRECTの組み合わせで上手くいきました
0250名無しさん＠そうだ選挙にいこう2015/12/02(水) 18:47:04.14
【1 OSの種類 　 　 　 　 .】 Windows10.0
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

オンラインテンプレートの「毎日の売上レポート」で使用されているのですが、
先頭行が「商品番号」となっている列を他のシートから参照するときに、
[@商品番号]で参照できているようなのですが、
これはどの機能を利用することで可能になっているのでしょうか？
「名前の定義」が関係あるのかと思ったのですが、どうも違うようで…
[@]でぐぐってみましたが、記号なのでヒットしてくれず、
検索方法のヒントなどだけでも構いませんので、教えていただけないでしょうか？
よろしくお願いします。
0251名無しさん＠そうだ選挙にいこう2015/12/02(水) 19:29:40.39
>>250
@は=の代わりらしい
名前の定義がされていると思うけど2010しかないので分からない
ファイルアップロードしてくれれば調べてみるよ
0252名無しさん＠そうだ選挙にいこう2015/12/02(水) 20:11:43.81
a1のセル
１月 みかん
２月 まめ

的な表で
index(match(１月～
と作ってみたのですが
1,2,3,と結果が出てしまいました
１月だったら１月 みかん まで出すようにするにはどうしたらいいでしょうか

スマホからなのでうまくかけなくてすみません
0253名無しさん＠そうだ選挙にいこう2015/12/02(水) 20:14:26.26
>>252
ほんとに解決したいなら言い訳せずにちゃんと書いたほうがいいよ
とりあえず俺は何言ってるかよくわからないから回答できない
0254名無しさん＠そうだ選挙にいこう2015/12/02(水) 20:43:07.94
>>252
今の数式は合致したセルが何番目かを示してるから
OFFSET(A1,index(match(１月～,0)
02552522015/12/03(木) 23:08:31.75
ｱﾘｶﾞﾄﾝ明日試してみます
02562502015/12/04(金) 21:02:45.02
>251 回答ありがとうございます。

>250
自己解決しました。
テーブル機能を使うことにより、先頭行の名前でセル参照が可能になるようです。
テーブル機能はだいぶ前からあるみたいですが使ったことがなくて知りませんでしたm(__)m
0257名無しさん＠そうだ選挙にいこう2015/12/04(金) 21:13:05.29
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
現在、こういう形式の式を沢山使ってて、結構重いんですが、
=IF(FU3=0,"",IF(INDEX(GC$114:GC$281,FU3,1)="","","OK"))

IFを一つに纏めた=IF(OR(FU3=0,INDEX(GC$114:GC$281,FU3,1)=""),"","OK")とどっちが動作が軽いでしょうか？

1.処理上、重いINDEXを介さない可能性があるので前者
2.インタプリタ的に考えて、文字数・括弧数が少ない方が軽いので後者
3.もっと軽く出来る→（具体例：　　　　　　　　　　　　）

よろしくお願いします
0258名無しさん＠そうだ選挙にいこう2015/12/04(金) 21:53:03.12
>>257
知らん。
PC再起動後、100万セルぐらいに記述して比較すれば早いし確実。バージョンによっても変わる可能性あるし
よっぽどでないかぎり内部構造なんて考えるだけ無駄な話で、そんな暇があるならさっさとvbaで済ましてしまえば良い。

あと、indexの代わりにoffset使ったほうが早いかもしれない
offfset(gc114,fu3-1,0)
みたいな感じ。
0259名無しさん＠そうだ選挙にいこう2015/12/05(土) 05:39:32.05
>>258
indexよりoffsetのほうが重いよ
0260名無しさん＠そうだ選挙にいこう2015/12/05(土) 09:39:42.38
OFFSETの方がINDEXよりも式が短くてすむことが多いからな多用しがちだが
処理はINDEXの方が軽いから多量に使うならINDEXだよな

要は用途に合わせて使い分ければいい
0261名無しさん＠そうだ選挙にいこう2015/12/05(土) 10:15:25.78
重くていいなら全部LOOKUPにするだろ
0262名無しさん＠そうだ選挙にいこう2015/12/05(土) 10:21:02.46
>>257
もっと軽くできるけど、体感できないぐらいの差なので、そのままでいいよ
0263名無しさん＠そうだ選挙にいこう2015/12/05(土) 13:18:48.56
【1 OSの種類 　 　 　 　 .】 Windows8.1
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

お願いします
現在の日付と時刻表示で
CTRL＋；　：　を使いそのあとに日付と時刻の間にスペースをいれているのですが
これをワンボタンで行う方法はあるんでしょうか　→2015/12/5 12:15:00
若しくはスペースを自動で入ることは可能ですか
0264名無しさん＠そうだ選挙にいこう2015/12/05(土) 14:31:56.23
>>263
下のコード作っておいて
ショートカットキーに割り当てるとか

Sub MyDate()
　With ActiveCell
　　.Value = Now()
　　.NumberFormatLocal = "yyyy/mm/dd hh:mm:ss"
　End With
End Sub

後は
リボンやクイックアクセスツールバーに登録するとかだけど
アドイン化するか　個人用マクロブックへ入れるとかしないと
色々不都合ありそうだけど
0265名無しさん＠そうだ選挙にいこう2015/12/05(土) 16:08:07.43
>>264
できました。ありがとうございます。
登録方法は確かに迷いますね。検討します。
0266名無しさん＠そうだ選挙にいこう2015/12/05(土) 16:28:49.91
now関数使うと日付変化すると思っていたけど
VBAだとなんで変化しないんですかね
0267名無しさん＠そうだ選挙にいこう2015/12/05(土) 19:14:37.61
シートを自動更新する設定にすれば変わるよ
ただ重くなるけど
0268名無しさん＠そうだ選挙にいこう2015/12/05(土) 20:24:29.00
【1 OSの種類 　 　 　 　 .】 Windows8.1
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否


　　A　　　B　　　C
１　
２　２０　　　　　－１０
３　ー３０　　　　　２０
４　４０　　　　　－３０
５　５０　　　　　－４０


A列とC列にこのようなプラスとマイナスの数値が入力してあって
A1セルにA列とC列のプラスのみの平均値
C1セルにA列とC列のマイナスのみの平均値
を表示させるにはどうすればよいのでしょうか
よろしくお願いします
0269名無しさん＠そうだ選挙にいこう2015/12/05(土) 20:32:13.35
>>268
sumif,countif,sumproductとか
0270名無しさん＠そうだ選挙にいこう2015/12/06(日) 12:10:43.65
普通にAVERAGEIFで良いんでは？
0271名無しさん＠そうだ選挙にいこう2015/12/06(日) 12:56:35.83
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否

名前をつけた範囲の中で"あ"という文字の数をカウントする方法を教えて下さい。
0272名無しさん＠そうだ選挙にいこう2015/12/06(日) 14:31:50.04
>>271
とあるブックの、名前が付けられているすべての範囲、ってこと？
0273名無しさん＠そうだ選挙にいこう2015/12/06(日) 16:35:42.26
>>271
範囲を選択して名前をつけられるボックスが数式バーの左にあります。
その範囲名を元に算出したいんです。
02742712015/12/06(日) 16:36:42.95
>>272宛でした、すみません。
0275名無しさん＠そうだ選挙にいこう2015/12/06(日) 20:20:31.32
>>271
VBAじやないと 色々難しいと思うぞ

条件付きでいいならこれで出来る

※※名前をつけた範囲のエリアが一つである事※※
　○ A1:B20
　× A1:A20とB1:B20 ・・・・#VALUE! エラーになります。
　× A1:A20とC1:C20 ・・・・#VALUE! エラーになります。

1)"あ"という文字列の [文字列出現数]

=SUMPRODUCT(LEN(名前)-LEN(SUBSTITUTE(名前,"あ",""))) / LEN("あ")

カウントする文字列が1文字なら これでも可
=SUMPRODUCT(LEN(名前)-LEN(SUBSTITUTE(名前,"あ","")))
0276名無しさん＠そうだ選挙にいこう2015/12/07(月) 19:29:38.61
65万行くらいデータあって、テキストにそのまま出力したいのですが、メモリの上限なのか、メモ帳にコピペできません。何か方法ありますでしょうか？
0277名無しさん＠そうだ選挙にいこう2015/12/07(月) 19:35:37.58
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否

作業実績を作りたいのですが、形が見えて来ません。アドバイスお願いします。

やりたいこと
１ヶ月（１日単位）に誰が何を何件やったか折れ線グラフにしたい

困ってること
各シート（作業別）に日付と名前があって、１日に複数件対応したとき
12/7に山田が3件みたいな感じでグラフ用に抽出出来ない（一件なら出来ます

a1に日付、b1に名前

宜しくお願いします
0278名無しさん＠そうだ選挙にいこう2015/12/07(月) 20:03:26.16
>>276　CSVで保存
0279名無しさん＠そうだ選挙にいこう2015/12/07(月) 20:04:11.59
>>277　ピボットグラフ
0280名無しさん＠そうだ選挙にいこう2015/12/07(月) 20:14:37.39
>>277
どっかに集計シート作って
+countif(sheet1!a:a,"山田")+countif(sheet2!a:a,"山田")+countif(sheet3!a:a,"山田")...
みたいな感じで
0281名無しさん＠そうだ選挙にいこう2015/12/08(火) 00:21:28.03
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否

例えば　かぎ、がか、かき、がき　という4単語があったとします。
昇順にしたいのですが、
がか→かき→かぎ→がき　という順番になってしまいます。
国語辞典のような50音順(かき→かぎ→がか→がき)にしたいのですがどこかで設定できますか？

元データが2万件を超えるので手作業だとツラいです。
関数でも書式設定でもExcel自体の設定変更でも何でもいいのでできるだけ簡単にできる方法をお願いします。
0282名無しさん＠そうだ選挙にいこう2015/12/08(火) 00:29:54.91
>>281
濁音半濁音を無視するのねぇ
設定は知らない。多分、無い
作ってみる
0283名無しさん＠そうだ選挙にいこう2015/12/08(火) 00:35:29.04
作業列をつくってふりがなを数字に置き換えて並び替え
0284名無しさん＠そうだ選挙にいこう2015/12/08(火) 00:36:59.42
>>281
http://www.dotup.org/uploda/www.dotup.org643314.xlsx.html
並び替えるとこうなると思う
モノ
あ
かき
かぎ
鍵
がか
がき
ガキ
さ
>>283
やっぱそれだよねぇ
0285名無しさん＠そうだ選挙にいこう2015/12/08(火) 01:46:22.55
国語辞典の配列ってアルゴリズムがけっこう複雑でワークシート上の操作だけで正しく並べ替えるのは不可能
プログラムでやるにしても一苦労だし、実は出版社ごとに微妙にルールが違うという

だいたいでいいんなら濁点半濁点、大小、平仮名片仮名、長音、全角半角などの違いをみんな無視してソートって手もあるけど、
厳密にやるのはかなり大変
0286名無しさん＠そうだ選挙にいこう2015/12/08(火) 01:57:20.71
>>281
やりたい事はわかるけど ちょっと誤解してるようなので
がか→かき→かぎ→がき　という順番は50音順的に正しいのよ

清音・濁音・半濁音は同じとして 並び変えて
それから 清音・濁音・半濁音の順が本来の並び順

国語辞典の言葉の並び方　
http://hon.gakken.jp/reference/column/Q-A/article/090819.html
02872862015/12/08(火) 02:17:19.67
ちょと補足しておく
50音にはそもそも　濁音・半濁音はないよね
"ハ" "バ" "パ"　すべて　"ハ"
ただ清音・濁音・半濁音の違いだけ
50音的には一緒
0288名無しさん＠そうだ選挙にいこう2015/12/08(火) 07:06:31.30
vbaなしじゃ無理でしょ
0289名無しさん＠そうだ選挙にいこう2015/12/08(火) 08:13:26.38
>>281
手作業が一番早い
0290名無しさん＠そうだ選挙にいこう2015/12/08(火) 08:23:45.09
国語辞典順ソートって誰かしら作ってると思うんだけど、フリーでは公開されてないんだろうか
俺の検索スキルでは見つけられんかった
0291名無しさん＠そうだ選挙にいこう2015/12/08(火) 08:26:52.17
>>290
そこまでexcel関数にこだわってるやつなんていないと思うぞ…
0292名無しさん＠そうだ選挙にいこう2015/12/08(火) 09:17:44.12
>279-280 ｱﾘｶﾞﾄﾝ
ピボットは今度勉強します

１日に同じ作業をすると
12/8 山田
12/8 山田
になるんですが、これを処理するにはどうしたらいいでしょうか
0293名無しさん＠そうだ選挙にいこう2015/12/08(火) 13:10:24.32
>>292
こういう表を後はいけるんでないか
　　　　1/1　1/2
山田
田中
0294名無しさん＠そうだ選挙にいこう2015/12/08(火) 15:09:00.29
>>292
普通にピボットかけりゃ
　12/8
山田　2件

になるだけ
0295名無しさん＠そうだ選挙にいこう2015/12/08(火) 15:19:49.73
>>292
COUNTIFS で串刺し演算
0296名無しさん＠そうだ選挙にいこう2015/12/08(火) 20:52:13.84
>>278
CSVだと、カンマとの間に''がついてしまうので、つかない方法で
0297名無しさん＠そうだ選挙にいこう2015/12/08(火) 21:42:32.09
>>296
出力してから置換すれば
0298名無しさん＠そうだ選挙にいこう2015/12/08(火) 22:30:26.02
>>296
VBAで好きな形式で出力する
0299名無しさん＠そうだ選挙にいこう2015/12/08(火) 23:29:44.66
>>298
それをしりません。おしえてください
0300名無しさん＠そうだ選挙にいこう2015/12/09(水) 01:48:01.91
>>299
VBAでテキストファイル出力は
Print #1, Range("A1").Text;
みたいに書けばいい
0301名無しさん＠そうだ選挙にいこう2015/12/09(水) 20:59:04.93
会社のPCが変わったのですが今まで使っていたExcelファイル(関数山盛り)が
めちゃくちゃ遅くなってしまいました
前環境
　 CPU CeleronM 410、MEM 1.5GB、WinXP / MS Office2003
新環境
　CPU Celeron 900、MEM 4GB、Win7 / MS Office2013
【VBAが使えるか　 　 .】 はい(簡単なことなら)
【VBAでの回答の可否】 否
動作速度は前環境の数分の一から十数分の一くらいまで遅くなりました
ファイルをオープンやシートの選択から再計算まであらゆる動作が重いです
Excel自体が遅くなっているようで他に開いているファイルの動作やマクロまで遅いです
xlsxで保存してみたらオープンだけは多少速くなりましたが、それでも前環境には
全く及ばず、他の動作もあまり変わらないように思います

原因および改善方法があればアドバイスをもらえると助かります
よろしくお願いします

＃社内のその方面の部署にこの現象について投げていますがあまり当てになりません
＃ヘタすると自分の方が詳しい可能性すらあります・・・orz
0302名無しさん＠そうだ選挙にいこう2015/12/09(水) 21:18:06.54
PC換えるしかないんじゃ？
リース料ケチりすぎ
0303名無しさん＠そうだ選挙にいこう2015/12/09(水) 21:35:21.46
>>301
は？ってレベルのPC。
そのCPUは型番が間違ってなかったら2009年製で、しかもしょぼい。
6年前ですらしょぼいCPUなのに今のwin7＋2013はキツすぎる。
中古かリースだったら完全に電源もヘタってるから更に酷い。
メモリは申し訳程度に4GB積んであるがそんなもん一緒で、今すぐ買い直したほうがいい。
そんなポンコツで作業する時給の方がもったいない。選んだ奴に文句言っていい。

どうしても無理なら関数を使わずに1から全部VBAで作るか、自動計算を切ったほうがいい。
どちらもおすすめしないけど。
0304名無しさん＠そうだ選挙にいこう2015/12/09(水) 21:56:51.64
社内のその方面の部署でも解決を望めない難問だぞ
そんな呆気無い回答でいいのか？　　なんだ？ Celeron900 て？
ん？　オクで45円で売ってるぞ？　よくそれにWin7入れようと思い付いたな？
Excel云々の前にOSレベルでそもそもコマ送りじゃないのか？
0305名無しさん＠そうだ選挙にいこう2015/12/09(水) 22:22:58.65
http://closedsearch.auctions.yahoo.co.jp/closedsearch?ei=UTF-8&;p=Intel+Celeron+900&auccat=0&s1=cbids&o1=a&slider=0
んなわけねーだろって思ったら1円落札とかあったみたい
http://page21.auctions.yahoo.co.jp/jp/auction/j367087143
CPUだけで言えば15個セットで100円・・・すげぇな

これは発注者をぶん殴っていい。というかマジで何考えてるんだ
03063012015/12/09(水) 22:45:07.82
長文失礼します。レスありがとうございます
一点書き忘れていました。申し訳ありません
自動計算を切るのはすでに試してみましたが、Excelの動作は遅いままです
2003になくて2013にある何らかの機能が足を引っ張っているような気もしますが
自分は詳しくないので判りません

あとVBAでフルスクラッチは勘弁してください・・・orz

>>302-303
PCがショボ過ぎるというのは自分もそう思います
経費削減と吠えながら時給がもったいないとかそういう感覚が全くない会社です
むしろ残業することが評価されます。現場が効率的に業務を遂行出来るかとか
全く配慮されません
今回のリプレースでは画面が1280x800から1366x768になっていて縦が窮屈です

しかし最新の配布モデルに変えてもらったところでCeleron(詳細は今手元に
ありませんが去年頭あたりの最も安い奴でしょう)＆メモリ4GBは変わらないですし
十倍以上の処理能力を得られるのでしょうか？

信じられないと思いますが1年ほど前までの現場は、旧環境のメモリが512MBの
状態でOfficeを使って報告書を作っていました。Excelを起動するのに分オーダーで
時間がかかるとか言う環境でした
自分の旧環境が1.5GBなのは自宅に転がっていたメモリを追加しているためです

>>304
新環境ですが元々WinXPが入っていてWinXP終了とともにメモリ増設＆Win7
インストールとなった物です。そのPCがリプレースされそのお古が自分の所に
回ってきました

＃一応以前は別の会社でSE助手＆ヘルプデスクをやっていた身ですので
＃今の会社のイカレ具合は理解しているつもりです・・・
0307名無しさん＠そうだ選挙にいこう2015/12/09(水) 23:36:15.95
>>306
カンだけど、それは新品じゃないだろう。
電源やHDDが弱りに弱っていると思う。もはや趣味ですら使いたくないレベル。
ノートPCの電源交換は無理なので、デスクトップPCに変えたほうが良い、というか、変えて。

＞2003になくて2013にある何らかの機能
そんなもん山ほどある。
再計算切っても遅いなら、2013から導入されたしょーもないアニメーション関連とかもネックになってるかもしれない。
excel2013 アニメーション　でぐぐればいくつも出てくると思う。

メンテナンスとしては、
メモリが溢れかえってるかもしれないので、一応ctrl+shift+escのパフォーマンスで確認。4GBあれば多分大丈夫だとは思うけど
celelon900機がノートなら、バラしてホコリを取ったほうがいいかもしれん。デスクトップも一緒だけど。
ホコリがあるとホコリに電流が通る事になる。つまり全体の電圧が落ちることになり、不調になる。また、熱もこもる。ノートPCのホコリは大敵
バラすのがアレならエアダスターで窓枠みたいなとこに吹き付ける（辺り一帯が埃っぽくなるので気をつけて）

あと、下手に設定をいじると逆に遅くなったりもする。
エアロを切る、デスクトップ表示を16bit（今はできないかも）の設定にすると処理が逆に多くなって、遅くなる場合がある。
デフォルト設定にした方がいい。

マウスコンピューター勧めようかと思ったけど、相変わらず電源が酷かったので勧めづらかった
0308名無しさん＠そうだ選挙にいこう2015/12/10(木) 00:02:39.08
>>306
残業することで評価上がるなら、その遅いPC使うほうがメリットあるのでは？
速くしたいならPCを最新にすればいいかと
Excelに関係ない話なので、もう書き込まないでね
0309名無しさん＠そうだ選挙にいこう2015/12/10(木) 00:09:35.77
excelがほとんどの業務であるっぽいしいいのでは？とも思うけど
0310名無しさん＠そうだ選挙にいこう2015/12/10(木) 04:06:54.07
総合相談所の「総合」の部分に職場環境まで含むと解釈すれば
まあ解決方法が見つかるとは思えない案件だけど

勝手にメモリ増設していい職場なら次はSSDに変えちゃうとか、いっそ外見が似たCPUがi5の機種をこっそり持ち込むとか
0311名無しさん＠そうだ選挙にいこう2015/12/10(木) 07:19:17.13
案外、会社はくそ環境を用意して社員が自主的にカスタマイズさせるのが目的だったりして

切れて辞表を出された時には、会社の備品を不正に改造したとして解雇事由にして退職金支払いから逃れることもできるし
0312名無しさん＠そうだ選挙にいこう2015/12/10(木) 22:11:55.82
デスクトップの選択肢が無いほど狭い事務所環境ってのは、ままある
デスクトップで揃えるなら三万も出せばそこそこの本体＆モニタに移行できるものを(中古だが)
狭さゆえにノートの選択肢しか思い付かずにもんどりうってる事業所も多いかも知らん

いっそ、古いPCに戻してくださいと懇願するか、古いPCにリモート接続で使うか、Hyper-V入れて
バーチャルPCとして使い続けるか　　　ま、いずれも現実解では無いが

そも、ここで聞く前にMSサイトは漁ったのか？　Excelをセーフモードで起動とかいろいろ試したのか
それらを全部試したけど遅い！　っつーんなら、今後の五年を慮って今の環境に合わせた作りに直すべき
過去に多少知識あったような人間に限って、自分の殻から抜け出さない物言いするから嫌いなんだ
たかだかSE助手＆ヘルプデスク経験程度で　# だの、フルスクラッチだの　片腹痛い
0313名無しさん＠そうだ選挙にいこう2015/12/10(木) 22:25:28.56
【1 OSの種類 　 　 　 　.】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 否

セル内でCNAとテキスト入力するとCANに修正されてしまいます。
この自動変換を無効にする設定を教えて下さい。
0314名無しさん＠そうだ選挙にいこう2015/12/10(木) 22:45:17.76
>>313
オプション→文書校正→オートコレクト
"入力中に自動修正する"のチェックを外す

CNA→CAN だけでいいなら　それだけ削除してもいい
0315名無しさん＠そうだ選挙にいこう2015/12/10(木) 22:54:32.74
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】はい
【4 VBAでの回答の可否】 どちらでも

セルA1～セルAJ1の36セルに01～36までの数字があります。
セルA2～セルAJ2の36セルにアルファベットやカナが一文字ずつ入っています。

01-02-03-04-05-06-07-08-09-10-11-12・・・30 31 32 33 34 35 36
A・A・ｱ・ｲ・B・A・F・A・A・A・C・・・S・A・A・A・A・F・H

このとき、例えばAについて、１つ以上連続するデータの始点と終点を数字化したものを表示したいです。
上記の例では0102、0606、0810、3134　となります。

よろしくご教授ください。
0316名無しさん＠そうだ選挙にいこう2015/12/10(木) 23:35:16.59
>>315
データは二列めから始めてくれ
B1=01
B2=A
の状態で下を走らせる

Sub a()
'b = InputBox("何")
b = "A"
C = Range("XAX1").End(xlToLeft).Column
flg = False
s = ""
e = ""

For i = 2 To C
If (Cells(2, i) <> b And Cells(2, i - 1) <> b) _
Or (Cells(2, i) = b And Cells(2, i - 1) = b) Then
Else
If Cells(2, i) = b And Cells(2, i - 1) <> b Then
s = Cells(1, i)
End If
If Cells(2, i) <> b And Cells(2, i - 1) = b Then
e = Cells(1, i - 1)
Debug.Print (s & e)
End If
End If
Next
End Sub
0317名無しさん＠そうだ選挙にいこう2015/12/11(金) 11:25:13.66
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

Excelのセルで直接[=0.018-0.017-0.001]と入力すると、0にならずに[-2.60209E-18]となるのですが、どうしてでしょうか？
もちろん表示の関係で少数以下4桁以下が隠れている訳ではありません。
XPとOffice2007でも同じ結果になりました。

よろしくお願いします。
0318名無しさん＠そうだ選挙にいこう2015/12/11(金) 12:08:22.77
小数誤差で検索
0319名無しさん＠そうだ選挙にいこう2015/12/11(金) 12:17:17.25
http://hp.vector.co.jp/authors/VA016119/kitan011.html

これですかね？
確かに2進数で考えると誤差が発生する時があるのがわかりました。
ありがとうございます。
0320名無しさん＠そうだ選挙にいこう2015/12/11(金) 13:25:09.62
>>317
OpenOfficeのCalc使えば？
Excelと違って正確に計算してくれるよ
0321名無しさん＠そうだ選挙にいこう2015/12/11(金) 18:43:29.46
【1 OSの種類 　 　 　 　 .】 Windows81
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

同じ内容が縦に続くとき、2個目以降 書くのを省略したくなるけど
別の列をフィルタしたときやページ跨いだときに 見れないのは 不便なので
上に同じのが見えてる時は非表示 になるような オプションか設定かは
ありますか
0322名無しさん＠そうだ選挙にいこう2015/12/11(金) 19:00:08.07
>>321
ない。アウトラインとかで手作業で頑張るとか
0323名無しさん＠そうだ選挙にいこう2015/12/11(金) 19:00:28.65
>>320
calcって小数誤差起きないの？
0324名無しさん＠そうだ選挙にいこう2015/12/11(金) 19:45:36.70
>>323
んなわけない
0325名無しさん＠そうだ選挙にいこう2015/12/11(金) 20:29:34.43
>>321
SUBTOTALを使った作業列と組み合わせればフィルターな場合は非表示にする対応可能
ただ書くのを省略どころかいちいち面倒な数式を書く羽目になる
0326名無しさん＠そうだ選挙にいこう2015/12/11(金) 20:40:50.99
>>324
ｸﾞﾜｰﾀﾞﾏｻﾚﾀｰ
03273012015/12/11(金) 22:28:26.63
レスありがとうございます。出来る範囲で調べてみました
最新環境
　CPU Celeron 2950M、MEM 4GB、Win7 / MS Office2013
最新環境→新環境よりはマシだけど旧環境と比べると遅い
新環境＋Office2003→実用的な速度で動作。旧環境より速い
最新環境＋Office2003→実用的な速度で動作。旧環境より速い
アニメーションOFF→もっさり感は解消したけど遅いのは変わらず
メモリの残量→十分に空きがあることを確認
テーマをクラシックからWin7標準へ変更→違いを体感出来ず
セーフモードで開いてみる→違いを体感出来ず

Office2013で旧環境をよりマシな環境が見つからないので、ひとまずOffice2003のインストールを求める
方向になるのかな・・・

>>310
自分の主観ですがCPUやHDDの換装であれば怒られない可能性が高いと思われます
BIOSを見てもパスワードとかかかっていないですし技術的にはSSDへの換装は出来そうです
別PCの持ち込みは申請しないとLANに繋げないと思います(監視ソフト？とか入っているみたいなので)

>>311
前者は否定出来ません。会社に奉仕(≒サービス)する人が評価される社風です

>>312
耳が痛いところですが、自分はMS Officeに詳しいわけもなく、PCをリプレースしたら使い物にならないほど
遅くなったなんて事案も初めてなので手探り状態です。職場でネットの閲覧は出来ないので、ググりながら
試行錯誤が出来ないことも問題の解決を面倒にしています
ググってみるとMSのコミュニティにOffice2013が遅い旨の質問が多数見られますね。見てみます
0328名無しさん＠そうだ選挙にいこう2015/12/11(金) 22:46:42.87
釣りか？
0329名無しさん＠そうだ選挙にいこう2015/12/12(土) 00:39:20.22
>>327
2003は軽くなるが、セキュリティの問題からもオススメしない。やめとけ。
今思うとMシリーズやpen3はなぜかカクツキが少なかった気がする。なんでだろな、知らんけど。

それって中古？中古は基本傷みまくってるからウンコだよ
0330名無しさん＠そうだ選挙にいこう2015/12/12(土) 08:39:06.33
>>327
そんな糞会社はとっとと辞めて転職しよう。これで問題はすべて解決するｗ
0331名無しさん＠そうだ選挙にいこう2015/12/12(土) 09:54:02.41
>>324
AOOなら>>319の参考URLに書かれてるような代表的な少数誤差は少なくとも起きないな
0332名無しさん＠そうだ選挙にいこう2015/12/12(土) 11:32:00.31
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

A列、B列、C列にそれぞれ数値が入っている状態

やりたいこと
A1、B1がともに50以下の場合、C1が0～5ならばC1のセルを赤くする

条件付き書式設定でやろうとしてもできません。
excel関数の分厚い本を横に置いていますが皆目わかりません。
IFとかANDとか組み合わせたらできるのでしょうか。
0333名無しさん＠そうだ選挙にいこう2015/12/12(土) 12:21:31.33
>>332
=AND(A1<=50,B1<=50,C1>=0,C1<=5)

条件付き書式はちょっとキモイからな
trueが返れば書式が適用され、falseなら適用されない

=1=1
ならtrueが返り、
=1=2
ならfalseが返ってくる
0334名無しさん＠そうだ選挙にいこう2015/12/12(土) 12:51:11.47
>>333
できました。ありがとうございます。
0335名無しさん＠そうだ選挙にいこう2015/12/12(土) 13:04:53.67
どういたしまして
0336名無しさん＠そうだ選挙にいこう2015/12/12(土) 13:11:28.02
セーフモードでExcelを起動じゃ無い
Excel をセーフモードで起動だ　　　Excel /safe ←これを「ファイル名を指定して実行」でEnter
そうして開いたExcelのオプションを見て　アドオンがどうとかこうとか
チェックボックスをOn/Offしながら、どれが原因かいっこずつ確認　或いはエラーの修復とか
0337名無しさん＠そうだ選挙にいこう2015/12/12(土) 13:11:54.29
お、おう
0338名無しさん＠そうだ選挙にいこう2015/12/12(土) 15:36:06.09
>>322
>>325
ありがとう。 あきらめるわ
0339名無しさん＠そうだ選挙にいこう2015/12/12(土) 15:46:56.34
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

シート1、シート2、シート3・・・シート100・・・

それぞれのシートには
A2、A3、A4・・・に毎日、日付の数値を入れて
B2、C2、D2・・・各項目にデータを入力する。
それぞれのシートは同じ形。
このようなシートが100枚とか1000枚とかいっぱいあると仮定。

やりたいこと
各シートの最新の日付の行を一枚のシートに。

コピペしてると日が暮れて大変なので自動でできたりするんでしょうか。
自動でできなくても他に簡単な方法あるでしょうか。
VLOOKUPで参照できるのかやってみたけど見当違いみたい。
まったくわかんない。マクロとかそういうのですか？
0340名無しさん＠そうだ選挙にいこう2015/12/12(土) 16:53:44.23
>>339
シートの名前って何か法則性ある？
sheet1、sheet2、sheet3・・・とかだと楽勝だけど
山田、田中、スズキ・・・など法則性がないと結構しんどそう
0341名無しさん＠そうだ選挙にいこう2015/12/12(土) 17:01:01.78
>>339
作ったわ
http://www.dotup.org/uploda/www.dotup.org649912.xlsx.html
説明めんどくさいから関数はぐぐって調べてくれ
0342名無しさん＠そうだ選挙にいこう2015/12/12(土) 17:01:14.97
わからんかったらまた個々で聞いてくれ
0343名無しさん＠そうだ選挙にいこう2015/12/12(土) 17:38:27.76
>>340.341
本見ても全然わからなかったので助かります。
ちょっと調べながらやってみます。
ありがとうございます。
0344名無しさん＠そうだ選挙にいこう2015/12/12(土) 17:38:47.66
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

除算を含む計算式を入力した時の挙動について教えて下さい。
例えば+1+50/2 とセルに入力してあるセルあるとします。
このセルの計算式を再編集しようとすると、
50/2 の部分が自動で（？）25 に置き換わってしまっていて、
セル内が1+25 となるのを止めたいのですがどうすれば良いでしょうか？
0345名無しさん＠そうだ選挙にいこう2015/12/12(土) 18:09:08.05
>>344
やりたいことがわからんけど
=1+50*2
と掛け算でも一緒では？

文字列にしたいなら頭にアポストロフィをつけるか
'+1+50/2

書式設定で文字列に設定
03463442015/12/12(土) 18:16:17.00
>>345
レスありがとうございます。

セルには計算の結果を表示したいのですが、
セルを選択した時に、セルに入力したそのままの計算式を、
事後に確認できるようにしたいのです。
（今の状態だと、最初に1+25を入力したのか、
　1+50/2を入力したのか、はたまた1+100/4を
　入力したのかが分からない。これを解消したい）

2003の時はこのような現象は無かったように思うのですが・・。
0347名無しさん＠そうだ選挙にいこう2015/12/12(土) 18:44:05.60
>>346
win7-64bit 2010だけど
=1+50/2
のままになるけど
0348名無しさん＠そうだ選挙にいこう2015/12/12(土) 19:18:01.42
俺2013だけど再現した
セルの書式が数値の時
　+1+50/2
と入れると
　=1+25
になる
　=1+50/2
だとそのまま
よって

計算式を入力するとき
+1+50/2
と+を最初につけずに
=1+50/2
と入れる
0349名無しさん＠そうだ選挙にいこう2015/12/12(土) 19:41:09.19
2010
+1+50/2
は
=1+50/2
になるな
0350名無しさん＠そうだ選挙にいこう2015/12/13(日) 12:14:26.15
そもそも=つけずに+1+50/2なんて入力方法自体が間違いだよな
0351名無しさん＠そうだ選挙にいこう2015/12/13(日) 12:23:44.74
別に間違いじゃないけど
03523442015/12/13(日) 13:19:13.56
皆さんレスありがとうございます。
>>348 さんの方法でこちらでも回避できることがわかりました。
ただ、レスを拝見する限り、式を「+」で始めても影響の出ない方も
いらっしゃるようですね。もし、どこかの設定で回避できるなら
その方が良いのですが（「=」を入力するには2キー必要なので非効率）、
お分かりになる方いらっしゃいませんでしょうか。
（1キーで=が入力できる外付けテンキーがあるのは知っていますが・・）
0353名無しさん＠そうだ選挙にいこう2015/12/13(日) 13:45:28.33
>>352
もし可能ならそのファイルをアップロードしてほしい
こっちで開いてどうなるか試してみたい
0354名無しさん＠そうだ選挙にいこう2015/12/13(日) 15:47:40.20
>>352
+1+1で入れたら=1+1に補正されたよ
0355名無しさん＠そうだ選挙にいこう2015/12/13(日) 16:51:39.75
数式を＋で始めるのはLotus1-2-3と互換性とるために昔からある機能
0356名無しさん＠そうだ選挙にいこう2015/12/13(日) 18:21:18.58
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

A1に0以上の数値が入る
A1が
0～80の場合1点
81～100の場合2点
101～110の場合3点
111～150の場合4点
151～の場合5点

B1の数値は使わない

C1には0以上の数値が入る
C1が
0.0～0.9の場合5点
1.0～1.9の場合4点
2.0～4.9の場合3点
5.0～9.9の場合2点
10.0以上の場合1点
0357名無しさん＠そうだ選挙にいこう2015/12/13(日) 18:21:45.45
C列の数値は使わない

D1には0以上の数値が入る
D1が
1.0～4.9の場合2点
5.0～9.9の場合5点
10～14.9の場合4点
15.0～19.9の場合3点
20.0～の場合1点

E1には0を起点として
＋-の数値が入っている
～-4.9は5点
-5.0～0.0は4点
0.1～1.9は3点
2.0～3.9は2点
4.0以上は1点

いろいろな数値があって大きければ点数が高い場合もあれば
小さいほうが点数が高い場合もあり、
また、大きすぎても小さすぎても点数が低い場合などがあるとして
A1、C1、D1、E1の合計点数を知りたい。

SUMIFSとかいうのを見つけて =SUMIFS（A1＞=80
ここで止まりました。よろしくお願いします。
0358名無しさん＠そうだ選挙にいこう2015/12/13(日) 18:23:19.36
あ、間違えました。
C列の数値は使います。
0359名無しさん＠そうだ選挙にいこう2015/12/13(日) 18:28:55.84
それぞれ表作ってvookupのほうがいいだろうな
0360名無しさん＠そうだ選挙にいこう2015/12/13(日) 19:11:48.40
>>356
SUMIFSじゃ　ちと辛いぜ

方法としては
VLOOKUP　　LOOKUP　　INDEX+MATCH
色々あるけど　いずれにしても対応表を別途作って個別に点数に変換して合計する

なお
対応表を別途作らず　数式内に埋め込む方法もあるけど
数式が長くなる上に　メンテナンス性を考えると お勧めしない
0361名無しさん＠そうだ選挙にいこう2015/12/13(日) 19:12:21.09
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい

質問です
A1セルをB1に右クリでコピー

Private Sub Worksheet_BeforeRightClick　開いて
Range("A2") = Target

この一行で済むわけですが
これセル全体でなく、セル内の文字列の一部だけ出来ますか? 例えば
"出張費、山田" のうち「山田」だけ選択して、別セルに右クリでコピーって出来ますか?
0362名無しさん＠そうだ選挙にいこう2015/12/13(日) 19:14:21.09
あ
Range("A2")じゃねえA1す
すいやせん(^ ^)ゞ
0363名無しさん＠そうだ選挙にいこう2015/12/13(日) 19:19:18.70
>>362
B1じゃなくてA1かよ…
ヘッタクソな日本語だな
要点をまとめろよ
0364名無しさん＠そうだ選挙にいこう2015/12/13(日) 19:19:23.49
>>359>>360
なるほど理屈がわかりました。
ちょっとやってみます。
ありがとうございます。
0365名無しさん＠そうだ選挙にいこう2015/12/13(日) 19:25:09.13
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可


あるエクセルから、複数のエクセルファイルをダイアログで選択すると
連続して「開いて印刷して閉じる」というＶＢＡを書きたいのですができますかね。

印刷用の設定は、選択される側のエクセルに設定済みとします。
0366名無しさん＠そうだ選挙にいこう2015/12/13(日) 20:09:04.93
>>365
可能だよ
Application.GetOpenFilename
つーのがあるからそれで処理するブックを選択(複数可)して
開いて印刷して閉じる
をすれば良い

http://officetanaka.net/excel/vba/file/file02.htm
0367名無しさん＠そうだ選挙にいこう2015/12/13(日) 20:24:05.46
>>361
セル編集状態じやマクロ動かんと思うから 無理な気がする
素直にコピペの方が簡単では?
0368名無しさん＠そうだ選挙にいこう2015/12/13(日) 20:24:26.15
>>366
ありがとう。配列で受け取れるみたいだね。
難しそうだけどやってみます。
0369名無しさん＠そうだ選挙にいこう2015/12/13(日) 20:44:39.32
>>361
t = Target.value
t = split(t,"、")
Range("A1") = t(1)

こんな感じでどうだろう
しかし個人的な経験上、右クリックはやめた方がいい。フリーソフトやらなんやらと噛み合ってめんどくさいし、
開発も色々とめんどくさい
ショートカットに登録すると間違いない
>>363
わるぐちはいいので、回答をお願いします
0370名無しさん＠そうだ選挙にいこう2015/12/13(日) 20:49:30.20
>>361
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cells(1, 1).Value = Split(Target.Value, "、")(1)
End Sub

範囲選択でコピーは多分無理じゃないかな？しらんけど。
とりあえず選択状態じゃないB1を右クリックしたらA1に山田が入るのはこんな感じ
03713622015/12/13(日) 21:08:41.08
ありがとうございます
教わったので試してみます
0372名無しさん＠そうだ選挙にいこう2015/12/13(日) 21:17:13.55
>>371
あと顔文字を使うと煽ってるように見えるから、極力使わないようにした方がいいぜ
もっと事務的に成ったほうがいいぜ
03733652015/12/13(日) 21:24:59.37
>>366
純粋なＣしか知らなくて、まあＶＢＡもなんとかなるだろうと思ったが、
全然違うなあ。なんだか英文みたいだわ。まあなんとかなるけど、、。
0374名無しさん＠そうだ選挙にいこう2015/12/13(日) 21:39:21.31
Cはもう古代言語だよ。とにかくclassメソッドがないのが致命的に時代遅れ
javaを一通り触ってみるか、リファレンスだけでいい、読んでおくといい
0375名無しさん＠そうだ選挙にいこう2015/12/13(日) 21:52:50.80
そのVBAですら すでに時代遅れって言われてるけどな
だから初期のＣなんてもう・・・・
0376名無しさん＠そうだ選挙にいこう2015/12/13(日) 22:00:21.61
VBAなんかとっくにプログラム言語としては時代遅れだよｗｗｗ
クラスがまともに使えない、インポートだるい、他色々めんどくさい
それでも使われてるのは、エクセル・アクセスを自動化できるからで、
エクセルやらがとにかくユーザーのニーズにあってるってことだ。
エクセルファイルはデータの標準になったと言っていい。

個人的には.netで書けるようにして、pythonライブラリ使わせてくれって思うけど、
やっぱりvbaはいまのスクリプトな位置が最適だと思う
0377名無しさん＠そうだ選挙にいこう2015/12/13(日) 23:48:13.91
Javaは欠陥言語だよ。
C言語はコンパイラ自分自身をC言語で作れるけど、
Javaは自分自身をコンパイルできない。
0378名無しさん＠そうだ選挙にいこう2015/12/13(日) 23:59:05.67
>>377
自分自身の言語でコンパイルできるかどうか、多言語の必要性を意識しながらコードを書く機会ってどれだけあるだろうか
ここ10年間で一回だけC言語にアセンブラを埋め込んだことはあるけど、ほんとそれだけ
言語なんて一個で十分
03793652015/12/14(月) 00:03:47.45
すまん。俺のせいで話が飛んで行ったなあ。
Ｃをやっていたのはそれでないと、開発できない環境だっただけで、
今回ＶＢＡをやってみたのもエクセルを動かす為で、言語の優劣はよくわからん。

プログラムに対するアルゴリズムの考え方はおんなじだろうし。
ただただ、構文に慣れてないっていうのだけだと思ふ。
0380名無しさん＠そうだ選挙にいこう2015/12/14(月) 00:14:53.99
いや、大丈夫だ
誰もお前の話はしていない
0381名無しさん＠そうだ選挙にいこう2015/12/14(月) 00:20:44.89
>>379
気にしなーーい
話か飛躍していくのはいつもの事
03823442015/12/14(月) 01:54:47.95
>>353
すみません、業務上のファイルなもので外部には出せないのです。
0383名無しさん＠そうだ選挙に行こう2015/12/14(月) 08:13:58.48
いや、A1セルにその数式いれた新規ファイルでいいんだが・・・
まぁ無理なら別にいいいよ
0384名無しさん＠そうだ選挙に行こう2015/12/14(月) 18:20:25.14
アマチュアですがVBAの次に覚えるとしたらC+とVB.netのどっちがいいですか?
半端に似てるの覚えると混同しそうだから
今んとこCにしようかと
0385名無しさん＠そうだ選挙に行こう2015/12/14(月) 18:44:58.81
>>384
Excelとなんの関係があるの？
0386名無しさん＠そうだ選挙に行こう2015/12/14(月) 18:49:23.58
>>384
何するかによる
web作りたいならphpとjavascript（jquery）
自分用のプログラムを色々作りたいならvb.net。でもvb.net覚えても仕方ないとも思う。vbaで大体のことはできるから
カッコイイ言語ならpython。人工知能なども作れるが、ぶっちゃけほとんど全く役に立たない。
0387名無しさん＠そうだ選挙にいこう2015/12/14(月) 21:07:12.85
【1 OSの種類 　 　 　 　 .】 Windows　vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

右クリックのメニューのフォントサイズを大きくする方法はありますか？
あるならその方法を教えて下さい。
CommandBarsでメニュー追加したんだけど何だか小さく見えて。
0388名無しさん＠そうだ選挙にいこう2015/12/15(火) 01:00:05.07
>387
EXCEL というよりも Windowsの設定じゃないかな?
出来るかしらんけど
0389名無しさん＠そうだ選挙にいこう2015/12/15(火) 11:18:29.65
Windowsのコントロールパネル -> フォント -> 設定
0390名無しさん＠そうだ選挙にいこう2015/12/15(火) 12:08:46.94
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

右揃えにしてテキストの終端からセルの右端までに少し余白を取りたいのですが、スペースを入力すると無視されます
自分ではスペースの後にピリオドなど文字を打ってそれを真っ白の図で隠すくらいしか思いつきません
アイデアお願いします！
03913902015/12/15(火) 12:10:56.46
自己解決しました
幅がごく短い空白列を挿入すればよかったですね
あほでした、すみませんでした
0392名無しさん＠そうだ選挙にいこう2015/12/15(火) 12:13:40.75
>>390
それでもいいけど、
書式設定のユーザー定義で
0__;"- "0__;@__
という手も
03933902015/12/15(火) 12:37:30.92
申し訳ありませんが、もっと良いアイデアあれば教えてください
よろしくお願いいたします
03943902015/12/15(火) 13:16:49.11
>>392
おお！ありがとうございます！！！！
0395名無しさん＠そうだ選挙にいこう2015/12/15(火) 14:40:01.82
>>390
OpenOffice Calcならセルごとに細かくマージン設定が出来るぞ
書式設定弄っただけでもっさり時間の掛かってしまうExcelと違って表示も速い
0396名無しさん＠そうだ選挙にいこう2015/12/15(火) 21:21:05.94
【1 OSの種類 　 　 　 　 】 Windows10
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 】 はい
【4 VBAでの回答の可否 】 可

s
AAA
g
je
BBB
we
AAA
hha
dg
BBB
…

というような状態で （※AAA とBBBは交互に来るようなデータ）
AAA～BBBを、青等の色に塗りつぶす条件付書式設定にしたいです
上だと２～５行の色が変り、6行目はそのまま、７～１０行目で色が変わる感じで
どういった数式があるでしょう？
0397名無しさん＠そうだ選挙にいこう2015/12/15(火) 21:30:22.03
>>396
VBAが可能なんだったら好きなようにfunction作ればいいのでは？
何がわからないのかもっと具体的に頼む
0398名無しさん＠そうだ選挙にいこう2015/12/15(火) 21:54:06.48
10/26 (月) 245.0kWh (8,466円) &nbsp;
という文字列があって245.0を数字で置く数式をだれか頭のいいひと
教えてちょんまげ
0399名無しさん＠そうだ選挙にいこう2015/12/15(火) 22:12:25.34
>>398
もうちょっと真面目に書いたら?
ふざけて書きすぎて 意味不明になってるよ

>>245.0を数字で置く数式
なんの事やらさっぱりですよ
0400名無しさん＠そうだ選挙にいこう2015/12/15(火) 22:37:09.93
value(mid(a1,9,4)～
大体こんな感じ
0401名無しさん＠そうだ選挙にいこう2015/12/15(火) 22:43:20.56
>>396
やりたい事こんな感じかな?

B列を作業列として
B1 =IF(A1="AAA",1,0)
B2 =IF(A2="AAA",1,IF(A1="BBB",0,B1))
としてB2を下にオートフィル
でB列が 1の行を塗りつぶすように　条件付き書式を設定
0402名無しさん＠そうだ選挙にいこう2015/12/15(火) 23:01:45.25
やっぱ閉じかっことkwhをfindして差分をlenした方がスマートかも
0403名無しさん＠そうだ選挙にいこう2015/12/15(火) 23:35:47.29
>400

サンク
0404名無しさん＠そうだ選挙にいこう2015/12/15(火) 23:38:53.44
文字列は　こうなっているのだけど

11/8 (日) 20.3kWh (876円) &nbsp;
11/9 (月) 38.1kWh (1,647円)
11/10 (火) 170.8kWh (7,379円)
11/11 (水) 186.0kWh (8,036円)

真ん中の数字がほしい
0405名無しさん＠そうだ選挙にいこう2015/12/16(水) 00:56:23.84
>>404
=RIGHT(LEFT(A1,FIND(".",A1)+1),5)*1
0406名無しさん＠そうだ選挙にいこう2015/12/16(水) 01:02:23.18
>>404
=MID(LEFT(A1,FIND("k",A1)-1),FIND(")",A1)+2,9)*1
0407名無しさん＠そうだ選挙にいこう2015/12/16(水) 08:06:50.68
>405
>406

頭のいい人　ありがとう
0408名無しさん＠そうだ選挙にいこう2015/12/16(水) 08:47:23.29
A列が

文化/生け花
文化／芸能
文筆/小説家
文筆/書道
文化／茶道
資格/司法書士
芸文
文筆／ボールペン字
資格/会計士
模型

となってるんですが、
B列に/の左側を、C列に/の右側を出す方法は有りませんか？

/は全角半角混在し
/のない項目もあって、その場合はB列のみ表示で
0409名無しさん＠そうだ選挙にいこう2015/12/16(水) 09:34:09.23
>>408
全体をB列にコピペしてからデータ→区切り位置→その他で / を指定
0410名無しさん＠そうだ選挙にいこう2015/12/16(水) 09:54:45.26
>>409
いえ、A列は次々と増えるので
B列C列の計算式でおねがいします
0411名無しさん＠そうだ選挙にいこう2015/12/16(水) 10:53:44.92
>>408
iferror(find("/",substitute(a1,"／","/")))
で/の文字数を取って、midで切り出せばok
0412名無しさん＠そうだ選挙にいこう2015/12/16(水) 12:12:46.37
>>410
B1=IF(A1="","",LEFT(A1,IFERROR(FIND("/",SUBSTITUTE(A1,"／","/")),99)-1))
C1=IF(A1="","",MID(A1,IFERROR(FIND("/",SUBSTITUTE(A1,"／","/")),99)+1,99))
0413名無しさん＠そうだ選挙にいこう2015/12/16(水) 14:27:20.67
>>411-412
SUBSTITUTEって手があったのか・・・
ありがとうございました！
0414名無しさん＠そうだ選挙にいこう2015/12/17(木) 16:59:41.30
Excel 2013　で
ActiveX コントロールのコマンドボタン等で
Caption に　●、■、▲　を使うと文字ばけしてしまいます。
対処法がありますか？
0415名無しさん＠そうだ選挙にいこう2015/12/17(木) 17:30:35.66
フォームコントロールを使ったほうが良いよ
activeXはサポート対象外になりつつある
0416名無しさん＠そうだ選挙にいこう2015/12/17(木) 17:42:04.27
>>414
EXCEL のバグぽいね
マイクロソフト コミュニティで同様の話題でてる
URL　が長いのでコピペ等出来なければ

Excel2013のボタンキャプションが文字化けする
でぐぐった方がいいかも

一応該当URL
http://answers.microsoft.com/ja-jp/office/forum/office_2013_release-excel/excel2013%E3%81%AE%E3%83%9C%E3%82%BF%E3%83%B3/dccfa241-43ad-48d1-91a3-25bd239fb709?auth=1
04174142015/12/17(木) 19:47:10.25
ども。
諦めるしかないですか。
Excel 2002　から 2013　にしたのに。2002　は終了するときエラーになってしまうので買い換えたけど。
0418名無しさん＠そうだ選挙にいこう2015/12/18(金) 14:35:54.24
【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい（コピペだけしかできません）
【4 VBAでの回答の可否】 可


出欠名簿の作成をしています。
エクセルブック内に「出欠」というシートがあり、出欠名簿が入力されています。
（Ａ列＝支店名・Ｂ列＝役職・Ｃ列＝氏名）


値はＡ列からＥ列に入っており、支店順に並んでいます。Ｃ列以外は値の入っていないセルもあります。
教えて頂きたいのは、Ａ列の支店名は各支店の一人目しか入力されていないので、２人目以降の各行にもコピーをする
コードを教えてください。

＊Ｃ列の氏名は必ず入っているので、Ｃ列の値の入っている最終行まで処理をしたいと思います。
＊１行名は項目名が入力されていますので除外してください。
0419名無しさん＠そうだ選挙にいこう2015/12/18(金) 15:01:32.10
>>418
それだけ書ければ出来たようなものだけど、VBA全く判らないの？

C列で最終行取得

もしA列ｘ行のセルが空白セルならA列ｘ-1行のセルの値を書き込む
ｘは、データがある3行～最終行まで繰り返す
04204192015/12/18(金) 15:22:56.54
>>419
すみません。ＶＢＡはコピペしかできません。
0421名無しさん＠そうだ選挙にいこう2015/12/18(金) 15:59:35.96
それぐらいなら覚えたほうが早いでしょ
Sub a()
gyo = Range("c10000").End(xlUp).Row
For i = 2 To gyo
If Cells(i, 1) = "" Then
Cells(i, 1) = Cells(i - 1, 1)
End If
Next
End Sub
04224212015/12/18(金) 16:06:29.15
>>421
ありがとうございます
0423名無しさん＠そうだ選挙にいこう2015/12/18(金) 20:53:23.33
VBAでなくても関数ＩＦだけで解決できるやん
0424名無しさん＠そうだ選挙にいこう2015/12/18(金) 21:16:21.28
質問です。

「0000570101268879」みたいな番号を入力したいのですが、
セルの表示形式を数値にすると先頭の0000が省略されてしまいます。
文字列にしても同じで、さらに後ろがE+11みたいになります。

数字をそのまま表示させるにはどう設定すれば良いのでしょうか？
0425名無しさん＠そうだ選挙にいこう2015/12/18(金) 21:20:56.60
>>424
文字列にすると指数表記にはならない
文字列に再設定
0426名無しさん＠そうだ選挙にいこう2015/12/18(金) 22:40:54.81
>>424
数字として扱いたいなら
「セルの書式設定」→「表示形式」→「ユーザー設定」で
ゼロサプレスしない桁数分を「00～00」すれば良いでしょう

文字として扱う時は
「'」に続けて数字を入れ、「文字列」とすれば良いでしょう

もしも、、時節柄〒であれば「標準」のまま扱えます
0427名無しさん＠そうだ選挙にいこう2015/12/18(金) 22:56:33.79
シフトキーを押しながら、テンキーではない方の7を押したあとで数字を入力

'が数字の前につく

これで0から始まる数字を入力し放題
0428名無しさん＠そうだ選挙にいこう2015/12/19(土) 09:39:20.88
【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 不可
【4 VBAでの回答の可否】 不可

ワークシートのSheet2～Sheet*に各個人の表データが有ります。シート名は個人名になっています。
Sheet1のセルA1で個人名を入れたら、その下に個人の表データ1人分を表示できるようにしたいです。
どうすればいいですか？
0429名無しさん＠そうだ選挙にいこう2015/12/19(土) 10:03:52.08
>>428
INDIRECT()
A1を持ってくる時は
=INDIRECT("sheet2!a1",1)
か
=INDIRECT("sheet2!r1c1",0)

で
=INDIRECT("sheet2!r"&row()&"c"&&column(),0)
とかにすると同じ場所のセル内容を持ってこれる
0430名無しさん＠そうだ選挙にいこう2015/12/19(土) 12:11:36.36
【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 不可
【4 VBAでの回答の可否】 不可

A列に人の名前がそれぞれ入っていて
それの中から選択した名前があるセル名を出すようにしたいのですが可能でしょうか？

A列
1.安藤Ａ子
2.川本Ｋ子
3.山田Ａ美
4.山田Ｂ子
5.吉田Ｃ子

山田のセル
A3, A4

このような感じです。
0431名無しさん＠そうだ選挙にいこう2015/12/19(土) 12:17:52.27
>>430
b1=IF(NOT(ISERROR(FIND("山田",A1))),ADDRESS(ROW(),COLUMN()-1,4 ),"")
オートフィル
後は値でコピー等
フィルタ掛けたほうが早いかもな
0432名無しさん＠そうだ選挙にいこう2015/12/19(土) 13:15:54.66
cell関数で相対参照って返せますか？
a1=CELL("address")
だと$a$1になってしまいます。substitute()使わずにできないでしょうか
0433名無しさん＠そうだ選挙にいこう2015/12/19(土) 16:34:48.89
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

社内手続きに使う申請書類のフォーマットがエクセルで提供されていて、
申請者各自が入力して印刷したものを提出する運用なのですが、
ワークシート全体を選択した状態でフォントを指定しても、
入力途中でフォントが勝手に変わってしまいます。

ひどい物だと同一セル内でフォントが変わってしまう。
しかし、そのようなセルの書式設定を確認すると、
初期に設定したパラメータになっている。

このバグ？を解決する方法ありませんでしょうか。
0434名無しさん＠そうだ選挙にいこう2015/12/19(土) 16:36:44.33
>>432
無理
つか　なせ"substitute()使わずに"なのか理由を知りたいかも
0435名無しさん＠そうだ選挙にいこう2015/12/19(土) 17:11:48.05
>>433
そのExcelファイルをみないとなんとも言えない
0436名無しさん＠そうだ選挙にいこう2015/12/19(土) 17:33:18.12
【1 OSの種類 　 　 　 　 .】 Windows8.1
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい(最近学校で少し学んだ程度)
【4 VBAでの回答の可否】 可

問1
Webクエリを使ってデータを取り込んだが、必要箇所に右矢印マークが出なかった為、仕方無く全てをtxt型で別シートに取り込んだ。
しかし、Webクエリを計20シート分取り込み、その全てを一枚の別シートにまとめるつもりである為、やはりなるべく必要データ量を少なくしたい。必要のないデータを取り込まないようにできないものか？(優先度:高)
また、他シートへの引用を楽にする為、必要箇所の表示形を変えられないものか。(一度変えても更新の度書き換わってしまう)
(優先度:中)
現状,※()…1セルとする
(数値1)
(数値1の説明)
(数値2)
(数値2の説明)

理想
(数値1の説明)(数値2の説明)…
(数値1) (数値2)…
0437名無しさん＠そうだ選挙にいこう2015/12/19(土) 17:50:23.51
>>436
VBAでやればいいんじゃね？
0438名無しさん＠そうだ選挙にいこう2015/12/19(土) 19:11:06.79
>>436
書式については接続のプロパティで書式を保持？保存？するかどうかって変えられたような・・・
今エクセル使える環境でないので自信ないけど。
0439名無しさん＠そうだ選挙にいこう2015/12/19(土) 20:30:58.76
>>432
思いっきり面倒にするなら可能だがやる価値ないとは思う
FINDを基準に$以外を取り出すって話だが
0440名無しさん＠そうだ選挙にいこう2015/12/19(土) 21:04:18.84
ExcelにWebページのコピーをそのまま貼り付けたときに
ページのリンクも貼り付けられてるのですが、
このリンクのURLを参照や関数で引っ張るにはどうすればいいんでしょ
単に参照するとリンクでなく表示されてる文字を参照してしまいます
0441名無しさん＠そうだ選挙にいこう2015/12/19(土) 21:26:47.09
>>440
A1にあるリンクを引っ張るなら、
=HYPERLINK(A1)
で出来ないか？
0442名無しさん＠そうだ選挙にいこう2015/12/19(土) 21:34:41.82
>>440
ユーザ定義関数

例)
Function GETHyperlink(r As Range)
GETHyperlink = r.Hyperlinks(1).Address
End Function

使い方)
=GETHyperlink(A1)
0443名無しさん＠そうだ選挙にいこう2015/12/19(土) 21:34:43.75
>>441
リンク自体を引っ張るのではなくて、リンクのURLの文字列を引っ張りたい（一覧化したい）んです

リンクってセルの値でなく別のプロパティの内容ぽいからそもそも参照できないのかな
0444名無しさん＠そうだ選挙にいこう2015/12/19(土) 21:35:25.05
>>442
ためしてみます！
0445名無しさん＠そうだ選挙にいこう2015/12/19(土) 22:00:17.88
>>442
できました、ありがとうございました
0446名無しさん＠そうだ選挙にいこう2015/12/19(土) 23:46:21.00
>>396
A1セルからなら

=OR(COUNTIF(A$1:A1,
0447名無しさん＠そうだ選挙にいこう2015/12/19(土) 23:55:32.02
あれ？もう一回

=OR(COUNTIF(A$1:A1,"AAA")>COUNTIF(A$1:A1,"BBB"),A1="BBB")
04483012015/12/20(日) 00:19:01.54
レスありがとうございます。ひとまずMS Office 2003を継続して使用する方向で落ち着きそうです
遅くなった原因は2013は関数か自動計算の処理能力が2003比でかなり悪いと言うことで良いのでしょうか
テーブル2つに関数沢山のシートが数枚でファイルサイズはxlsで5MBほど。軽くはないけど異常に重いって
ほどでもないと思っていますが今はそうでもないのかな・・・

>>329
セキュリティ上の懸念はあると思いますが、こないだまでWinXPを使わせていたくらいの会社ですし
自分が心配することではないかなと思います・・・2003がインストールされているPCは結構ありますし
最新環境のマシンを要求しても出てくるか怪しい感じですし、Core i5標準電圧版がのったマシンを
出せと言っても絶対に出てこないでしょう
リース2期目？と言う点では中古と言うことになりますね

>>336
はい、Excel /safeでExcel2013を起動してみました
使用されているアドオンはありませんでした
0449名無しさん＠そうだ選挙にいこう2015/12/20(日) 02:52:23.78
ランダムじゃなくて、数字を推測できない文字に変換する関数てありますか？
0450名無しさん＠そうだ選挙にいこう2015/12/20(日) 05:48:34.20
>>449
ちょっと質問の意味がよくわからないけど、換字式暗号のテーブルを作りたいの？
数字の範囲にもよるけど、適当なオフセットを足してJISコードやユニコードにするだけで解読不能になるけど
0451名無しさん＠そうだ選挙にいこう2015/12/20(日) 09:17:58.65
>>450
そんな面倒なことしなくても
例えば全部の数字を"あ"に変換しちゃえばいいんじゃね？
変換先は固定だから「ランダムじゃない」し、
どんな数字も同じ文字になっちゃうんだから
変換後の文字からは元の数字が「推測出来ない」

これで>>449の条件は全て完璧に満たせてる
もちろん、復号は一切出来ないけど、
そんなの最初の条件に入ってないんだから気にする必要なし
0452名無しさん＠そうだ選挙にいこう2015/12/20(日) 10:48:13.63
【1 OSの種類】 Windows7
【2 Excelのバージョン】 Excel2010
【3 VBAが使えるか】 いいえ
【4 VBAでの回答の可否】 可
A B C
1　0　OK
1　0　OK
1　0　OK
2　0　NG
2　1　NG
3 0 OK

B列に1が合ったらC列にA列のグループのみOKにしたいのです。何か良い方法ないでしょうか？
無知ですみません。。
0453名無しさん＠そうだ選挙にいこう2015/12/20(日) 11:06:51.72
>>452
B列に1つでも1があればB列はすべて無視して、Aが1のものをOKにしたいってこと？
0454名無しさん＠そうだ選挙にいこう2015/12/20(日) 11:19:37.35
>>449
ない
どんな文字でも俺は推測する
0455名無しさん＠そうだ選挙にいこう2015/12/20(日) 11:26:59.22
>>453
いいえ。ごめんなさい、数字ではわからないですね。。

Ａ　Ｂ　Ｃ
１　×　ＯＫ
１　×　ＯＫ
１　○　ＯＫ
２　×　ＮＧ
２　×　ＮＧ

Ａ列のグループ「１」「２」でそれぞれＢ列に○があればＯＫ。
×のみならＮＧとしたいのです。
0456名無しさん＠そうだ選挙にいこう2015/12/20(日) 11:38:51.94
>>451
前提がうまくなかった。複合も可能なようにも前提です
0457名無しさん＠そうだ選挙にいこう2015/12/20(日) 11:48:53.67
>>455
頼むから、「日本語で」・「何を聞きたいのか、何を知りたいのか相手にも判りやすいように」書いてくれ
全く言ってる意味が判らんし、ABCの法則性も全然通じない
0458名無しさん＠そうだ選挙にいこう2015/12/20(日) 11:53:00.14
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

やりたいこと
1行目に入力したもの（数値や関数など）を下に追加していく。
データは4行目からA～AB列まで入っている。
0459名無しさん＠そうだ選挙にいこう2015/12/20(日) 11:53:26.21
Sub データ追加()
Dim lastRow As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
If lastRow = 5 Then
Range("B" & lastRow).Value = 1
Else
Range("B" & lastRow).Value = Range("B" & lastRow - 1).Value + 1
End If

Range("A" & lastRow).Value = Range("A1").Value
Range("B" & lastRow).Value = Range("B1").Value
　　　　　　　　　　　　・
　　　　　　　　　　　　・
　　　　　　　　　　　　・（アルファベット全部入れてます）
　　　　　　　　　　　　・
　　　　　　　　　　　　・
Range("Z" & lastRow).Value = Range("Z1").Value
Range("AA" & lastRow).Value = Range("AA1").Value
Range("AB" & lastRow).Value = Range("AB1").Value
End Sub

これでなんとか数値の移動はできてるようなのですが関数は入らないみたいです。
#REF!となっている状態です。
よろしくお願いいたします。
0460名無しさん＠そうだ選挙にいこう2015/12/20(日) 12:08:48.02
>>434
サイトを作成しています。
仕様がコロコロ変わるので、一括で変更できるように他の言語のコード（PHPやJavascript、HTML）を生成しようと思っています。
簡易フレームワークみたいなものです。
・生成されるコードが長い
・$がメタ文字なのでPHPに引っかかってしまう
なので少しでも短くしたいのですが、無理なら諦めます。
0461名無しさん＠そうだ選挙にいこう2015/12/20(日) 12:09:19.60
>>439
ありがとうございます。
0462名無しさん＠そうだ選挙にいこう2015/12/20(日) 12:18:23.71
>>436
webクエリどうこうはマクロの記録でそれなりに取れると思う

並び替えは以下で右にオートフィル
B1=INDIRECT("r"&COLUMN()*2-3&"c1",0)
B2=INDIRECT("r"&COLUMN()*2-2&"c1",0)

>>449
PHPにcrypt関数ってのがあるから、それをvba用に自作すれば良い
「vba　crypt」辺りで検索スレばネット上に落ちてるかもしれん
0463名無しさん＠そうだ選挙にいこう2015/12/20(日) 12:28:01.90
>>452,455
D1=a1&b1
C1=IF(COUNTIF(D:D,A1&"○")>0,"ok","ng")
>>457
俺は分かったけどなー
>>459
よーわからんけど
Range("A" & lastRow).Formula = Range("A1").Formula
これでいいのか
0464名無しさん＠そうだ選挙にいこう2015/12/20(日) 12:28:44.10
>>456
複合じゃなくて復号
質問を見る限り、「推測」とか「関数」の意味もわかってなさそう

暗号化のための関数なんてのは存在しないから作るしかない
平文の内容によっては、何か別の関数を間違った使い方で流用できるケースがあるかもしれない
0465名無しさん＠そうだ選挙にいこう2015/12/20(日) 12:48:31.80
>>457
ごめんなさい。
Ｃ列の「ＯＫ」「ＮＧ」を表示する式を教えて頂きたいです。

Ａ　Ｂ　Ｃ
１　×　ＯＫ
１　×　ＯＫ
１　○　ＯＫ

２　×　ＮＧ
２　×　ＮＧ

入力されているのはＡ列Ｂ列のみです。
Ｃ列は未知数です。
Ａ列１のグループではＢ列に「○」があるのでＡ列１に対応するＣ列は「ＯＫ」表記。
Ａ列２のグループではＢ列に「○」がないのでＡ列２に対応するＣ列は「ＮＧ」表記。
0466名無しさん＠そうだ選挙にいこう2015/12/20(日) 12:56:57.65
>>463
すごい！出来ました！
わかりにくくて申し訳ありませんでした。ありがとうございました。
0467名無しさん＠そうだ選挙にいこう2015/12/20(日) 13:34:11.35
>>463
Sub データ追加6()
Dim lastRow As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
If lastRow = 5 Then
'最初のデータなら1を入力

End If

Range("A" & lastRow).Value = Range("A1").Value
Range("B" & lastRow).Value = Range("B1").Value
Range("C" & lastRow).Value = Range("C1").Value
Range("D" & lastRow).Value = Range("D1").Value
Range("E" & lastRow).Value = Range("E1").Value
Range("F" & lastRow).Value = Range("F1").Value
Range("G" & lastRow).Value = Range("G1").Value
Range("H" & lastRow).Value = Range("H1").Value
Range("I" & lastRow).Value = Range("I1").Value
Range("J" & lastRow).Value = Range("J1").Value
Range("K" & lastRow).Value = Range("K1").Value
Range("L" & lastRow).Value = Range("L1").Value
Range("M" & lastRow).Formula = Range("M1").Formula
Range("N" & lastRow).Formula = Range("N1").Formula
Range("O" & lastRow).Formula = Range("O1").Formula

End Sub
0468名無しさん＠そうだ選挙にいこう2015/12/20(日) 13:36:14.79
教えていただいた関数を入れてみますとM、N、Oの関数は入りますが行が1のまま【=

(I1+J1+K1)/3】になってしまいます。
上記のマクロをそのまま実行するとP、Q列の関数は入ってくれずR～AB列の関数はちゃんと入

ります。たとえばRですと【=IF(Q75="","",100-(100/(1+(P75/Q75))))】行が自動的にちゃん

と最終行に変わっています。R列以降はマクロしてないのにちゃんと入っています。
04694672015/12/20(日) 13:43:20.86
あ、すいません。ちょっと間違えました。（保留）
04704672015/12/20(日) 14:21:48.61
やはり数値の入ってない関数のセルを追加していくのはなんか違うみたいなので
数値だけ追加して関数はあらかじめ全部入れておくということにしてみます。
お騒がせいたしました。
0471名無しさん＠そうだ選挙にいこう2015/12/20(日) 17:53:59.42
アンケート集計をしているのですが、「どの製品を使用しているか」の欄が自由解答になっているのため”製品A”をA’や～Aといったように様々な書き方でデータが作成されてしまっています。
COUNTIF関数で複数条件にしてカウントした場合に重複してしまうのを解消したいのですが、うまいカウント方法はありませんでしょうか？
0472名無しさん＠そうだ選挙にいこう2015/12/20(日) 18:01:16.39
>>471
理論上は (A OR B) - (A AND B) みたいな数式で重複を除くことはできるけど、条件が増えると式がどんどん複雑になる
それ以前にCOUNTIFを使わない方法を考えた方が早い
0473名無しさん＠そうだ選挙にいこう2015/12/20(日) 18:03:15.05
>>471
やはり別の方法のほうが早いですか・・・
エクセル触るのほぼ初めてで調べながら試して入るのですが、上手くいかなくて・・・
0474名無しさん＠そうだ選挙にいこう2015/12/20(日) 18:09:04.58
>>460
"少しでも短くしたい"が理由なら難しいな
VBAでとおもったけど
"最後に変更されたセルのアドレス"を返す
ユーザ定義関数作るのも難儀しそうだし
0475名無しさん＠そうだ選挙にいこう2015/12/20(日) 18:25:17.16
>>471
if(iferror(find("A"),0)+iferror(find("エー"),0)+iferror(find("~A"),0)>0,"1","0")
みたいにするとか
0476名無しさん＠そうだ選挙にいこう2015/12/20(日) 18:27:21.65
>>475は訂正
"A～"や"エー"は目視で調べるしかないけど
if(iferror(find("A"),0)+iferror(find("エー"),0)+iferror(find("~A"),0)>0,"A","0")
if(iferror(find("B"),0)+iferror(find("ビー"),0)+iferror(find("~B"),0)>0,"B","0")
後はCやDでも同じようにして、カウント
合計が合わなければ目視で確認って流れかねぇ
0477名無しさん＠そうだ選挙にいこう2015/12/20(日) 20:37:12.56
>>467

Sub データ追加6()

Range(
0478名無しさん＠そうだ選挙にいこう2015/12/20(日) 20:38:42.90
また途中で切れやがった…
>>467

Sub データ追加6()

Range("A1:AB1").Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)

End Sub
0479名無しさん＠そうだ選挙にいこう2015/12/20(日) 20:52:20.39
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010

Sheet1のA列に次のようなデータがあり、

新山千春：青森市
檀蜜:横手市
大島優子→壬生町
冨永愛※相模原市
ギャル曽根…舞鶴市
イモトアヤコ／伯耆町
仲里依紗/東彼杵町

Sheet2の1行目に次のような形態でコピーするにはどうすればいいでしょうか？
（"｜"はセルの区切りを示しています）

新山千春｜青森市｜檀蜜｜横手市｜大島優子｜壬生町｜冨永愛｜相模原市｜ギャル曽根｜舞鶴市｜イモトアヤコ｜伯耆町｜仲里依紗｜東彼杵町｜
0480名無しさん＠そうだ選挙にいこう2015/12/20(日) 21:01:33.26
>>479
区切り文字を置換してどれか一つにまとめる。
データの区切り一で区切る
C1=+INDIRECT("r"&INT((COLUMN()-1)/2)&"c"&2-MOD(COLUMN(),2),0)
右にオートフィル
コピーして値で貼り付け
0481名無しさん＠そうだ選挙にいこう2015/12/20(日) 22:00:10.07
>>478

ありがとうございます。
マジで助かりました。
0482名無しさん＠そうだ選挙にいこう2015/12/21(月) 19:27:13.66
>>480
さっぱりワカランｗ
0483名無しさん＠そうだ選挙にいこう2015/12/21(月) 19:40:45.97
>>482
こんな感じ。数式の関係上、下から上に読み進めてくれ
http://stamp-uploda.com/src/file1652.jpg
0484名無しさん＠そうだ選挙にいこう2015/12/21(月) 22:31:30.78
>>483
素直に、C1セルに+INDIRECT(・・・　と書いてくれれば混乱しなかったのにｗ
変数に代入するのかと思ったよｗ

ま、取り敢えずできました。
ありがとうございます。
0485名無しさん＠そうだ選挙にいこう2015/12/22(火) 21:56:44.14
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

複数のbookやsheetのデータの最終行のデータを取り出して新しいbookに貼り付ける。
タナカというbookにsheetさくら、sheetひまわり、sheetかえで
ヤマダというbookにsheetゆり、sheetたんぽぽなど
すべてのデータの形式は同じ。
それぞれの最新のデータ1行を抜き出して一つのbookかsheetに一覧にする

全部を一枚のページに一覧にするか、もしできなければ
bookごとにそれぞれのsheetの最新データ一覧を作るか、などできますでしょうか。
この前教えていただいた入力した1行を今度一覧にしたい。

Sub 最新の行を一覧に()

Worksheets Range("A1:AB1").Copy Cells(Rows.Count, 1).End(xlUp).Row

ThisWorkbook・・・
マクロ本見てますがやりたいことが載ってません。
自分の想像だと新しいbookなりsheetなりを開いて
ボタンを押すと一覧が出る。という感じです。
0486名無しさん＠そうだ選挙にいこう2015/12/22(火) 22:49:45.86
>>485
かなり変なコトやろうとしていると思う
そもそもbookにわける必要があるのかどうか？から考えたほうがいいかもな

Sub a()
Set t = ThisWorkbook
'select folder
If 0 Then
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show Then
folder = .SelectedItems(1)
End If
End With
End If
folder = "C:\Users\a\Desktop\tmp\excel"

Set FSO = CreateObject("Scripting.FileSystemObject")
For Each f In FSO.GetFolder(folder).Files
Set b = Workbooks.Open(f.Path)
For Each w In b.Worksheets
r = w.Range("A1000000").End(xlUp).Row
w.Rows(r & ":" & r).Copy
t.Activate
Range("A1000000").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Next
b.Close SaveChanges:=False
Next f
Set FSO = Nothing
End Sub
0487名無しさん＠そうだ選挙にいこう2015/12/23(水) 00:47:31.77
>>486
普通に在庫管理などで用途あると思うが
月毎にシート分けて、半期毎にブックを変えるみたいな使い方は、割と見かけるし

自分が効率よくないと思おうがそうする決まりになってるなら、順守せざるを得ないこと多いんだし
0488名無しさん＠そうだ選挙にいこう2015/12/23(水) 00:57:14.01
>>487
それもそうだな
大昔、そういうのを一掃したのを忘れてたよ
0489名無しさん＠そうだ選挙にいこう2015/12/23(水) 01:43:49.47
教えて下さい
あるセルに例えば、=A1+A2と式が入っていたとき、実行すると隣りのセルに、3+4=7のように数式として出てくるマクロが欲しいのですが。
足し算など四則演算ができれば十分です。ただし長い四則も表現できるようにカッコも入るようにお願いします。
0490名無しさん＠そうだ選挙にいこう2015/12/23(水) 01:47:59.63
A1とA2にナニが入ってるの？

A1+A2
→
3+4=7
は意味がわからない
0491名無しさん＠そうだ選挙にいこう2015/12/23(水) 03:34:09.21
This is a pen. というtext文章を読み込んで、
this
is
a
pen
という縦のセルに入力する、とうことができるでしょうか？
0492名無しさん＠そうだ選挙にいこう2015/12/23(水) 04:06:13.47
>>491
スペースでSplit後
.WorksheetFunction.Transpose
で行列変換してセルに入れる
例)
A = "This is a pen"
B = Split(A, " ")
Range("A1").Resize(UBound(B) + 1) = Application.WorksheetFunction.Transpose(B)
0493名無しさん＠そうだ選挙にいこう2015/12/23(水) 06:23:54.46
>>490
A1に3、A2に4が入っていた場合です。
0494名無しさん＠そうだ選挙にいこう2015/12/23(水) 08:27:28.58
=a1&¨=¨&みたいな感じでつなぐw
0495名無しさん＠そうだ選挙にいこう2015/12/23(水) 08:28:45.82
VBAいらないなｗ
0496名無しさん＠そうだ選挙にいこう2015/12/23(水) 08:49:19.14
>>489
やりたいことをそのままVBAで実装すればいいだけ
ググればたくさんヒットするよ
0497名無しさん＠そうだ選挙にいこう2015/12/23(水) 09:21:44.82
489です。
どこのサイトにありますか。
0498名無しさん＠そうだ選挙にいこう2015/12/23(水) 09:25:57.67
>>497
ググれクズ
0499名無しさん＠そうだ選挙にいこう2015/12/23(水) 11:12:28.62
>>489
基本的には自作するしか無い
マクロ4にEVALUATE関数があるから
”3+4”で7は返せるぐらい
0500名無しさん＠そうだ選挙にいこう2015/12/23(水) 11:18:15.64
関数の途中で"(ダブルコーテーション)の文字列を入れたい場合はどうすればいいですか？
"""だとうまくいきません。
0501名無しさん＠そうだ選挙にいこう2015/12/23(水) 11:21:25.11
a = b & """" & c
0502名無しさん＠そうだ選挙にいこう2015/12/23(水) 11:36:12.88
>>489
VBAで，標準モジュールを挿入して
----------------------------------------------
Option Explicit

Function F_Suusiki(R As Range) As String
　　Dim d, i, a

　　F_Suusiki =
05035002015/12/23(水) 11:36:49.51
>>501
できました。あなたは命の恩人です。心よりお礼申し上げる！
0504名無しさん＠そうだ選挙にいこう2015/12/23(水) 11:38:30.47
>>489
VBAで，標準モジュールを挿入して

Option Explicit

Function F_Suusiki(R As Range) As String
　　Dim d, i, a

　　F_Suusiki = ""
　　d = Mid(R.Formula, 2)

　　For i = 1 To Len(d)
　　　　a = Mid(d, i, 1)

　　　　Select Case a
　　　　　　Case "(", ")", "0" To "9"
　　　　　　Case "+": a = "＋"
　　　　　　Case "-": a = "‐"
　　　　　　Case "*": a = "×"
　　　　　　Case "/": a = "÷"
　　　　End Select

　　　　F_Suusiki = F_Suusiki & a
　　Next

　　F_Suusiki = F_Suusiki & "=" & R
End Function


A1に3，B1に5，C1に「=A1+B1*2」,D1に「=F_Suusiki(C1)」と入力。

後は，A1とB1の値は，実際のセルの値を取得して文字列をすげ替えてくれ。途中までやってたけど，腹減ったので中断する。（後は任せた！）
0505名無しさん＠そうだ選挙にいこう2015/12/23(水) 11:45:32.66
>>489
VBAで，標準モジュールを挿入して

Option Explicit

Function F_Suusiki(R As Range) As String
　　Dim d, i, a

　　F_Suusiki = ""
　　d = Mid(R.Formula, 2)

　　For i = 1 To Len(d)
　　　　a = Mid(d, i, 1)

　　　　Select Case a
　　　　　　Case "(", ")", "0" To "9"
　　　　　　Case "+": a = "＋"
　　　　　　Case "-": a = "‐"
　　　　　　Case "*": a = "×"
　　　　　　Case "/": a = "÷"
　　　　End Select

　　　　F_Suusiki = F_Suusiki & a
　　Next

　　F_Suusiki = F_Suusiki & "=" & R
End Function


A1に3，B1に5，C1に「=A1+B1*2」,D1に「=F_Suusiki(C1)」と入力。

後は，A1とB1の値は，実際のセルの値を取得して文字列をすげ替えてくれ。途中までやってたけど，トイレに行きたいので中断する。（後は任せた！）
0506名無しさん＠そうだ選挙にいこう2015/12/23(水) 12:10:05.87
>>486
ありがとうございます。
難しいですがやってみます。
1枚のシートが複雑な関数やらがいっぱいの表なので
どうしても細かく分類されます。
助かります。
0507名無しさん＠そうだ選挙にいこう2015/12/23(水) 12:22:41.80
かなりめんどくさいと思ったけど、正規表現でアルファベットと数字を抜き出して、
それをセルから取得した数値に置換すれば意外と楽かもしれない
0508名無しさん＠そうだ選挙にいこう2015/12/23(水) 13:53:27.71
>>505
ありがとうございます

乗数の場合、
　Case "^": a = "**"
でいいのですか。
0509名無しさん＠そうだ選挙にいこう2015/12/23(水) 14:42:07.62
>>508
四則演算＝加減乗除さえ出来りゃ良いとの事だったので，べき乗まで考えてなかった～～～。

本当は，
Case else: a = F_Value(Mid(d,i) で，別関数にてセル参照の値を求めさせようとしてたんだけど，
For i = 1 To Len(d) ループ内で，iを余分にずらさないといけなくなってやめた。

要は，d = Mid(R.Formula, 2) の dを トークンとかでばらばらにして，最後にまとめて合体させたほうが良かったかな～～～。
0510名無しさん＠そうだ選挙にいこう2015/12/23(水) 17:31:12.07
>>489
こうゆうのどうですか?
https://friendpaste.com/7ej54HiINA0y3ofBNlrch7

A1セルに数式が入ってるとして
=GETFormulaStr(A1)

書式
GETFormulaStr(変換セル [,強制計算])
　変換セル 必ず指定します。 数式が入力されている単一セルを指定します
　強制計算　　省略できます。　(既定値:False)
　　　　　　　　　False　セル書式が文字列の時は計算しません
　　　　　　　　　True 　セル書式が文字列の時も計算します(常に再計算される"揮発性関数"になります)

変換可能な数式
　1) =で始まって + - * / ( ) ^ とセル参照,数値 の組み合わせのみ(関数等は不可)
　2)セル参照はシート指定のない参照である事(他シート参照は不可)
0511名無しさん＠そうだ選挙にいこう2015/12/23(水) 20:17:16.22
セルの文字コードを検索して、特定の文字コードだと、違う文字コードに変換する関数とかありませんか？
0512名無しさん＠そうだ選挙にいこう2015/12/23(水) 21:05:23.42
>>511
｢エクセル 文字コード 変換 関数｣で検索
0513名無しさん＠そうだ選挙にいこう2015/12/23(水) 21:09:56.28
>>485
>bookごとにそれぞれのsheetの最新データ一覧を作るか、などできますでしょうか。
のケースで、集計元ブックで実行して、そのブックにまとめシートを作成

Sub 最新の行を一覧に()
Dim BookName As String, WS As Worksheet, i As Long

BookName = Split(ThisWorkbook.Name, ".")(0)

On Error Resume Next
Sheets(BookName).Select
On Error GoTo 0

If ActiveSheet.Name <> BookName Then
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = BookName
End If

For i = 1 To Sheets.Count - 1
Worksheets(i).Range("A1:AB1").Copy Sheets(BookName).Cells(Rows.Count, 1).End(xlUp).Offset(1, 1)
Sheets(BookName).Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = Worksheets(i).Name
Next i

End Sub
0514名無しさん＠そうだ選挙にいこう2015/12/23(水) 21:29:31.54
>>511
一度ヘルプで関数全部見ろ
そんなにボリュームないからすぐわかる
0515名無しさん＠そうだ選挙にいこう2015/12/24(木) 07:45:42.50
関数なんて、使いたい機能の関数がないかネットで調べてなければ諦めるで、ヘルプなんて見たことないな

結果、無駄の多い数式でメガ単位のファイルを量産しているがｗ

自分で調べてわからなかったものをここで質問した方が効率いいのは確かかな
0516名無しさん＠そうだ選挙にいこう2015/12/24(木) 07:59:28.84
いや、関数は全部読んでおいたほうがいいよ
一度見ておけば思い出すことはできる
そのほうが結果的に早い
0517名無しさん＠そうだ選挙にいこう2015/12/24(木) 08:20:16.08
これ一生使わないわって関数もあるから
一回眺めるくらいはしてもいい
0518名無しさん＠そうだ選挙にいこう2015/12/24(木) 11:14:33.54
【1 OSの種類 　 　 　 　 .】 Windows2013
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

今、セル内を編集中なのはどのエクセルなのかを
調べる方法はありますか？
0519名無しさん＠そうだ選挙にいこう2015/12/24(木) 12:29:47.20
>>518
ActiveWorkbook　Activesheet　ActiveCell　を組み合わせたらどうですか？
単にセルを選択した状態なのか、編集中（縦棒の点滅中）かも調べる必要があるの？
0520名無しさん＠そうだ選挙にいこう2015/12/24(木) 13:07:56.72
>>492

ありがとうございます。
ちょっとやっってみます。
05215182015/12/24(木) 14:18:32.98
>>519
セルの中を編集中なのを調べたいですね

エクセルを開こうとして開かれなかったとき
大抵は誰かがセル内で編集中なのが原因なので
その犯人を見つけたい
0522名無しさん＠そうだ選挙にいこう2015/12/24(木) 15:41:25.41
>>521
これとか？
http://www.moug.net/tech/exvba/0060070.html
05235182015/12/24(木) 16:23:48.42
>>522
誰かが、っていうのは人じゃなくて
複数エクセル開いているうちのひとつのエクセルのことね

エクセルはセルの中にカーソルがある状態で
別のエクセルを開けないんですわ
0524名無しさん＠そうだ選挙にいこう2015/12/24(木) 20:13:36.60
>>505
実行しましたところ、A1+A2=7のように左辺がセルになってしまいました。
左辺も具体的な数字として3+4=7のように表示したいのですが可能ですか
0525名無しさん＠そうだ選挙にいこう2015/12/24(木) 21:14:12.46
>>523
そんなもんメモ帳に編集中の式をコピペして全部消してから他のファイルを開いて
元のブックに戻って貼り付ければいいんでは？
セルの位置は動かないから、すぐに再開可能だ
0526名無しさん＠そうだ選挙にいこう2015/12/25(金) 06:36:19.49
>>524
だから、セル参照の部分を値にするのは、自分でやっとくれって書いてる。
0527名無しさん＠そうだ選挙にいこう2015/12/25(金) 08:41:15.87
>>526
やり方がわからんです
0528名無しさん＠そうだ選挙にいこう2015/12/25(金) 08:44:52.21
>>527
今、検索したら、光の速さで答が見つかりましたが？
http://www3.tokai.or.jp/excel/kansu/concatenate.htm
0529名無しさん＠そうだ選挙にいこう2015/12/25(金) 18:25:06.40
作業した時間を出したくて
a1が空白でなければnow（）
a100が空白でなければnow（）と作ってみたのですが
両方とも同じ時間に…

関数だけで固定で時間を切り取ることって出来ないんでしょうか？
0530名無しさん＠そうだ選挙にいこう2015/12/25(金) 18:53:27.51
>>529
自動計算を止める
0531名無しさん＠そうだ選挙にいこう2015/12/25(金) 19:36:14.03
やっぱりそうですよね
oh no! って感じです
0532名無しさん＠そうだ選挙にいこう2015/12/25(金) 20:08:35.02
時刻入力しとけばええやん
0533名無しさん＠そうだ選挙にいこう2015/12/25(金) 21:13:31.07
パスワードで保護したシートとかで何時に入力したみたいな使い方を想定しているんだろうな
本当にその時間に入力したのかをチェックするために
素直にＶＢＡ使った方がいいよ
0534名無しさん＠そうだ選挙にいこう2015/12/25(金) 22:56:37.80
>>510
ありがとうパーフェクトです。
0535名無しさん＠そうだ選挙にいこう2015/12/25(金) 23:06:37.92
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 少々
【4 VBAでの回答の可否】 可

E列～O列がグループ化されており、
http://uproda.2ch-library.com/9112048IP/lib911204.jpg

a = 5、b = 7 だったら、E列～G列のグループ化を解除し、
http://uproda.2ch-library.com/911205XCJ/lib911205.jpg

残りのグループを[+]にして非表示にするマクロを教えてください。
http://uproda.2ch-library.com/9112066wV/lib911206.jpg

マクロの自動記録でやったら、これしか記録されませんでした・・・
Sub Macro1()
　　Columns("E:G").Select
　　Selection.Columns.Ungroup
End Sub
05365352015/12/25(金) 23:11:25.43
535の補足
変数aは 5～15、変数bは a + 0～5で、一度グループから解除されたら再度グループ化はしません。
0537名無しさん＠そうだ選挙にいこう2015/12/26(土) 04:51:44.82
>>535
If a = 5 And b = 7 Then
　　Columns("E:G").Ungroup　' 部分的にグループ解除
　　Columns("H:N").Hidden = True　' グループ全体を非表示にすると自動的に折り畳まれる
End If
0538名無しさん＠そうだ選挙にいこう2015/12/26(土) 11:27:03.19
>>513
ありがとうございます。
0539名無しさん＠そうだ選挙にいこう2015/12/26(土) 21:28:58.22
印刷プレビューで写ってる文字が印刷すると切れて見えなくなってるってのはこれ、どのエクセルでもどの印刷機でも生じる現象なの？
すごく不便
0540名無しさん＠そうだ選挙にいこう2015/12/26(土) 23:43:21.07
>>539
プレビューと印刷結果が同じにならないのは、Excelのバージョンを変えてもプリンターを変えても直りません
05415352015/12/27(日) 02:17:56.64
>>537
ありがとうございます。
ただ、最終的にはこんな感じで表示させたいんですが、
http://uproda.2ch-library.com/9112066wV/lib911206.jpg
部分的にグループ解除したE～G列が非表示のままです。

Sub test1()
　a = 5
　b = 7
　Range(Columns(a), Columns(b)).Ungroup ' 部分的にグループ解除
　Columns("H:N").Hidden = True ' グループ全体を非表示にすると自動的に折り畳まれる
End Sub
0542名無しさん＠そうだ選挙にいこう2015/12/27(日) 03:39:19.41
>>535 >>541
こんな感じ?

Sub test()
a = 5
b = 7
If a > b Then Exit Sub
'オリジナルグループ
Set OrgGroupCol = Columns("E:N")
'解除範囲
Set UnGroupCol = Range(Columns(a), Columns(b))
'解除範囲をオリジナルグループ内に限定
Set UnGroupCol = Intersect(OrgGroupCol, UnGroupCol)
If UnGroupCol Is Nothing Then Exit Sub
'オリジナルグループを展開
If OrgGroupCol.Hidden Then OrgGroupCol.Resize(, 1).ShowDetail = True
'指定された解除範囲グループ解除
UnGroupCol.Ungroup
'前半を折り畳み
With UnGroupCol.Resize(, 1).Offset(0, -1).Columns
　　If Not Intersect(OrgGroupCol, .Cells) Is Nothing Then .ShowDetail = False
End With
'後半を折り畳み
With UnGroupCol.Resize(, 1).Offset(0, UnGroupCol.Columns.Count).Columns
　　If Not Intersect(OrgGroupCol, .Cells) Is Nothing Then .ShowDetail = False
End With
End Sub
0543名無しさん＠そうだ選挙にいこう2015/12/30(水) 14:37:08.22
質問させてください。
Excelを使って金銭管理をしています。
下図のように「現金」勘定を入力するごとに
残額を増減させるような関数の使い方は御座いませんでしょうか？

http://up3.viploader.net/ippan/src/vlippan340342.jpg
VLOOKUPとSUMを試してみましたが挫折してしまいました。

ＯＳ：Windows8.1
Excel：Excel2007
VBAの使用可否：ＶＢＡは勉強中ですが、
まだ初歩程度の知識しかありませんので、
できればＶＢＡを使用せずに解決したいと考えています。
0544名無しさん＠そうだ選挙にいこう2015/12/30(水) 14:48:39.26
>>543
sumif(b:b,"現金",c:c)-sumif(d:d,"現金",e:e)
F1あたりに置いたほうがいい
0545５４３2015/12/30(水) 15:31:03.23
>>544
解決しました！
誠にありがとうございました。
0546名無しさん＠そうだ選挙にいこう2015/12/30(水) 23:59:12.77
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2016
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

原稿のほんの一部をアップしただけなのですが、下記の画像のものを
Excelで作成してくれと頼まれたのですが、
http://www12.atpages.jp/~nikukei/wupload002/data/1451519261.jpg

これと全く同じものをExcelだけで作成することは可能なのでしょうか？
そして、それは簡単に出来るものなのでしょうか？
1行目の「クラス」、「氏名」の文字が縦書きになっていて、3行目の列幅とは
明らかにズレているのですが…

そもそもこれは、元の原稿がExcelで作成されたものと思われますか？
それともWordで作成された可能性が高いでしょうか？
Microsoft officeのアプリにうといもので、よくわからないのですが…
0547名無しさん＠そうだ選挙にいこう2015/12/31(木) 00:05:36.63
>>546
全く同じの全くがどれぐらいなのかわからん。
本当に全く同じでいいなら、この画像をそのままエクセルに貼り付ければ終わり。

もしセルや罫線を使う必要があるなら角丸とかダルいのでパワーポイントを使ったほうがいいだろう
多分一番いいのはイラストレーターだけど使えないと思う
0548名無しさん＠そうだ選挙にいこう2015/12/31(木) 00:16:38.69
>>546
オートシェイプでやれば面倒なことは全て可能！
0549名無しさん＠そうだ選挙にいこう2015/12/31(木) 00:20:58.16
>>546
同じようなものをエクセルで作ってくれってことじゃないの
注文主にどんな内容の依頼なのか確かめたほうが
05505462015/12/31(木) 00:30:01.60
ありがとうございます。
やっぱり出来ないんですね。
似たようなものが作れても、角丸さえ面倒だと。
イラストレーターだったら作ると言って断っておいて正解でした。
作成時間とギャラが割りに合わない。
イラストレーター制作だと割に合う。
0551名無しさん＠そうだ選挙にいこう2015/12/31(木) 00:35:06.45
あら、webの人だったのかな？失礼しました
エクセルで凝った印刷物を作るのはほんとめんどいよ
事務用の帳票なら別にいいんだけどねぇ
0552名無しさん＠そうだ選挙にいこう2015/12/31(木) 01:00:15.15
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

http://i.imgur.com/FvodxJS.jpg
この画像のような横3×縦3ブロックに別れたデータがあります。
（1ブロックごとの縦横の数は数百行・数十行単位ですが簡略してあります。）

この画像のような特定ブロックの縦1列のみを簡単に範囲指定できるショートカットはないでしょうか？
できれば画面をスクロールしたくないので『Ctrl』+『*』みたいにパッと範囲指定できるショートカットを希望です。

『Ctrl』+『*』でブロック単位の範囲選択はできますが、縦1列のみ選択したいです。
『Ctrl』+『↑』で範囲選択の一行目まで行き、『Ctrl』+『Shift』+『↓』をするしかないのでしょうか？
0553名無しさん＠そうだ選挙にいこう2015/12/31(木) 01:19:06.16
>>552
『Ctrl』+『*』　→　ｃｔｒｌ＋shift+←
もしくは
ｃｔｒｌ＋shift押しっぱなしで、「：」　、「←」

まぁ、よほど使うならマクロ＋ショートカットキーに登録した方がいいような気もする
05545522015/12/31(木) 01:42:37.00
>>553
それだとブロックの左端固定になります。
画像のように任意の列を選択したいんです。
0555名無しさん＠そうだ選挙にいこう2015/12/31(木) 01:47:25.81
546は既に解決済（？）だが、なんでクライアントがエクセルで頼んだのか理解に苦しむｗ
0556名無しさん＠そうだ選挙にいこう2015/12/31(木) 01:53:16.92
>>546
こんなのパッパッと作れるだろ！
役所でよくあるわ。学校とかでも。
0557名無しさん＠そうだ選挙にいこう2015/12/31(木) 02:08:30.12
>>554
多分なさそ～
マクロ使えば楽勝なんだけど
0558名無しさん＠そうだ選挙にいこう2015/12/31(木) 05:14:13.48
>>552
ショートカットキーはヘルプに記載されていますよ
0559名無しさん＠そうだ選挙にいこう2015/12/31(木) 09:30:21.97
>>555
xlsx形式がマクロを許可しないというのを誤解して
ウィルス添付できない形式だと思い込んでいる人が一定数いると聞いたことある
結果、画像ファイルだとセキュリティ上危険だけど
xlsxならセキュリティ上安全と認識しているんだと
05605522015/12/31(木) 09:47:05.02
>>558
その中のどれを使えばいいですか？
0561名無しさん＠そうだ選挙にいこう2015/12/31(木) 09:49:40.49
「セキュリティの関係上、実行ファイルの拡張子EXEは添付できません（自動削除）。
一度別の拡張子へ変更してから添付し、メール本文へ、
拡張子を戻して実行するように説明文を入れてください」

ってうちのIT部からお達しきた。これでセキュリティに配慮したことになるの？
0562名無しさん＠そうだ選挙にいこう2015/12/31(木) 09:55:26.40
実行ファイルだと気づかずに開くことはなくなる
05635462015/12/31(木) 09:56:49.47
>>556
じゃあ、さっさと作れやクソが！
0564名無しさん＠そうだ選挙にいこう2015/12/31(木) 09:58:27.74
>>561
その説明で具体的なやり方を理解できるような人ならセキュリティ対策ぐらいわきまえてるだろ

すべて懇切丁寧にＩＳが説明してるならなんとも言えないが
0565名無しさん＠そうだ選挙にいこう2015/12/31(木) 11:25:19.77
>>555
いや、クライアントが塾か学校の先生で、エクセルしか持ってないからだよ。
雛型だけ印刷会社に作ってもらって、学校か家のエクセルで、中のデータを自分で
好きに入力したいということ。
0566名無しさん＠そうだ選挙にいこう2015/12/31(木) 12:06:02.21
そういや上で出てた角丸で枠を作り、中身は入力する場合はどうやって作成する？
オートシェイプとセルのリンクが一番楽だろうか
0567名無しさん＠そうだ選挙にいこう2015/12/31(木) 12:09:11.52
>>561
一応はなるだろう
ちなみいにgmailでもexeの添付はできない。圧縮してもダメ
0568名無しさん＠そうだ選挙にいこう2015/12/31(木) 12:24:47.44
学校の先生とか、ケチるくせにクオリティの高いものを求めるのが嫌。
クオリティの高いものを作りたいんなら、高いソフトを使わないと無理ですよ、と言いたい。
0569名無しさん＠そうだ選挙にいこう2015/12/31(木) 13:12:32.17
>>560
ヘルプの日本語読めないのに2chの日本語は読めるの？
0570名無しさん＠そうだ選挙にいこう2015/12/31(木) 13:40:34.79
>>552
マクロでできる
キーマクロ使って
そのマクロの実行はショートカットに
割り振ることができる
0571名無しさん＠そうだ選挙にいこう2015/12/31(木) 13:51:18.93
>>561
EXEファイルを添付するバカがどこにいるんだよｗ
お前のところのIT部は糞だな
通常は圧縮ファイル（ZIP、RAR、他）だと教えてやれ

お前のその程度の認識だと、年明けで出社してPCの電源を入れたら
すぐにメール受信しそうだが止めとけ
0572名無しさん＠そうだ選挙にいこう2015/12/31(木) 14:20:30.55
>>571
だからzipにしても意味ないって
圧縮ファイルの中身まで検知される
0573名無しさん＠そうだ選挙にいこう2015/12/31(木) 14:26:51.06
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 超初心者
【4 VBAでの回答の可否】 できれば否

アンケートの集計をしてるのですが、列、行ともに複数回答がある場合いずれか当てはまる所にカウントするというのは可能ですか？

（例）
※年代、果物はそれぞれ1列にカンマ区切りで回答が文字列で入ってます。

回答
1.年代:10代 果物:りんご
2.年代:10代,20代 果物:りんご,なし

年代 りんご なし
10代 2 1
20代 1 1

こんな感じです。よろしくお願いします。
0574名無しさん＠そうだ選挙にいこう2015/12/31(木) 14:38:22.22
>>573
こんなかんじ。
http://www.dotup.org/uploda/www.dotup.org679292.png
B2=IFERROR(FIND(B$1,$A2),0)
G2=COUNTIF(B:B,">0")

B-Eは作業列
G-Jでカウント

この場合、作業列は使えるだけ使ったほうが良いと思う。一切まとめようと考えないほうがいい。
あと、G-Jは別シートにすれば項目の増加に簡単に対応できるから、項目が常に増えるならシートわけたほうがいいかも
0575名無しさん＠そうだ選挙にいこう2015/12/31(木) 14:46:57.89
>>574
ありがとうございます！
実際のデータは列によっては5項目くらいあるので別シートに分けようと思います(^_^;)

助かりました！
0576名無しさん＠そうだ選挙にいこう2015/12/31(木) 15:08:54.62
>>571
この前うちの職場に来たメールはexe形式だったぞ

親会社が問題起こしたからか最近やたらとウィルスメールが増えた関係で
にわかがやっているのかもしれないが
0577名無しさん＠そうだ選挙にいこう2015/12/31(木) 21:48:58.41
>>572
そういう意味じゃねーよ、バカｗ
セキュリティで問題視するのは送信よりも受信だよｗ
海外（特に中国、東南アジア）と取引してたら毎日のようにウィルス付のメールが来るよｗ
で、561の会社のIT部は・・・って話だｗ
0578名無しさん＠そうだ選挙にいこう2015/12/31(木) 21:57:59.54
>>577
来ませんが…
0579名無しさん＠そうだ選挙にいこう2015/12/31(木) 22:08:48.48
2社の経理していて、両方共中韓台湾辺りと取引あるけど、別に来ないかなぁ
週一ぐらいでxx銀行を騙ったメールが「貴様の口座が危険です！至急パスワードを送信して下さい！」ってのが来るぐらい。
0580名無しさん＠そうだ選挙にいこう2015/12/31(木) 22:12:08.05
そんな難しい話じゃなくてうっかりダブルクリックしてウイルス実行しないように
拡張子を変えるワンクッションおくっていうことだけ
あなたは成人ですかＹｅｓってボタンおすようなもの
0581名無しさん＠そうだ選挙にいこう2015/12/31(木) 23:00:46.53
>>573

<Sheet1>

　　　　　　A
1　1.年代:10代 果物:りんご
2　2.年代:10代,20代 果物:りんご,なし
2　3.年代:20代 果物:なし


<Sheet2>

　　A　　　B　　C
1　年代 りんご なし
2　10代　　　2　　1
3　20代　　　1　　2

B2セルに =COUNTIF(Sheet1!$A:$A,"*"&$A2&"*"&B$1&"*")
他のセル(B3,C2,C3)はB2セルをコピペ
0582名無しさん＠そうだ選挙にいこう2015/12/31(木) 23:05:06.01
Sheet1の最後を3行目に直すの忘れた

2　3.年代:20代 果物:なし
　　　　↓
3　3.年代:20代 果物:なし
0583名無しさん＠そうだ選挙にいこう2016/01/01(金) 01:41:48.00
a1=iferror(na(),"あけおめ")
0584名無しさん＠そうだ選挙にいこう2016/01/01(金) 07:26:42.35
>>580
説明文を定型文としてこれをコピペしてくださいもありだな
文面が違う場合は、おかしいと違和感が持てる 👀
Rock54: Caution(BBR-MD5:68f2ed3dc652fce4c9169aaf2a727f10)
0585名無しさん＠そうだ選挙にいこう2016/01/01(金) 17:51:57.07
【1 OSの種類 　 　 　 　 .】 Windows8.1
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

http://www.dotup.org/uploda/www.dotup.org681703.jpg
お願いします
時間計算でD列の合計値を出すことは可能でしょうか？
（10行以上項目は増えません）
0586名無しさん＠そうだ選挙にいこう2016/01/01(金) 18:18:43.22
>>585
sum()辺りで足し算して、書式設定を時間に買えるだけ
0587名無しさん＠そうだ選挙にいこう2016/01/01(金) 19:23:12.55
>>585
=SUM(D3:D11)
0588名無しさん＠そうだ選挙にいこう2016/01/01(金) 20:11:05.04
>>585
B2の時刻とB11の時刻の差だよね
0589名無しさん＠そうだ選挙にいこう2016/01/01(金) 20:14:04.93
>>586
>>587
やってみたんですが正しく表示されません。
表示設定を時刻にしても「0：00」となります
ユーザ設定で[h]:mmや0.0など色々やってみたんですが変わりありませんでした
0590名無しさん＠そうだ選挙にいこう2016/01/01(金) 20:31:48.36
>>589
D列が文字列ですべて0ってことでわ
0591名無しさん＠そうだ選挙にいこう2016/01/01(金) 20:45:08.38
>>585

=SUM(C3:C11)-COUNT(C3:C11)
0592名無しさん＠そうだ選挙にいこう2016/01/01(金) 21:05:27.32
>>589
あぁごめんD列文字列になってんのか
B11-B2じゃあかんの？
書式設定はもちろん時刻で
05935852016/01/01(金) 21:05:51.32
>>591
できました！本当にありがとうございます。
よく理解できていませんがCOUNTで日数(日付？)の部分を除外しているって
ことなんですかね
0594名無しさん＠そうだ選挙にいこう2016/01/01(金) 21:08:34.36
>>589
ブックをアップしてみて
0595名無しさん＠そうだ選挙にいこう2016/01/01(金) 21:12:01.48
>>593
シリアル値が24時間で1なので、時間の合計から日数分引いただけです

但しこれがマイナスになる場合は、D列の計算式のように
マイナス判定しないとだめですね
0596名無しさん＠そうだ選挙にいこう2016/01/01(金) 21:12:07.79
>>592
そうすると「01/09　05：16」と表示されるんですが
01/09の部分を取り除きたかったんです。
検討していただき有難うございました。
0597名無しさん＠そうだ選挙にいこう2016/01/01(金) 21:14:37.54
>>595
勉強になります。
マイナスの方はなんとかできそうです。
有難うございます。
0598名無しさん＠そうだ選挙にいこう2016/01/01(金) 21:32:13.85
>>596
いや、だから日付じゃなく時刻にする
0599名無しさん＠そうだ選挙にいこう2016/01/02(土) 16:47:56.30
エクセルで「F1」キーを抜いたほうがいい理由
http://potato.2ch.net/test/read.cgi/bizplus/1451639201/
ワロタ
0600名無しさん＠そうだ選挙にいこう2016/01/02(土) 18:46:22.66
>>599
まぁネタだと思うが、巨額の金を扱う部門がエクセルで計算してるのは嘘だと思いたい
0601名無しさん＠そうだ選挙にいこう2016/01/02(土) 19:38:26.43
2007とかですら、11桁の計算でエラーになるぐらいだもんな
最新バージョンにはするにしてもExcelでやるのはネタだろうね
0602 【ぽん吉】 2016/01/02(土) 19:43:12.08
巨額の金がいくらなのかは個人によって差があると思うけど、
Excel2003で百万円単位で計算してるよ。
んなもん、ザラにあるだろ？
0603名無しさん＠そうだ選挙にいこう2016/01/02(土) 19:53:18.88
メガ円ってやつね
0604名無しさん＠そうだ選挙にいこう2016/01/02(土) 19:56:08.88
>>602
昔証券会社に務めていた時は全て専用のシステムで取り扱ってた。知る限り100円～100億円ぐらい。
営業の利益を出して計算する時はデータベースから引っ張って、アクセスで加工した表で話してたよ。
エクセルは一切使わなかった。唯一使ったのは忘年会の案内。俺がワード使えなかったからな。

ちなみに俺は新人の時に10億円間違えてめっちゃ上司が怒られてたわ
0605名無しさん＠そうだ選挙にいこう2016/01/02(土) 20:24:28.78
>>604
くっだらない
面白いと思ってるなら死ね
0606名無しさん＠そうだ選挙にいこう2016/01/02(土) 20:37:26.54
まあまあ　妄想だから
0607名無しさん＠そうだ選挙にいこう2016/01/02(土) 20:48:18.64
>>605
http://stamp-uploda.com/src/file1688.jpg
これみても面白く無いやろ
ほんとだろうが嘘だろうが、ハハハと笑ってすますほうが方が2chの醍醐味やで
さすがに10億の損失は証拠ないけどなｗ
0608名無しさん＠そうだ選挙にいこう2016/01/02(土) 20:54:18.68
>>607
俺が言い過ぎた
死ぬなよ
ハハハ
0609名無しさん＠そうだ選挙にいこう2016/01/02(土) 20:58:53.45
>>608
最初に行ったけど、責任を取るのは上司の上司で、怒られるのは上司。俺は別の理由でやめている。
いやー、あの時の営業+上司の顔は・・・ワロタｗｗｗ
0610名無しさん＠そうだ選挙にいこう2016/01/02(土) 21:25:33.10
気持ち悪いな
0611名無しさん＠そうだ選挙にいこう2016/01/02(土) 21:31:56.16
証券会社でも扱うのは銭単位なんだけどなｗ
新年早々、無知を晒してバカじゃねーのｗ
0612名無しさん＠そうだ選挙にいこう2016/01/02(土) 21:32:01.28
専用システム使って10億円間違っとか能無しにも程があるwww
0613名無しさん＠そうだ選挙にいこう2016/01/02(土) 21:45:35.88
百万単位はさすがに俺自身エクセル2007でいろいろやってるけど
（専用システムはアクセスだが固定化されてて
ISに金を払うぐらいなら自力でエクセルで対応しているともいう）

流石に投資とかの相談でエクセルで提示されたらちょっと信用していいか
眉に唾を付けたくはなるかな
0614名無しさん＠そうだ選挙にいこう2016/01/02(土) 22:26:36.46
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
エクセル2016ってどんな感じですか？
乗り換えたほうがいいでしょうか
0615名無しさん＠そうだ選挙にいこう2016/01/02(土) 22:36:31.27
>>614
こうゆう　お試し版があるから利用してみては?
https://products.office.com/ja-jp/try
0616名無しさん＠そうだ選挙にいこう2016/01/02(土) 22:38:50.54
>>614
絶対乗り換えたほうがいいです
0617名無しさん＠そうだ選挙にいこう2016/01/02(土) 22:41:47.07
>>615>>616
ありがとうございます。無料とは言いがたい形態でした

最初の月のサブスクリプションは無料ですが、お支払いに関する情報の入力が必要になります。
無料試用期間終了後、その時点での価格 (変更される場合があります) と消費税が課金されます。 試用期間中に office.com/MyAccount でサブスクリプションをキャンセルすると、費用は発生しません。
06186142016/01/02(土) 22:51:19.54
【4 VBAでの回答の可否】 可

VBAで回答できるﾔｼはいねーのか?
06196152016/01/02(土) 22:55:57.12
一瞬考えたけど　無理っすwww
0620名無しさん＠そうだ選挙にいこう2016/01/02(土) 23:00:23.06
MsgBox "2種類いる。やりたいことやっちゃう人とやらない人。やっちゃえおっさん。"
0621名無しさん＠そうだ選挙にいこう2016/01/02(土) 23:22:24.54
>>614,617
特にいい点は無かった
無料でアップグレード出来るならともかく、有料でアップグレードする理由はない
0622 【大凶】 2016/01/03(日) 00:14:02.64
11桁の計算でエラーになる事例ってある？
0623名無しさん＠そうだ選挙にいこう2016/01/03(日) 00:22:44.97
桁数が増え過ぎたら色々考えたほうがいいと思う
そいういう事例はそうそう起きないので、まず考えなくていいかと
0624名無しさん＠そうだ選挙にいこう2016/01/03(日) 00:30:00.10
>>614
2010なら2016と同居できるので、両方とも使ってみて、最終的に気に入った方を残すとか？
0625名無しさん＠そうだ選挙にいこう2016/01/03(日) 00:51:29.16
>>621
試用版があってよかったね(^^)
0626名無しさん＠そうだ選挙にいこう2016/01/03(日) 01:52:37.39
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

INDEX(Sheet1!A:A1,1)
のSheet1の部分をマクロで別のシート名に置換したいんですけどどうすればいいですか
Replacaを使ってもずっとエラーが出ます
0627名無しさん＠そうだ選挙にいこう2016/01/03(日) 01:59:10.43
>>626
INDEX(Sheet1!A:A1,1)
この数式が間違ってる

INDEX(Sheet1!A:A,1)
じゃね?

これでもダメなら
コードをカキコして
0628名無しさん＠そうだ選挙にいこう2016/01/03(日) 02:05:20.22
貼り付けたときに間違えてたみたい
そこを正しくしててもエラー出たんだけど事故解決しましたすみません
0629名無しさん＠そうだ選挙にいこう2016/01/03(日) 02:10:08.48
INDEX(indirect("Sheet1!A:A1",1),1)
をなんとかするとかは？
0630名無しさん＠そうだ選挙にいこう2016/01/03(日) 02:10:22.55
アッハイ
0631名無しさん＠そうだ選挙にいこう2016/01/03(日) 03:45:22.25
>>599
「F２」キーを押す意味がわからん。
数式バーを見ればいいだけだろ。
逆に「F２」キーは編集状態になるから危険なんだよな
0632名無しさん＠そうだ選挙にいこう2016/01/03(日) 06:05:39.69
>>622
金額計算じゃなくて１２桁の宅配便問い合わせ番号扱っていて、関数がエラーになったことならあるよ
0633名無しさん＠そうだ選挙にいこう2016/01/03(日) 21:32:31.99
Long型　-2,147,483,648 から 2,147,483,647 までの符号付き 32 ビット (4 バイト) 数
0634名無しさん＠そうだ選挙にいこう2016/01/03(日) 23:40:53.68
オートフィルをすると変なマークがセルに被ってきて入力の邪魔をするんだけど、Escキーを押下しても消えません。
このマークを出さないようにするか、瞬時に消すにはどうすればいいですか？
0635名無しさん＠そうだ選挙にいこう2016/01/04(月) 01:18:10.45
>>634
変なマークってこれの事?
オプション → 詳細設定 → コンテンツを張り付ける時に[貼り付けオプション]ボタンを表示する(S)
のチェックをはずすと 出さなく出来るよ
0636名無しさん＠そうだ選挙にいこう2016/01/04(月) 01:18:31.54
>>634
｢オートフィルオプション 消す｣で検索
0637名無しさん＠そうだ選挙にいこう2016/01/04(月) 07:44:10.69
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

ブラウザからテキストをコピペする際に、すぐ横にブラシみたいなアイコンが表示されるんだが
これをOFFにする方法を教えて下さい。
0638名無しさん＠そうだ選挙にいこう2016/01/05(火) 11:46:45.86
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

複数のブックを開いた状態で作業をしていると、
ブックAのセルを選択して文字や数値を入力したのに反映されず、ブックBに入力されてしまう
ということが発生します。

解決方法はあるでしょうか？
0639名無しさん＠そうだ選挙にいこう2016/01/05(火) 11:59:35.70
>>638
ちゃんと、中身説明しないと誰も答えんよ。

解決方法も何も、普通そんなこと起きないから。ブックが別なのに入力されるわけがない
だろ。ちゃんと中身を調べてから書込しろ。

それか、エスパー希望とでもかいてろ。
0640名無しさん＠そうだ選挙にいこう2016/01/05(火) 13:56:19.48
IMEがONのまま入力して、確定せずにブックを切り替えると最後に開いたブックに未確定文字列が出る
ような気がする
0641名無しさん＠そうだ選挙にいこう2016/01/05(火) 14:52:22.03
フォルダ内のエクセルファイルを一括で印刷したいのですが、１５枚(１５ファイル)ずつしか印刷できません。１６以上になると右クリックしたときに印刷のメニューがなくなります。１００枚一気に印刷することは可能でしょうか？
0642名無しさん＠そうだ選挙にいこう2016/01/05(火) 15:06:06.31
>>641
右クリックした時というのが意味不明。

普通はVBAで右クリックがどうこうなんて話にはならない。そういうのはボタン押して
それでオシマイだ。

よってこのスレはスレ違いということになる。
0643名無しさん＠そうだ選挙にいこう2016/01/05(火) 15:41:48.89
>>641
はい
http://ebisukenta.jp/w7exp.html
0644名無しさん＠そうだ選挙にいこう2016/01/05(火) 16:06:52.57
>>643
出来ました！ありがとうございました！
1500枚以上印刷するので非常に助かりました。
0645名無しさん＠そうだ選挙にいこう2016/01/05(火) 16:07:37.92
バッチ印刷用のエクセルマクロを作ればいいのでは？
指定したフォルダの全てのエクセルファイルを
一つずつ開いて、印刷して、閉じて
を繰り返すだけだから、１画面で収まる行数でできるよ。

レジストリいじると副作用があるから絶対にやってはいけないよ。
0646名無しさん＠そうだ選挙にいこう2016/01/05(火) 16:12:04.74
>>645
なるほど、有難うございます
0647名無しさん＠そうだ選挙にいこう2016/01/05(火) 16:28:09.59
「エクスプローラー ファイル 右クリック 印刷」でggrと一番上にあった

Windows7でエクスプローラから15を超えるファイルを一括印刷 ...
ttp://ebisukenta.jp/w7exp.html
06486472016/01/05(火) 16:29:27.48
リロードする前に書き込んでしまった
06496342016/01/05(火) 19:51:51.76
>>635
できました。
ありがとうございます。
0650名無しさん＠そうだ選挙にいこう2016/01/05(火) 20:29:11.45
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

A列に日付
B列以降数値などが入ります。C,Dと今後データが追加されていく可能性あり。
　　　　　　 A　　　 B C D・・・
1　　2016/01/05　1　2　3・・・
2 　　　　　・
3　 　　　　・
条件付き書式で（今日の日付）のセルの色を自動的に変えていますが
これだと日付のセルだけの色が変わりそれ以降の数値などは変わりません。
行をクリックすればその行を目立たせることはできますが
クリックしなくても（今日の日付）のデータ1行を自動的に目立たせたい。

今日の日付の1行をたとえば‘太枠で囲む’みたいなことをしたい。
または‘太字にする’でもいいです。
列はデータが追加されていく可能性があるので追加された分も自動的に目立つようにしたい。
条件付き書式でもできるならそれでもいいです。よろしくお願いします。
0651名無しさん＠そうだ選挙にいこう2016/01/05(火) 20:30:53.06
>>650
条件付き書式を行全体に適応させればいいと思いましtあ。
0652名無しさん＠そうだ選挙にいこう2016/01/05(火) 20:32:05.84
適応じゃないな、適用か
0653名無しさん＠そうだ選挙にいこう2016/01/05(火) 21:01:15.02
EntireRowとtodayを使って今日の一行を表して
条件付き書式の数式を使って太枠の書式設定すればいいと
思っているのですが数式がわかりません。
0654名無しさん＠そうだ選挙にいこう2016/01/05(火) 22:11:50.36
>>653
わからないもなにもそのままじゃ？
0655名無しさん＠そうだ選挙にいこう2016/01/05(火) 22:12:15.71
>>654
比較するだけじゃ？って意味です
0656名無しさん＠そうだ選挙にいこう2016/01/05(火) 22:23:38.83
条件付き書式ってなんであんなに使いにくいの？
表形式が完成したシートに設定するだけならまぁ動くけど、
そのシートを編集すると一気に崩壊する。

歴代の担当者が職人芸のように設定したなんで正常に動いているのか理解不能な
多重に設定された条件付き書式の付与されたシートに対し、
「ここに１列挿入したいんだけど・・・」って上司に言われて精神崩壊するかと思った。
半日かけて、重力を無視したかのように積み上がった岩の上に、さらに小岩を積み上げたよ。
0657名無しさん＠そうだ選挙にいこう2016/01/05(火) 22:28:28.20
それがあなたの仕事ってだけのこと
0658名無しさん＠そうだ選挙にいこう2016/01/05(火) 22:36:53.31
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

A1は変換前の文章を入れるセルです。
B1は変換後の文章を表示させるセルです。

A2から下には変換前の単語リストを入れておき、
B2から下には変換前の単語リストを入れておきます。

A1の文章を元に
A2・B2から下のセルの単語リストをいじるだけで
B1に語句変換した結果を表示させるにはどうすればいいですか？
0659名無しさん＠そうだ選挙にいこう2016/01/05(火) 22:44:25.02
>>658
下、って固定なの？不定なの？
0660名無しさん＠そうだ選挙にいこう2016/01/05(火) 22:47:39.49
>>650
1列目A1B1C1D1.....全部条件付き書式で数式=$A1=TODAY()
右クリックで下方向にびろ～んて左クリックなら数字が増えるやり方で
書式だけコピーすると
例えば11列目は条件付書式　数式=$A11=TODAY()と列全体がなる
0661名無しさん＠そうだ選挙にいこう2016/01/05(火) 23:04:02.61
>658
A1 = "= Z2 & A2 & Z3 & A3 & Z4 & A4 & Z5"
B1 = "= Z2 % B2 & Z3 & B3 & Z4 & B4 & Z5"
0662名無しさん＠そうだ選挙にいこう2016/01/06(水) 00:16:29.54
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 少々
【4 VBAでの回答の可否】 可

HDDのフォルダ名を間違えてしまい修正したいのですが、
これに見合ったフリーソフトが見つかりません。
エクセルのマクロで出来るでしょうか？

次のような構成でフォルダ名があり、子フォルダ内の
フォルダ名を変更したいのです。
（親フォルダ、子フォルダは仮名）

E
　 2015
　　　親フォルダ1
　　　　　　子フォルダ10
　　　　　　　　109EOS5D_8123
　　　　　　　　109EOS5D_8705
　　　　　　子フォルダ10
　　　　　　　　109EOS5D_9367
　　　親フォルダ2
　　　　　　子フォルダ20
　　　　　　　　109EOS5D_9885
　　　　　　　　110EOS5D_0001
　　　　　　子フォルダ21
　　　　　　　　110EOS5D_1013
　　　親フォルダ3


変更方法は、現行の3ケタの数字に7を足した数字にしたいです。
たとえば、109EOS5D_8123 なら、116EOS5D_8123 になります。
06636582016/01/06(水) 00:20:49.90
>>659
不定です。

>>661
A1や、A2・B2から下は固定値ではありません。
0664名無しさん＠そうだ選挙にいこう2016/01/06(水) 02:04:15.05
>>663
じゃあ無理
0665名無しさん＠そうだ選挙にいこう2016/01/06(水) 02:09:51.69
>>662
ExcelVBAでもできるけどなぜわざわざExcelVBAでやりたいのかがわからない
で、何を知りたいの？
0666名無しさん＠そうだ選挙にいこう2016/01/06(水) 02:09:56.52
>>658
変換する語句は複数あるの？
一個ずつしかないならSEARCHで何文字目からか探して変換をかけられると思うんだが
複数となるとかなり面倒になると思う
0667名無しさん＠そうだ選挙にいこう2016/01/06(水) 02:16:55.29
>>658
作業列つかわんとめんどくさい
C1=A1
C2=SUBSTITUTE(C1,A2,B2)
下にオートフィル
後は一番下にあるものが返還後
0668名無しさん＠そうだ選挙にいこう2016/01/06(水) 02:18:43.21
>>662
できるよ
fsoってキーワードでぐぐってくれ
後はmidなどで文字を切り取ったり置き換えれば行ける
あと気をつけるのは7足して4桁になる時ぐらい
0669名無しさん＠そうだ選挙にいこう2016/01/06(水) 21:22:24.79
>>660
ありがとうございます。
しかしどうもうまくいきませんでしたｗ
0670名無しさん＠そうだ選挙にいこう2016/01/06(水) 23:13:25.65
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 使えない
【4 VBAでの回答の可否】 可


VBAを使う質問です。

①セルA1が「あ」の時の色を赤、「い」の時の色を青にする

②セルB1の文字列をシート名にする

この二つを同時に実行させるにはどうすればいいのでしょうか？
よろしくお願いします。
0671名無しさん＠そうだ選挙にいこう2016/01/06(水) 23:33:39.88
釣りですか？
0672名無しさん＠そうだ選挙にいこう2016/01/07(木) 00:17:22.82
>>670
同時は無理だと思う
順番にじゃないと
0673名無しさん＠そうだ選挙にいこう2016/01/07(木) 01:08:50.91
>>670
同時にとか、余計な言葉を書くから厳密に解釈されちゃってる…
0674名無しさん＠そうだ選挙にいこう2016/01/07(木) 01:16:11.01
>>656
シートをグチャグチャにされても、VBAでシートに条件付書式を再設定出来るようにしてあげるのが、その作成者がすべき配慮だと思う。
私は自分自身のためにもそうしてたけど。

キャプションが「条件付書式再設定」となっているボタンを配置するとか。
0675名無しさん＠そうだ選挙にいこう2016/01/07(木) 01:18:52.74
【3 VBAが使えるか　 　 .】 使えない

VBAを使う質問です。
0676名無しさん＠そうだ選挙にいこう2016/01/07(木) 01:24:27.48
>>650
もう見てないかな？

行選択時のセルの色を任意にしたくて過去ググった事があって、サンプルが簡単に見つかったんだけど、今スマホから書き込んでるから詳細が書けない。

業務用に作ったファイルで、「Enterで次のロックしていないセルにジャンプ、かつそのセル=現在のセルをピンクにする」とかしてた。
0677名無しさん＠そうだ選挙にいこう2016/01/07(木) 01:27:00.46
>>675
「自分自身はVBAを使えないけど、VBAを使っても良いから回答が欲しい！」という意味だと解釈したよ。
0678名無しさん＠そうだ選挙にいこう2016/01/07(木) 02:16:16.49
>>672
>>673

すいません、同時にという言葉がよくなかったみたいですね。

>>677さんの言うように、VBA自体は使ったことないけど、いろいろ検索したらVBAってのを使えば出来るみたいというところまでは分かった感じです。
0679名無しさん＠そうだ選挙にいこう2016/01/07(木) 07:09:31.63
>>678
馬鹿が回答してくれるんだから
馬鹿にもわかるように質問してやれ
0680名無しさん＠そうだ選挙にいこう2016/01/07(木) 07:26:32.09
質問です。
今のエクセルではマクロありのファイルと無しのファイルで拡張子が違うと知りました。
しかし旧形式のファイルならマクロありでも従来の拡張子で開けて
イベントプロシージャも動作するみたいです。
これではセキュリティ対策として無意味な気がするのですが、どうなんでしょうか？
0681名無しさん＠そうだ選挙にいこう2016/01/07(木) 07:45:23.22
>>680
少なくとも EXCEL2010以降ではEXCELの設定で
旧形式のファイルを開かなくする(又は保護ビューで開く)する事はできる

https://support.microsoft.com/ja-jp/kb/922850
0682名無しさん＠そうだ選挙にいこう2016/01/07(木) 07:47:54.09
>>680
マクロありのxlsm形式でもxls形式で作られたマクロが稼働しない例がある
だから継続使用ができないと大混乱になることも

いや、俺が普段使っている請求書作成ファイルがそれに該当していて
容量を少しでも減らせないかとxlsm形式で保存した結果
請求書作成には問題ないが売り上げ計上用マクロ部分が動かなくなったことで知ったんだがｗ
0683名無しさん＠そうだ選挙にいこう2016/01/07(木) 08:21:29.71
>>681
なるほど設定次第ですか・・
ちょっと甘い気もしますが
通常時に仕事がスムーズに行くことのほうを重視する客を無視できないんでしょうね

>>682
保存し直す前には動いてたってことでしょうか
ファイルの形式を見てVBAの動作も変えてるってことなんですかね
0684名無しさん＠そうだ選挙にいこう2016/01/07(木) 08:21:58.40
お礼を忘れてました
ご回答ありがとうございました
0685名無しさん＠そうだ選挙にいこう2016/01/07(木) 08:49:50.54
2003以前の旧Excelでも、マクロを無効にするとか、しないとかExxel本体で設定出来たはずだが…

そんなにマクロが不安なら、仮想化してやるしかない。
0686名無しさん＠そうだ選挙にいこう2016/01/07(木) 08:51:38.49
昔のExcelマクロはプロテクトがかけてあっても、OpenOfficeで開けばマクロが丸見えだったが、今は駄目かな？
0687名無しさん＠そうだ選挙にいこう2016/01/07(木) 15:00:34.50
>>670
ThisWorkbookのモジュール


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Range("B1") = Sh.Name
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Target.Value = "あ" Then
Target.Interior.ColorIndex = 3
ElseIf Target.Value = "い" Then
Target.Interior.ColorIndex = 5
Else
Target.Interior.ColorIndex = 0
End If
0688名無しさん＠そうだ選挙にいこう2016/01/07(木) 15:38:19.99
>>687
ありがとうございます。

帰ったら試してみたいと思います。
0689名無しさん＠そうだ選挙にいこう2016/01/07(木) 16:02:48.71
>>676
今日やったらできました。
みなさんありがとうございます。
0690名無しさん＠そうだ選挙にいこう2016/01/08(金) 06:43:23.61
Excelの求人12,396件の平均最低月給173,900円
http://jobinjapan.jp/job-listing/keyword-excel.html
0691名無しさん＠そうだ選挙にいこう2016/01/08(金) 08:02:31.40
>>690
様々な仕事の中でExcelも使うが普通の仕事だからな
Excelしか使えずあとは一から教育となると、そんなもんじゃね？
Excelなんて、最近は義務教育でも学校で基本はできるようにはなってるんだから
0692名無しさん＠そうだ選挙にいこう2016/01/08(金) 10:37:13.48
>>691
スパム相手にレスはやめてほしい
0693名無しさん＠そうだ選挙にいこう2016/01/10(日) 14:44:04.67
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

連動したドロップダウンリストについて質問です
階層構造的な連動はINDIRECTを使うみたいなのですが
複数条件を満たしたリストを出したい場合はどうすればいいのでしょうか？

たとえるなら、A列は性別・B列は年齢のリストで
C列はＡとＢで選択した性別と年齢に合致する人名のリストが選択できる、みたいな感じです
0694名無しさん＠そうだ選挙にいこう2016/01/10(日) 15:59:10.80
リストの方に作業列を加える
性別と年齢を＆で結合して
男18
女40
みたいな列を作っておけば良い。
0695名無しさん＠そうだ選挙にいこう2016/01/10(日) 22:24:19.83
VBAをつかわない例
http://excel-ubara.com/excel3/EXCEL006.html

VBAをつかう例
https://www.moug.net/tech/acvba/0060026.html
http://infith.com/system/excel/combobox_narrow_down/
http://excel-ubara.com/excelvba3/EXCELFORM018.html
0696名無しさん＠そうだ選挙にいこう2016/01/11(月) 19:16:29.40
スレ間違えたので移動しました。
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
専用スレが機能していないのでこちらで質問させていただきます。
やりたいこと
楽天RSS関数を使って5分足の始値、高値、安値、終値、出来高を取得。　　　　　　　　　D　　　　　　　　　　　　
C3 =RSS|'銘柄コード.T'!現在値　
D3 =RSS|'銘柄コード.T'!出来高
でリアルタイムに取得して数値が変化します。

E6に時間、
F6にその5分間の最初の値、
G6にその5分間での最高値
H6にその5分間での最低値
I6にその5分間での最後の値
J6にその5分間での出来高
これを5分足として下に追加していく。

ネットで検索したものは始値、高値、安値、終値という
マクロはあるみたいでやってみたらうまくいかず
エクセルがよくフリーズします。
休日なので試せませんが実行したらC3から下に1秒おきに数値が自動でどんどん
追加されストップボタン押しても止まらず。
フリーズしまくりといった感じです。
成功例はほとんどない感じでハードルが高いですが
なにか方法はないものかと。
出来高に関してのVBAの情報がないですが
現在の出来高から5分前の出来高を引いたものが5分足の出来高に
なるように思うのですが作れません。
検索したのは「5分間間隔でデータ記録」を参考にしました。
0697名無しさん＠そうだ選挙にいこう2016/01/11(月) 20:33:53.58
質問です。

あるセルに文字列を入力したら、その隣のセルに自動的にその時の日付を入力する様にしたいのですが、どうすればいいでしょうか？
0698名無しさん＠そうだ選挙にいこう2016/01/11(月) 21:52:56.84
>>697
if関数
0699名無しさん＠そうだ選挙にいこう2016/01/11(月) 21:54:37.62
>>696
…で？
07006962016/01/11(月) 22:02:33.17
あ、ただの落書きですｗ
0701名無しさん＠そうだ選挙にいこう2016/01/12(火) 00:47:35.21
>>697
こうします

Private Sub Worksheet_Change(ByVal Target As Range)
　　Application.EnableEvents = False
　　Target.Offset(0, 1) = Mid(Date, 6)
　　Application.EnableEvents = True
End Sub
0702名無しさん＠そうだ選挙にいこう2016/01/12(火) 01:16:51.11
>>698
うそ教えてw
0703名無しさん＠そうだ選挙にいこう2016/01/12(火) 01:25:25.37
>696
たしかこのすれか一個前ぐらいに株価の取得は書いたような
>>697
vbaでworksheet_changeステートメントでnow()だかdate()だかって思ったら>>701で全部書いてくれてるじゃん
0704名無しさん＠そうだ選挙にいこう2016/01/12(火) 16:55:18.82
>>703
特に見当たらなかったように思います。
無知でがちゃがちゃやってしまってパソコンが壊れそう。
0705名無しさん＠そうだ選挙にいこう2016/01/12(火) 17:50:05.23
>>696
リアルタイムで発注とかしたいの？
単に、データ収集したいの？
0706名無しさん＠そうだ選挙にいこう2016/01/12(火) 18:18:45.95
>>705
発注のような高度なテクニックは無理を承知しています。
目的は証券会社のツールだとテクニカルが限られるので
好きなテクニカル指標で複数の銘柄のチャートをタイル表示できるだけでいいと思っています。
1枚のシートに複数の銘柄の5分足4本値＋出来高を取得し関数を使って出来高の右に例えば移動平均線3本
を計算して折れ線グラフで表示し複数の銘柄のグラフを片隅にでも集めて
タイル表示っぽくできればと。
グラフがリアルタイムチャートになるかどうか疑問です。
発注はエクセル見ながらスマホでもいいかなくらいに思っています。
線がクロスしたらシグナル（音）を出す的な関数も
調べましたがいろいろと素人がやれるものではなさそうです。
0707名無しさん＠そうだ選挙にいこう2016/01/12(火) 19:53:26.21
If(,"",today())とか
0708名無しさん＠そうだ選挙にいこう2016/01/13(水) 06:31:36.47
１日１ファイルだとトデイでいいのだけれど
1週間とかだとアウト
0709名無しさん＠そうだ選挙にいこう2016/01/13(水) 11:00:54.97
ひとあたり板を流して探してみたのですが適当なスレが見つからなかったので、ここではスレ違いなのかも知れませんが
ちょっと質問させてください。

Vista末期から７→10と育ててきたPCが稼働中に突然、謎のクラッシュして再起動すら受け付けない体になってしまったので
改めて10をクリーンインストし直した結果、それまで何の問題もなく使えていたExcelもWordもすっ飛んでしまったらしく、
HDに残ったxls、xlsxやdocxのファイルが開けなくなったので、ファイルをクリックしたときに開くWinストアってのを覗いて
みたら、Excel本体は(無料お試し期間はあるものの)月額課金制になってるものしか見つけられませんでした。
あれ？無料で使えるExcelってなくなってしまったのですか？

今のところ月に数回ほどと、それほど頻繁に使う予定はないので、そのために月々\1,600そこらの使用料を
支払い続けるのが経済的なのかどうか、判断しかねている状態です。
もし、Excel本体に準じて使用感に遜色のない無料ソフトでもあればご紹介ください。
因みに、Excelに関しては素人レベルで自分でシートを組むこともありません(できません)。
0710名無しさん＠そうだ選挙にいこう2016/01/13(水) 11:43:15.22
>>706
VBA覚えたほうが早いと思う

>>709
有名なのは
http://www.openoffice.org/ja/
これも割りといい
https://ja.libreoffice.org/
あとgoogleスプレッドシートがかなりいいけど、ブラウザやgoogleアカウントが必要だから色々とメンドクサイ
0711名無しさん＠そうだ選挙にいこう2016/01/13(水) 12:25:47.92
>>709
クリーンインストールしたらOfficeが消えるのは当然
ただOffice付きで買ったのなら再インストール用にバンドルCDが付いてたはず

無料のは LibreOfficeでも試してみたら？

LibreOffice/Apache OpenOffice 総合相談所 12 [転載禁止]?2ch.net
http://peace.2ch.net/test/read.cgi/bsoft/1443141116/
0712名無しさん＠そうだ選挙にいこう2016/01/13(水) 13:16:34.37
>>709
ヤフオク
0713名無しさん＠そうだ選挙にいこう2016/01/13(水) 15:28:30.05
>>710
いろいろ本を見たりネットで調べたりしています。
しかしほとんど仕事で時間がなくて難しいです。

とりあえず5分足の4本値は取得できてるようですが
エクセルが落ちまくりしますし昼の休場時間も動き続けるしで。
0714名無しさん＠そうだ選挙にいこう2016/01/13(水) 17:15:17.51
>>713
＞成功例はほとんどない
んじゃなくて、わざわざ誰も作らないだけだろう。もしくは自分用に作っていて公開していない。

それと多分だけど、一秒置きは早過ぎる。取得に失敗した時のエラー処理とか書いてる？
デバッグできないなら、自分でツクるのは諦めて委託でもした方がいいと思う

儲かるためのツールなんだから、さっさと作ったほうが元は取れるだろう。
0715名無しさん＠そうだ選挙にいこう2016/01/13(水) 18:32:16.71
>>709
自分でシート組まないなら閲覧のみってことでしょ？
ExcelViewerでいいんじゃないでしょうか
0716名無しさん＠そうだ選挙にいこう2016/01/13(水) 20:22:42.32
【1 OSの種類】 Windows 7
【2 Excelのバージョン】 Excel 2010
【3 VBAが使えるか】 いいえ
【4 VBAでの回答の可否】 否

SUMIF関数で検索条件を他のセルにすることはできませんか。
例えば C1 に =SUMIF(B10:B100,"=B1",C10:C100) として B1 の値を変えるごとに計算。
用途は家計簿。
A10:A100 が品名、B10:B100 に品目番号、C10:C100 に金額のような表です。
0717名無しさん＠そうだ選挙にいこう2016/01/13(水) 20:31:02.73
>>716
できる
0718名無しさん＠そうだ選挙にいこう2016/01/13(水) 20:43:16.28
>>716
C1の計算式にOFFSET入れれば比較的簡単に可能
0719名無しさん＠そうだ選挙にいこう2016/01/13(水) 21:00:37.21
> SUMIF(B10:B100,"=B1",C10:C100)
SUMIF(B10:B100,B1,C10:C100)？
0720名無しさん＠そうだ選挙にいこう2016/01/13(水) 21:26:36.89
住人では無いし株にはまったく興味も関心も無いのだが、Excelは前世紀から株価のあれこれサンプルてんこ盛りでわ？
http://happy.kabu-web.net/　ちょっと検索サイトいぢっただけでもこんなの出てくるし
しかもExcelツール無料で提供するだけぢゃ無く、解説までしてるぞ？　　物足りないてか？
※注意事項にも書かれてるけど株価取得間隔はどうこうってのを詳しく読めばいいと思うけど
0721７１６2016/01/14(木) 22:22:17.11
>>717-719
ありがとうございます。
ただ、あまり詳しくないのでOFFSETの具体的な式をお願いします。
(SUMIF自体知らなかったので、作業列作ってIF文で計算しようと思ってた)
>>719の式はB1を数値と文字の両方で試してみたけどダメでした。
なお、品目番号は野菜・肉・魚などを10程度の番号で区分したものです。
07227092016/01/15(金) 14:49:37.37
昨日は1日外だったので遅くなりましたが、皆様いろいろなご意見ありがとうございました。
まずは例示していただいたソフトから相性を確かめてみたいと思います。

>>715
ひとつには、年賀状本に付録で入っていた家計簿ソフトのファイルが読めなくなって、、、
家計簿ソフトなので、時々情報を入力する必要もあって困っていました。
0723名無しさん＠そうだ選挙にいこう2016/01/16(土) 13:46:08.24
>>716
検索条件を別セルに作るってのはどうだろう
C2を作業セルとして使う場合
C2 ="=" & """" & B1 & """"
C1 =SUMIF(B10:B100,C2,C10:C100)
0724名無しさん＠そうだ選挙にいこう2016/01/17(日) 16:03:05.91
すみません。はじめてお邪魔します。
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

カレンダー（予定表）に、毎月決まった工程を自動で入力したいです。
（1）（だいたい月初めに）「原稿到着」
　　↓
（2）中2営業日で「第一稿提出」
　　↓
（3）中3営業日で「納品」

上記の「　」の（1）を入力したら、（2）以降の「　」内の文字が自動で入力されたい。
その際、土日祝日は飛ばしたいです（（1）が金曜日なら、（2）は水曜日になる）。

祝日付き予定表は、下記サイトにて何とか作りましたが、その先は検索してもなかなか答えを見つけられません。
http://kokoro.kir.jp/know/calendar3.html

該当しそうなサイトをご紹介いただいてもよいです。
よろしくお願いします。
0725名無しさん＠そうだ選挙にいこう2016/01/17(日) 16:19:31.46
>>724
丸投げしたいなら現状のブックをアップしてください
解法はたくさんあるので、元のブックを見ないと、適正な答えが出せません
0726名無しさん＠そうだ選挙にいこう2016/01/17(日) 16:55:57.69
>>724
例えだよね
マジでそれを実現したいの？
0727名無しさん＠そうだ選挙にいこう2016/01/17(日) 18:10:19.76
しつもん失礼します。初心者です。
a1とb1の数値の差がb1が-50以下の場合c1に特定の文字を表示したいのですが可能でしょうか？
お願いします。
0728名無しさん＠そうだ選挙にいこう2016/01/17(日) 18:23:56.97
=IF((A1-B1<50),"OK","NG")
0729名無しさん＠そうだ選挙にいこう2016/01/17(日) 19:25:47.16
Dim cell1 As Range

n = 1
m = 1
Do Until n > 7
Set cell1 = ActiveCell.Offset(m, 1)

Select Case cell1.Value
Case "土", "日", "祝"
Case Else
If n = 3 Then cell1.Offset(0, 2) = "提出"
If n = 7 Then cell1.Offset(0, 2) = "納品"
n = n + 1
End Select
m = m + 1
Loop
0730名無しさん＠そうだ選挙にいこう2016/01/17(日) 19:59:01.88
>>728
上手く行きました。
ありがとうございます！
0731名無しさん＠そうだ選挙にいこう2016/01/18(月) 03:00:58.71
【1 OSの種類 　 　 　 　 .】 Windows7 64bit
【2 Excelのバージョン 　 】 professional Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

a列に0,0.02,0.04,0.06...200と0.02ごとの数値が入っており、b列にはそれに対応して数値が入っています。b列の数値は関数で表せないもので、完全にランダムです。
これを、0,0.01,0.02,...200と0.01刻みにして、b列の数値データは線形補間したデータに直したいです。(0.01のときのデータは0.02のときのデータの半分の数ということ)
できそうでパッと思いつかないのですが、解決策ないでしょうか。VBAで構いません(出来ればその方が良いです)。よろしくお願いします。
0732名無しさん＠そうだ選挙にいこう2016/01/18(月) 09:34:12.75
>>731
半分の数ってことは2で割ればいいのでは？
0733名無しさん＠そうだ選挙にいこう2016/01/18(月) 09:44:31.94
>>732
各行の間に1行ずつ挿入して、aとb列に前後の差を2で割った値を入れなければなりません(結果、行数が2倍になる)
1万行→2万行は手動ではかなりしんどいのですが、式やVBAでどう書くかわからな句点困っています
0734名無しさん＠そうだ選挙にいこう2016/01/18(月) 10:11:57.29
>>733
VBAが使えるのに何が分からないの？
ループはできるよね？行挿入はできるよね？四則演算はできるよね？
で？？？
0735名無しさん＠そうだ選挙にいこう2016/01/18(月) 10:19:44.64
>>734
パッと思いつかないので、ちょっと助けてもらえないかと
行挿入して、直接セルに1万回書き込むということですね
0736名無しさん＠そうだ選挙にいこう2016/01/18(月) 10:35:00.37
>>731
ほい

Sub Macro1()
　　Application.Calculation = xlManual
　　Application.ScreenUpdating = False
　　For r = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
　　　　Rows(r).Insert
　　　　Cells(r, 1) = Cells(r + 1, 1) - 0.01
　　　　Cells(r, 2) = Cells(r + 1, 2) / 2
　　Next
　　Application.Calculation = xlAutomatic
　　Application.ScreenUpdating = True
End Sub
0737名無しさん＠そうだ選挙にいこう2016/01/18(月) 10:40:29.43
>>736
ありがとうございます
forで一番下の行から2行目までと指定してstepにマイナスの数を入れればバックすることができるんですね
for 小→大と増やしていくしか知りませんでした
2列目は差をとって半分にする必要があるので、少し改変します。ありがとうございます
0738名無しさん＠そうだ選挙にいこう2016/01/18(月) 15:56:30.17
>>737

1) A列最下行の下に =A2-0.01
2) B列最下行の下に =(B2-B1)/2
3) 入力した数式を一万行分下にコピー
4) 1～3の数式を値に変更
5) A列で並べ替え

の手順でどうでしょう
0739名無しさん＠そうだ選挙にいこう2016/01/19(火) 05:02:07.93
>>738
どうもありがとうございます
結局、思った通りできました！
0740名無しさん＠そうだ選挙にいこう2016/01/20(水) 08:55:49.71
ﾔﾌｵｸで売ってるOffice2010とか2007って大丈夫ですかね?

海賊版はいやだけど新品は高すぎる。だいいち2013は使ってる環境がサポートしてない
1000円なんてのはあきらかにインチキ商品だから避けた
5000円くらいの売ってる奴の評価みたらまあまあ
しかし落としてみたら案の定中国人、中国から直送らしい
どういう経緯の品物なんだろう
0741名無しさん＠そうだ選挙にいこう2016/01/20(水) 12:36:23.30
全部ダメだろ…
0742名無しさん＠そうだ選挙にいこう2016/01/20(水) 19:02:09.05
>>740
高すぎるから違法に走るとか
ヤバイ思考回路してますね
0743名無しさん＠そうだ選挙にいこう2016/01/20(水) 19:16:29.98
>>740
コレでも使ってろ！
http://ja.libreoffice.org/
0744名無しさん＠そうだ選挙にいこう2016/01/20(水) 20:39:21.58
Googleスプレッドシートなら利用の対価は個人情報だけ！
07457402016/01/20(水) 21:19:49.87
>742
法律違反する気はない
ちゃんと登録もするつもりなんだが

奴らなんらかの方法で正規品を中古で入手してるのか
それともまるっきりのｺﾋﾟｰ品かってことよ
とりあえず登録してみよう
0746名無しさん＠そうだ選挙にいこう2016/01/20(水) 21:20:38.32
オフラインで2013が使えないから困ってる　ってハナシじゃねーのか？
やむを得ず2010とか2007を使いたいが、すでに在庫無し状況で一体どうするよ？　ってことじゃ？
microsoft アカウント 必須　てのも迷惑なハナシだし

あ、オフラインでも使えるらしいな　　ただ、オンラインですらその都度へこへこした動作なのも癪の種だし
0747名無しさん＠そうだ選挙にいこう2016/01/20(水) 21:25:35.56
なんだよ、すでに落札済みかよｗ　何ヶ月後に「この製品は正規品ではありません」の警告が出るか　報告よろｗ
0748名無しさん＠そうだ選挙にいこう2016/01/20(水) 21:44:08.66
中華の場合偽の登録サイトまで用意されていて
偽サイトにアップデートプログラムがアクセスされるパターンが多い

当然ながらウィルスが連動されていることも多く
気づいたらアメリカ国防省攻撃にパソコンが参加していることもよくあるそうな
0749名無しさん＠そうだ選挙にいこう2016/01/20(水) 22:57:20.13
vbaでマクロを実行するとき、
call マクロ名
とやりますが、このマクロ名をA1セルで指定したいです。
a=range("A1").value
call a
とするとsub,function,またはpropertyが必要ですと出ます。
どうすれば良いでしょうか
0750名無しさん＠そうだ選挙にいこう2016/01/20(水) 23:00:07.10
>>749
もっと低レベルなことから勉強したらいいと思う
0751名無しさん＠そうだ選挙にいこう2016/01/20(水) 23:19:35.88
>>749
Run a
0752名無しさん＠そうだ選挙にいこう2016/01/20(水) 23:34:18.38
Excel初心者です。
ピポットテーブルについて質問です。
データが別々の二つのピポットテーブルを同じシートに左右に並べて(ピポットA、ピポットBとします）
その下にフィルターをかけたAとBの数字を足した表を作りたいです。

しかし、フィルターを解除するとその表のすうじはREFになってしまいます。
仕方ないので、フィルター設定→表に数式いれる→表の値を値のみ貼り付けして固定→フィルター解除、別のフィルター設定→表に数式いれる…を繰り返していました。
正直めんどくさいのですがなにか改善方法はないでしょうか。
0753名無しさん＠そうだ選挙にいこう2016/01/20(水) 23:42:06.47
>>752
マジレスするとピボット
0754名無しさん＠そうだ選挙にいこう2016/01/21(木) 12:48:01.83
>>753
ご指摘ありがとうございます。
対処法も、もしあればご教授ください。
0755名無しさん＠そうだ選挙にいこう2016/01/21(木) 15:06:43.09
【1 OSの種類 　 　 　 　 .】 Windows
【2 Excelのバージョン 　 】 Excel
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
ひとつのシートに番号と名前のリストを用意しておきます（Aシートとします）。
別のシートで、Aシートで製作した番号を入力すれば名前が自動に出てくるように
することはできますか？
0756名無しさん＠そうだ選挙にいこう2016/01/21(木) 16:20:54.02
出来ます vlookup
0757名無しさん＠そうだ選挙にいこう2016/01/21(木) 18:14:31.10
>>756
ありがとうございます。
やってみます！
0758名無しさん＠そうだ選挙にいこう2016/01/21(木) 22:11:55.44
>>754
まず >>1 を読んでください
0759名無しさん＠そうだ選挙にいこう2016/01/21(木) 23:47:00.92
１を読めとか、ググれカスとか書くヤツってホント目障り
答えたくないならレスするな！
0760名無しさん＠そうだ選挙にいこう2016/01/22(金) 03:59:11.24
>>754

いち嫁　

くぐれカス


あと　しね
0761名無しさん＠そうだ選挙にいこう2016/01/22(金) 07:33:54.33
エクセルのバージョンわからないと答えようがないだろ
やり方違うバージョンあるんだから
0762名無しさん＠そうだ選挙にいこう2016/01/22(金) 07:35:59.37
754です。
エクセルのバージョンは2013です。
1読んでなくてすみません…笑
0763名無しさん＠そうだ選挙にいこう2016/01/22(金) 08:11:52.34
>>759
ごめんなさい
回答初心者なので…まだまだエスパー能力低いんです
0764名無しさん＠そうだ選挙にいこう2016/01/22(金) 20:05:21.08
>>763
分からないのなら黙ってろよ
0765名無しさん＠そうだ選挙にいこう2016/01/22(金) 21:03:10.34
>>740
中古PCにMS公認2010インストールした奴買えば？
0766名無しさん＠そうだ選挙にいこう2016/01/23(土) 01:49:31.86
2013のexcelで散布図で書いたグラフの軸ラベルを上に動かしたいのですがどうすれば良いのでしょうか
軸の値が軸と離れすぎているので寄せたいのですがわかりません
0767名無しさん＠そうだ選挙にいこう2016/01/23(土) 17:10:11.03
>>752>>754
もうピボット作るところからvbaで自動化したほうが良いと思う

>>759
実際>>1に従ったほうが早いことも多い。それが嫌なら実力を付けることだなー

>>763
修行しましょう
0768名無しさん＠そうだ選挙にいこう2016/01/24(日) 12:52:20.11
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

1月5日　　
1月9日　　XXX
1月23日
という感じで日付から3日経過して、日付右側のセルに文字が未入力だった場合はそのセルに自動的に色がつくようにしたいのです。
上の例では1月5日の右側のセルに色がつき、1月9日の右側は文字が入ってるので色がつかない、
23日の右側セルは未入力ですが、現在日から3日経過してないので色がつかないという感じにしたいのです。

色々と調べてみましたが、自分だけでは難しそうなのでどなたかお助け願えればと。
宜しくお願い致します。
0769名無しさん＠そうだ選挙にいこう2016/01/24(日) 13:22:36.09
>>768　
A1に日付、B1に条件付き書式を設定する場合
条件付き書式／数式を使用して書式設定するセルを決定　を選び
式の欄に　=AND((NOW()-A1)>=3,B1=
07707692016/01/24(日) 13:24:06.05
あれ？途中で切れちゃった
>>768　
A1に日付、B1に条件付き書式を設定する場合
条件付き書式／数式を使用して書式設定するセルを決定　を選び
式の欄に　=AND((NOW()-A1)>=3,B1=””)　と入力
0771名無しさん＠そうだ選挙にいこう2016/01/24(日) 13:51:21.85
>>770さん

早速ありがとうございます！
さっそく試してみるように致します
0772名無しさん＠そうだ選挙にいこう2016/01/26(火) 09:59:28.93
【1 OSの種類 　 　 　 　 .】 Windows XP
【2 Excelのバージョン 　 】 Excel 2000
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 否

A列が特定の条件(特定の値でも良いです)でのみ
B列で入力されているセルをカウントしたいのですが
その条件を入れた別の列を用意しそれをカウントさせるとかではなく
式1本で実現する方法があれば教えてください
0773名無しさん＠そうだ選挙にいこう2016/01/26(火) 12:30:08.19
>>772
これで イケルはず

=SUMPRODUCT((A1:A100="特定の値")*(B1:B100<>""))
0774名無しさん＠そうだ選挙にいこう2016/01/26(火) 12:32:59.84
【1 OSの種類 　 　 　 　 .】 Windows 10
【2 Excelのバージョン 　 】 Excel 2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

セルを列か行でShiftで複数選択して
各列や各行に同じタイプの罫線をつけるにはどうすればいいでしょうか？
例えば複数列選択して各列に同じ縦線をつけたいです
0775名無しさん＠そうだ選挙にいこう2016/01/26(火) 13:19:52.54
罫線のメニュー開いたことないんか？
0776名無しさん＠そうだ選挙にいこう2016/01/26(火) 13:40:13.46
もちろんありますが
複数列を選択してたとえば左罫線を入れると
全体を一つの列とみなされて左に1本入るだけですよね
これをそれぞれの列に差し込みたいのです
0777名無しさん＠そうだ選挙にいこう2016/01/26(火) 13:54:43.59
セルの書式設定の罫線から
0778名無しさん＠そうだ選挙にいこう2016/01/26(火) 14:01:09.70
文字列どうしの間の罫線を選択するんですね・・・
気づきませんでした
できました
ありがとうございました
0779名無しさん＠そうだ選挙にいこう2016/01/26(火) 21:32:27.09
【1 OSの種類 　 　 　 　 .】 Windows8
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
自分の作ったシートを他の人が今後MAC版のOFFICEでも使う事になったのですが

どうしてもレイアウト上、中黒（・←これのこと）の半角版（･←これ）が必要ってシートなんですけど
MACのEXCELでは、半角中黒って文字化けせずに表示できるのでしょうか？
0780名無しさん＠そうだ選挙にいこう2016/01/26(火) 21:58:22.67
>>779
mac版で聞いたほうがいいかもしれん

a1に”･abc”表示
a2に･として
a1=a2&"abc"
のようにすると安全だが、そこまでするのもなぁ。
0781名無しさん＠そうだ選挙にいこう2016/01/26(火) 22:31:27.76
マックとか知らんけどlinuxなんだからbｓｄだっけ？フォント変えたり
なんか対応策あるでしょ
0782名無しさん＠そうだ選挙にいこう2016/01/26(火) 23:54:41.53
>>779
そのmacの人に文字化けするかどうか聞けばいいのでは？
0783名無しさん＠そうだ選挙にいこう2016/01/27(水) 16:19:53.97
>>779
俺の環境では半角スラッシュ（/）になったよ
こういうの→（?）はあった
「きごう」で変換してみたけど、
ピリオド（.）っぽいのしか見当たらなかった
0784名無しさん＠そうだ選挙にいこう2016/01/27(水) 16:20:55.63
こういうの→（?）は文字化け
全角のナカグロに近いから無視して
07857722016/01/28(木) 09:48:45.45
>>773
できました!!
返事が遅れ申し訳ありません
ありがとうございました
0786名無しさん＠そうだ選挙にいこう2016/01/29(金) 16:06:25.66
シートのデザインで、一列ごと交互に背景色を変えるにはどうしたらいいですか？

一列目白、次は薄い灰色、次はまた白という風にして、今どこの列のデータを見てるのかが一目瞭然になるようにしたいのです。
データを並べ替えたり、列を挿入したり削除した場合でもデザインが崩れないようにして。
0787名無しさん＠そうだ選挙にいこう2016/01/29(金) 16:20:54.82
>>786
条件付き書式で
書式ルールの　数式を利用して書式設定するセルを決定で

=MOD(ROW(),2)=0

↑を使って書式(塗りつぶし)を設定する(偶数行が対象)
0788名無しさん＠そうだ選挙にいこう2016/01/29(金) 18:18:45.27
【1 OSの種類 　 　 　 　 .】 Windows Vista
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

比較的最近のPCで作成したExcelのグラフがあるのですが、VistaのPCで同じExcelを開くとグラフの色がまともに表示されません
具体的には全ての色がほぼ真っ黒で表示されます

VistaのExcel2007のPCでちゃんと色が表示されるように、このファイルを変換する方法はありますでしょうか
元のデータと全く同じ色に再現できなくとも、かなり近い色で表示されればそれで構いません

ちなみに今現在のExcelの保存形式は「97-2003 ワークシート」です
このデータを最近のPCで開くと色がちゃんと出るのに対し、VistaのPCだと真っ黒になります
0789名無しさん＠そうだ選挙にいこう2016/01/29(金) 21:02:44.45
>>788
2007に対応した色じゃないから起きる現象
基本的にＶＢＡで色設定を変える以外では対応無理
0790名無しさん＠そうだ選挙にいこう2016/01/29(金) 22:26:32.25
「以前おバージョンのExcelで表示する色を選択する」（Excelのオプション→保存→ブック外観の保存）で
うまく行かない？
0791名無しさん＠そうだ選挙にいこう2016/01/31(日) 04:52:22.08
excel2013で、グラフのサイズを変える時、書式タブから縦横のサイズ指定ができるんですが、それは外の白枠のサイズで、中のグラフの枠のサイズを指定した通りに変えられません。
コツはありますか？
0792名無しさん＠そうだ選挙にいこう2016/01/31(日) 06:36:16.48
>>791
ユーザー定義するかVBA使わないと大きさを正確に合わせるのはほぼ無理
VBAなら数字で指定できる
0793名無しさん＠そうだ選挙にいこう2016/01/31(日) 10:58:33.42
excel2013のグラフで思い出したんだが、複数表示させている時に
一本だけ表示が逆に成るときがあるんだけどあのバグ酷いよね
0794名無しさん＠そうだ選挙にいこう2016/01/31(日) 14:28:28.15
>>792
VBAならグラフの軸の枠サイズを指定できるんですか？最近、アクティブなグラフの線の太さや色を変えるマクロ作ったので出来そうです
0795名無しさん＠そうだ選挙にいこう2016/01/31(日) 15:24:40.99
>>793
そんなバグありますか？個人的には思いつかないですけど
0796名無しさん＠そうだ選挙にいこう2016/01/31(日) 15:51:51.13
【1 OSの種類 　 　 　 　 】 Windows 7
【2 Excelのバージョン 　】 Excel2013
【3 VBAが使えるか　　　】 いいえ
【4 VBAでの回答の可否】 否

　Sheet1：巨大な集計データ(数値データのみ頻繁に更新されます)
　Sheet2：Sheet1の必要な項目のみピボットをかけたデータ
　Sheet3：Sheet2のピボットの値からリンク貼り付けをして体裁を整えたもの

Sheet2のピボットが更新されればSheet3の表示も連動するようにしています。
Sheet2のシートを非表示にしたまま、ピボットのデータを更新したいです。
Sheet1やSheet3から遠隔で更新をかける方法、自動更新する方法などを教えて下さい。
0797名無しさん＠そうだ選挙にいこう2016/01/31(日) 16:15:50.10
すべて更新
07987962016/01/31(日) 16:22:21.83
>>797
どこから？
0799名無しさん＠そうだ選挙にいこう2016/01/31(日) 19:47:55.21
Ctrl ＋Alt＋ F5
か
クイックアクセスツールバーに追加しる
0800名無しさん＠そうだ選挙にいこう2016/02/01(月) 10:49:44.24
マクロウイルス　「Office文書を開いて感染」攻撃が再び増加
http://potato.2ch.net/test/read.cgi/bizplus/1454290482/
http://internet.watch.impress.co.jp/docs/news/20160129_741451.html
http://internet.watch.impress.co.jp/img/iw/docs/741/451/macro01_s.jpg
0801名無しさん＠そうだ選挙にいこう2016/02/03(水) 02:39:46.51
【1 OSの種類 　 　 　 　 】 Windows 8.1
【2 Excelのバージョン 　】 Excel2016
【3 VBAが使えるか　　　】 はい
【4 VBAでの回答の可否】 否

画像のように，グラフの下部の凡例の軸の部分が若干右下がりになってるんですが，これはどうやったら治るんでしょうか？今日突然こうなってしまった．．．
http://imgur.com/qx3m2GR.jpg
0802名無しさん＠そうだ選挙にいこう2016/02/03(水) 07:24:18.79
>>801
それ、ワルシアセブン系トロイの木馬ウィルスに感染するとよく起きる現象
ウィルス対策を万全にするか、ハードディスクをフォーマットして
リカバリーするぐらいしか対策ないよ
0803名無しさん＠そうだ選挙にいこう2016/02/03(水) 14:03:26.89
ワルシアセブン系　ウィルス に一致する情報は見つかりませんでした。
0804名無しさん＠そうだ選挙にいこう2016/02/03(水) 19:56:00.07
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

かなり漠然とした質問になりますがご了承ください。
2003から先日バージョンアップしました。
ｃｓｖデータを貼り付けて加工するＶＢＡを組んでいますが、
バージョンアップ後に動かそうとしたところエラーを吐いて停止しました。
が、デバッグモードで１行ずつ実行するとエラーが出ません。
ＶＢＡを分割して動作させたところ、正常に動きました。
上記の結果から推測するに、負荷がかかりすぎてエラーになるものと思われますが、
同様の事例・解決策はありますでしょうか？
0805名無しさん＠そうだ選挙にいこう2016/02/03(水) 20:27:36.45
何のエラーだろ
0806名無しさん＠そうだ選挙にいこう2016/02/03(水) 20:29:41.70
>>801
プリンターの問題では？
0807名無しさん＠そうだ選挙にいこう2016/02/03(水) 20:46:42.91
横から失礼
>>806 画面イメージですでに若干右下がりになってますよ

>>801　新規ブックで同じようなグラフを作っても再現しますか？
当方はExcel2010なのでお手伝いできませんが、参考まで。
0808名無しさん＠そうだ選挙にいこう2016/02/03(水) 21:11:32.67
文字も傾いているんじゃないのかな?
凡例oxを水平に戻せば済む
0809名無しさん＠そうだ選挙にいこう2016/02/03(水) 21:22:22.03
>>804
どんなコードなのか、どのステートメントでエラーが出るのか、どんなエラーが出るのか、エスパーしてやるから待ってろ
0810名無しさん＠そうだ選挙にいこう2016/02/03(水) 21:25:41.66
>>804
何のエラーコードなのかわからんぞ
0811名無しさん＠そうだ選挙にいこう2016/02/03(水) 22:42:00.73
>>804
本来そこに置かれているはずのデーターがまだ来てないんだよ
手動だと自動よりも遅いからデータが間に合ってる
08128042016/02/03(水) 23:11:28.40
受発注と出荷処理のファイルです。
納品先と商品・数量などが並んでおり、それを２次加工するために並び替える処理です。
条件を満たした行をコピーして、データの一番下に貼り付けるコードでエラーが出ます。
デバックモードで確認すると、「値を貼り付け」（pastespecial）の所で止まっています。

>>811
ありがとうございます。おそらくそのためかと思います。
単純にwait処理をして待てばよろしいでしょうか？
0813名無しさん＠そうだ選挙にいこう2016/02/04(木) 08:14:17.03
>>812
今エスパー中だから待て
慌てるな
0814名無しさん＠そうだ選挙にいこう2016/02/04(木) 14:34:40.79
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 かじった程度
【4 VBAでの回答の可否】 できれば関数内で処理したい

http://imgur.com/jdCP170
添付した画像のように売り上げの進捗を管理していくフォーマットを作成していま
す。
イメージ的には1週間刻みで売上、原価、確度の3項目を追加していきます。
その際、最終売上、最終原価、最終確度の3項目には一番最後の対応する列の数値を
反映させるようにしたいです。
W列とX列の間に3項目ずつ足していき、一番近い左側の数値を自動入力させるような
関数の組み合わせ方はあるでしょうか？

よろしくお願いします。
0815名無しさん＠そうだ選挙にいこう2016/02/04(木) 17:41:24.36
>>814　offsetで実現できそうですよ
簡単なのは（必ず３セルセットで値が入るならば）
X2602セル　=OFFSET(O2602,0,COUNTA($O2602:$W2602)-3)
として、右方向にコピー　X2602：Z2602を下方向にコピー
３セルのうち、ひとつでも欠ける場合があるときには対応してません。
Ｘ～Ｚ列に入る値がずれます。

あと、あらかじめ計算式を準備しておくのであれば、Ｏ～Ｗ列に値が
入ってない場合に変な値（Ｌ～Ｎ列の値）が表示されるので、IF関数を
併用するといいかも。
0816名無しさん＠そうだ選挙にいこう2016/02/04(木) 21:19:01.28
>>815
ありがとうございました、早速試してみたら出来ました！

これの応用というか変化？なんですが、予め>>814の画像のようにO列からW列が固定されていて
それ以上増えない場合、同じようにO列からW列に入力されているそれぞれ最後の値を参照して
X~Z列に反映させることは可能でしょうか？
よくCOUNT関数とINDEX関数を組み合わせている例を見るのですが…
08178152016/02/04(木) 21:39:14.86
>>816　最後の値って何でしょう？
815で（右方向へ）最後の３列をＸ～Ｚ列に表示する計算式を示したつもりですが。
縦方向の最後（最下行）の意味だとすると、Ｏ～Ｗの９列とＸ～Ｚの３列で対応しないし。

前回と同じく、やりたいことを画面イメージで示してもらうとわかると思います。
0818名無しさん＠そうだ選挙にいこう2016/02/05(金) 04:36:46.36
クリップボードがデーター１が入っているときExcel上でデーター２のように表示したいのですがやり方教えてください
セル1にペーストすると区切られてくれません。関数で=LEFT(A1,FIND(",",A1)-1)とすると明治時代はとり出せました
その先でづま付いています
データー１
明治時代,1868,1912
大正時代,1912,1926
昭和時代,1926,1989

データー２
明治時代 1868 1912
大正時代 1912 1926
昭和時代 1926 1989
0819名無しさん＠そうだ選挙にいこう2016/02/05(金) 05:37:50.41
クリップボード？
0820名無しさん＠そうだ選挙にいこう2016/02/05(金) 07:09:15.26
>>818
データ>区切り位置でカンマを指定して張り付けるって事かな？
0821名無しさん＠そうだ選挙にいこう2016/02/05(金) 07:27:01.89
>>820
訂正
張り付けてからデータ>区切り位置でカンマを指定。
08228182016/02/05(金) 07:29:09.58
>>820
コンマの区切りでセルを分けたいんです。
『』を一つのセルとしたら
『明治時代,1868,1912』『　　』『　　』→『明治時代』『1868』『1912』
0823名無しさん＠そうだ選挙にいこう2016/02/05(金) 08:34:00.65
>>822
貼り付けたら、その列全体を選択状態にしてから「データ」→「区切り位置」→「コンマ」で3つのセルに分けてくれる
Excel2010ならここ
http://deaimuryou.matrix.jp/up/src/up13094.png
0824名無しさん＠そうだ選挙にいこう2016/02/05(金) 09:21:39.69
>>817

失礼しました、わかりにくい説明でしたね。

http://imgur.com/qTcziFh
前回のように図を用意いたしました。
やりたいことは、予め用意されている52週分の
売上/原価/確度の一番新しい数値(位置で言えば一番右側)に入力されている数値を
最終売上/最終原価/最終確度に反映させることです。
入力される内容は必ず
・売上：数字
・原価：数字
・確度：文字列
です。
宜しくお願い致します。
08258152016/02/05(金) 13:02:03.72
>>824　作業列を使ってできるかも
処理対象範囲に空欄のセルがある場合のもっとも右側のセル位置を調べる計算式です。
824の図だと、未使用のＫ２セルに
=MAX(COLUMN(A2:G2)*(SIGN(LEN(A2:G2))))　と入れて（ここではまだ[Enter]キーを押さない）
[Shift]キーと[Ctrl]キーを押しながら[Enter]キーを押します。
するとセルカーソルは移動せず、計算式が表示される欄には｛　｝で挟まれた計算式となります。
これは配列数式を設定するときの独特の入力方法です。あとはＫ２セルを下方向にコピーするといいです。
Ｋ列の計算式を修正あるいは[f2]キーを押すなどして一度編集状態になったら、必ず
[Shift]キーと[Ctrl]キーを押しながら[Enter]キーを押してください。
配列数式にならなかった場合は、#VALUE!と表示されるはずです。
配列数式として正しく設定されていれば、824の図でK2には６、K3には３、K4には６が表示されているはず。
Ａ４～Ｃ４の範囲になにか値を入れてもＫ４の値は変わらないはずです。
これで、一番最後（右側）のセル位置が出せるので、あとはOFFSET関数と組み合わせればできるはず。
08268152016/02/05(金) 13:21:04.77
>>825の説明です。
MAX関数は、配列中の最大の値を返します。
COLUMN関数はセルの列番号を返します。（Ａ列：１、Ｂ列：２・・・）
SIGN関数は対象値が正数なら１、ゼロなら０、負数なら－１を返します。
LEN関数は対象値を文字列とみなした場合の文字数を返します。
よって、COLUMN(A2:G2)を配列に直すと1,2,3,4,5,6,7となります。
LEN(A2:G2)を配列に直すと5,5,2,5,5,2,0となります。
SIGN(LEN(A2:G2)は1,1,1,1,1,1,0となります。
(1,2,3,4,5,6,7)*(1,1,1,1,1,1,0)という配列の掛け算は(1,2,3,4,5,6,0)となり、
MAX関数を利用して一番大きい数字である６が結果となります。
0827名無しさん＠そうだ選挙にいこう2016/02/05(金) 13:31:20.84
【1 OSの種類 　 　 　 　 .】 Windows**
【2 Excelのバージョン 　 】 Excel**
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可
セルの範囲を元にリストを作った際、リストの内容は
範囲内のセルが計算式だった場合、計算が終わった計算結果がリストとして表示されるのに、
範囲内の太字やイタリック、色変更はリストに反映されないのは何ででしょうか？

また、それら（太字など）が反映されるバージョンのExcelはないでしょうか？
0828名無しさん＠そうだ選挙にいこう2016/02/05(金) 14:24:36.62
>>812
エラーの内容を寸分違わずに書いてくれ
あといちどググってみてくれそれで多分解決はすると思うが
0829名無しさん＠そうだ選挙にいこう2016/02/05(金) 14:25:20.44
>>827
仕様。無い
0830名無しさん＠そうだ選挙にいこう2016/02/05(金) 17:30:09.91
【1 OSの種類 　 　 　 　 .】 Windows7，10
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

Windows7にインストールしたExcel2010でindirect関数を使用し，
ドロップダウンリストで選択した項目によって画像を切り替えるように設定しました。
それを他の端末で開いてみたところ，Windows10にExcel2010をインストールしてある端末のみ画像が正常に表示されません。
indirect関数が働いていないわけではなく，表示したい画像の横のセルや上下のセルまで表示しようとしてしまい，
画像が潰れたように表示されてしまいます。

Windows7-Excel2010(元データを作ったのとは別の端末)や，
WindowsRTに内蔵されているExcelでは想定道理に動作しています。

こんなバグ？聞いたことある方いますか？
0831名無しさん＠そうだ選挙にいこう2016/02/06(土) 01:20:28.33
マーカーつき折れ線グラフのマーカーの色を変えると、違う系列のものまで反映されてしまうようになったのですが、どうすれば良いのでしょうか
0832名無しさん＠そうだ選挙にいこう2016/02/06(土) 02:18:18.41
>>812
なんかエクセル云々以前の話として、
受発注とか出荷管理システムをエクセルマクロでやっちゃうってどうかと思うよ。
0833名無しさん＠そうだ選挙にいこう2016/02/06(土) 09:17:20.70
>>832
できるならやってもいいだろ
バカは黙ってろ
0834名無しさん＠そうだ選挙にいこう2016/02/06(土) 13:57:53.53
その程度で済むレベルの企業なんだから良いんじゃないかな
0835名無しさん＠そうだ選挙にいこう2016/02/07(日) 01:56:07.81
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel 2016
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

すいません。うまく動かないのでご教授お願いしますm(_ _)m
毎日の日記でワークブックに1,2,..........31と日付ごとの番号をシート名にしたシートとその他のシートがいくつかあり
各シートのz4セルに日付を2016/2/5という形で入力し、平成28年2月5日　金曜日と表示するようにしてます。

このシート名が1～31において、シート見出しをz4セルの値が土曜日ならインデックスカラー37,
祝日リストを作り、祝日、日曜日なら38にしたいのですがうまくいかず弄ってる内に訳が分からなくなりました(´Д`;)

Sub 土日色変更()
Dim WBK As Workbook 　'ワークブック変数
Dim SH1 As Worksheet　'ワークシート変数
Set WBK = ThisWorkbook　'このブックシート
Dim i As Integer
Set SH1 = WBK.Worksheets("i")　'sh1はこのブックのシート名iのシート
For i = 1 To 31 　　'iは1から31
If Weekday(SH1.Range("Z4").Value) = vbSunday Then
Sheets(i).Tab.ColorIndex = 38
ElseIf Weekday(SH1.Range("Z4").Value) = vbSaturday Then
Sheets(i).Tab.ColorIndex = 37
Else
Sheets(i).Tab.ColorIndex = xlNone
End If
Next
End Sub

どのように修正すればよろしいでしょうか
0836名無しさん＠そうだ選挙にいこう2016/02/07(日) 03:11:25.63
>>835
for i = 1 to 31
set sh1 = wbk.worksheets(cstr(i))
:
みたいな感じ？
0837名無しさん＠そうだ選挙にいこう2016/02/07(日) 10:47:58.07
【1 OSの種類 　 　 　 　 .】 Windows8.1
【2 Excelのバージョン 　 】 Excel 2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

エクセル中のＵＲＬを自動で開くのはマクロでしょうか？
5000件くらいを20件ずつ開きたいのですがどのように記述すればいいでしょうか？
0838名無しさん＠そうだ選挙にいこう2016/02/07(日) 10:49:58.59
>>837
自動ってどういうこと？
開くってどういうこと？
質問は具体的に頼む
0839名無しさん＠そうだ選挙にいこう2016/02/07(日) 11:22:16.85
>>838
エクセル中のＵＲＬを20件ずつ250に分けて、合計5000件くらいを自動で開きたいんです。
0840名無しさん＠そうだ選挙にいこう2016/02/07(日) 11:39:11.60
>>839
自動って具体的にどういう状態なの？
Excelブックを開いたタイミングでいきなり動けばいいの？
それともExcelブックの特定のシートにURLを入力したタイミングで動けばいいの？
開くってどういうこと？
何らかのブラウザを起動してそのURLのWebページを開けばいいの？
Excelのシート内にそのURLのHTMLを展開できればいいの？
20個開いたらどうなるの？止まるの？なんなの？
なんで具体的に質問できないの？
0841名無しさん＠そうだ選挙にいこう2016/02/07(日) 11:44:21.94
>>836
ありがとうございます
色は付きましたが年月日のz4を読み込んでないようで
関係なく色が付きますね
0842名無しさん＠そうだ選挙にいこう2016/02/07(日) 11:44:51.58
>>840
自動って具体的にどういう状態なの？
　→手動ではなくオートでということです。

Excelブックを開いたタイミングでいきなり動けばいいの？
それともExcelブックの特定のシートにURLを入力したタイミングで動けばいいの？
　→自動であればタイミングは問いません。

開くってどういうこと？
何らかのブラウザを起動してそのURLのWebページを開けばいいの？
　→そうです。分かってるじゃないですか＾＾

Excelのシート内にそのURLのHTMLを展開できればいいの？
　→ブラウザで展開できればOKです。

20個開いたらどうなるの？止まるの？なんなの？
　→20件ずつと最初から書いてるじゃないですか。
0843名無しさん＠そうだ選挙にいこう2016/02/07(日) 12:09:05.16
>>835
×Sheets(i).Tab.
○SHeets(cstr(i)).Tab.
○SH1.Tab.
0844名無しさん＠そうだ選挙にいこう2016/02/07(日) 13:00:40.10
20件ずつ選択してマクロ実行
sub opennavi()
Dim objIE As Variant
Dim strUrl As Range
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
noi = 0
For Each strUrl In Selection
objIE.navigate2 strUrl.Value, noi
If noi = 0 Then noi = 2048
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
Next
Set objIE = Nothing
end sub
0845名無しさん＠そうだ選挙にいこう2016/02/07(日) 13:16:13.94
>>843
ありがとうございます
月を変えても土日は完全に色づけできるようになりましたヽ(ﾟ∀ﾟ)ノ

次はその月度の祝日も色変更できるように
指定範囲セルに入れたらその日のシートも色づけ出来るマクロにチャレンジしてみます
0846名無しさん＠そうだ選挙にいこう2016/02/07(日) 14:27:58.99
【1 OSの種類 　 　 　 　 .】 関係なし
【2 Excelのバージョン 　 】 関係なし
【3 VBAが使えるか　 　 .】 関係なし
【4 VBAでの回答の可否】 関係なし

Excelで伝票を作る際ですが、
質問１．少数や負数を式側で規制する必要があるでしょうか？
質問２．伝票関連の作成経験者の皆さんは実際に規制していたでしょうか？

例えば、顧客が自由に注文個数を入力できるお菓子の注文伝票に、
単価540円に個数を少数（2.45など）で打つと、1323円というありえない小計が出ますし、
-1などと入力すると、注文した顧客に540円払わないと行けないというふざけた計算結果になります

規制すると、本来 =C1*D1で済むような簡単な計算式を、
=IF(ISTEXT(C1),"数字で入力を",IF(INT(C1)<>C1,C1<0),"不正な数値です",C1*D1))
などとする事になりますし、当然、メンテナンス性も低下します

これらは「慣例」・「常識」として、普通は誰も少数や負数は入力しませんが
余程マヌケな人の入力ミスや、悪意のある人によって入力される可能性がゼロとはいえないので、
規制すべきかそれとも、慣例どおりの単なる掛け算の式を入力するかで悩んでいます
0847名無しさん＠そうだ選挙にいこう2016/02/07(日) 14:39:18.52
>>846
伝票発行後、数の誤りや取り消し（返品など）があった場合、
どのような処理にするか考えていますか?
0848名無しさん＠そうだ選挙にいこう2016/02/07(日) 14:41:31.91
>>847
注文内容変更票、返品伝票が別途用意してあります
0849名無しさん＠そうだ選挙にいこう2016/02/07(日) 14:48:45.70
また、注文票に規制をかけると、
当然、それら「他の伝票」や「管理のための各種帳票」「棚卸し帳簿」「会計管理シート」等、
手元にある全てのシートの全ての計算式全部に規制をかけねばならず、頭を抱えています

正直、「今まで一度もなかったし、どうせ誰も負数や小数は入れないんだから徒労ではないか？」
「でも、もし、今後、万が一、悪意のある人が現れたら？」のジレンマです
0850名無しさん＠そうだ選挙にいこう2016/02/07(日) 15:02:30.85
つけるなら入力サポートみたいな感じで
Worksheet_Changeイベントでチェック
もしくわまとめて矛盾をチェックするマクロ
0851名無しさん＠そうだ選挙にいこう2016/02/07(日) 15:22:40.70
>>850
質問者が聞きたいのは、マクロにするかどうかじゃなくて、そういったサポートなり規制なりを“つけるべきか否か”、“実際に伝票につけた事があるかどうか”だろ？
何的外れな解答してんだよｗ

>>846
１＝疑心暗鬼に掛かるならやったほうがいい
２＝ない
0852名無しさん＠そうだ選挙にいこう2016/02/07(日) 16:00:14.33
>>846
それのどこがExcelの質問なんだ？
困るならチェックすればいいし、困らなければチェックしなくていいだけでは？
0853名無しさん＠そうだ選挙にいこう2016/02/07(日) 16:20:23.17
>>842
なんだネタかよ
マジレスごめんよみんな
0854名無しさん＠そうだ選挙にいこう2016/02/07(日) 18:17:11.71
>>839
質問内容が詳しく記載出来てませんでした。すいません。
B2からB5255までURLを記載したsheet"りんご"があります。
B2からB21を指定してIEで自動展開。
記載内容の確認後、次はB22からB41を自動展開。
以降順次展開をしたいです。
sheet"りんご"から展開するのか、
展開用でURLを20件ずつコピぺするためのsheet"みかん"から展開するのかは問いません。
エラーが少なく簡単な方法を教えて下さい。
0855名無しさん＠そうだ選挙にいこう2016/02/07(日) 18:20:10.64
"みかん"だけに柑橘に
0856名無しさん＠そうだ選挙にいこう2016/02/07(日) 18:39:59.75
>>849
例えば10個でいいところを1000個と注文されたら困る
小数やらは問題の一部でたまたま小数問題が解決できることを
知ったからどうしようかと思ってるだけ
0857名無しさん＠そうだ選挙にいこう2016/02/07(日) 19:07:02.17
A1セルに '100 と入れて

a = Range("A1") * 2
MsgBox a

を実行するとエラーにならず 200 と表示されます。
0858名無しさん＠そうだ選挙にいこう2016/02/07(日) 19:11:45.23
書式的には
a=2*val(cells(1,1))
だろうけど、、動くんですな
0859名無しさん＠そうだ選挙にいこう2016/02/07(日) 19:21:46.12
>>857
Rangeで参照したらVariant値になるとかじゃないの
0860名無しさん＠そうだ選挙にいこう2016/02/07(日) 20:49:24.02
>>856
大した手間じゃないことなら対応させた方がいい
少数は強制的にROUNDDOWN通すとか上限値越えたら上限値にするだけなら、大した手間とは言えんし

複数枚伝票を一度に発行するなら上限値管理用のセルなどを作ればメンテナンス性もそれなりに維持可能
0861名無しさん＠そうだ選挙にいこう2016/02/07(日) 23:11:52.79
てかさ、普通はそういうのって数式のほうでどうこうするもんじゃなくて
データの入力規則で不正な値ははじめから入力出来無いようにしとくもんじゃないの？
0862名無しさん＠そうだ選挙にいこう2016/02/07(日) 23:35:00.58
>>861
データの入力規則だとメンテナンス性が落ちるだろ
0863名無しさん＠そうだ選挙にいこう2016/02/07(日) 23:49:29.70
なにいってんだこいつ
0864名無しさん＠そうだ選挙にいこう2016/02/08(月) 02:16:36.15
>>844
8行目にエラーが出て処理出来ませんでした。
選択したリンクセルからの自動処理で自己により対応出来ました。
ありがとうございました。
0865名無しさん＠そうだ選挙にいこう2016/02/08(月) 07:09:21.57
>>862
逆だよ
入力されたデータがその後どこで使われるか分らないんだから
使われる場所でそれぞれチェックや修正をするよりも
一番の大元の入力部分でチェックしとくのが一番簡単
0866名無しさん＠そうだ選挙にいこう2016/02/08(月) 07:21:27.74
エラーで入力できないことを嫌がる層が一定数いる場合は
データの入力規則は使いにくいがね
特に文句言う奴がメンテナンスする人よりも立場が上の場合

そういうことを防ぐために修正用の作業セルを設ける方がいい場合はある
使うだけの立場だとエラーになるのって結構不快になるものだから
0867名無しさん＠そうだ選挙にいこう2016/02/08(月) 07:45:27.03
Excelは道具なんだから最適な使い方は状況次第
だからこそ同じことをやるのに何種類もやり方が用意されているとも言える

データの入力規則の方がシステム的に便利なのは間違いないが使う人が常に対等とは限らない場では
別手段の方がいいことも多い

ここに質問に来るようなExcel初心者は、比較的高い立場でないことも多いだろうし
0868名無しさん＠そうだ選挙にいこう2016/02/08(月) 09:57:51.32
>>866-867

イヤ、質問者自体エラー表示は出す前提で話をしてるようだけど?
ただ、それを数式でやると参照先全部のセルでそのような処理をする事になって面倒だから、いっそエラー値は入力されない前提で処理を組むべきか、修正のコストを受け入れて数式を直すべきか、って話題でしょ?
だからその修正方法として入力規則を挙げたんであって、
エラー表示が不快かどうかなんて何の争点にもなってないよ
0869名無しさん＠そうだ選挙にいこう2016/02/08(月) 11:04:45.30
エクセルの新型でついた=sumifs（）
の命令で複数条件で該当合計出せるみたいですが
エクセル2003でも同様のことするにはどういうしゅだんが有りますかね
0870名無しさん＠そうだ選挙にいこう2016/02/08(月) 11:17:44.50
>>869
sumproductで対応出来る
0871名無しさん＠そうだ選挙にいこう2016/02/08(月) 17:28:10.24
>>846
そういうエラーは回避しなくていいと思う。なんかミスが起これば起きてからでいいんじゃない？
もしやるなら、俺ならvbaでやるわ。イチイチ全部の計算式を書き直してたら終わらんしあまりにも見づらすぎる。

印刷ボタンで印刷するように設計し、
チェック→小数などがあればセルをアラートで出力して印刷中止。
という流れにする。
changeイベント辺りに挟んでもいいけど、さすがに重くなりそう。

また、入力も正規化させておくのも大事だな

>>866
俺も同じ意見だわ
入力間違えて毎回エラーが出るのは腹立つ
0872名無しさん＠そうだ選挙にいこう2016/02/08(月) 18:05:47.39
>>871

>入力間違えて毎回エラーが出るのは腹立つ

腹が立つかどうかとエラーを容認できる処理かどうかは別次元の話
俺なら入力時点でエラーをスルーされて
出力でエラーアラートが出るほうがよほど腹立たしい
0873名無しさん＠そうだ選挙にいこう2016/02/08(月) 19:13:10.48
XPを使い、エクセル2002で住所録を作っています
15人分ぐらいを作って、A4の用紙に横向きに
印刷したいのですが、余白が多すぎてどう調整したら良いのか
わからないので困っています、会社の掲示板に張り出したいの
ですが。
15人分ぐらいをA4の用紙の四隅にいっぱいに拡大して
印刷するにはどうすれば良いのでしょうか？
エクセル2002の教本や最新のものも読んでるのですが
解決策を見つけられずにいます
0874名無しさん＠そうだ選挙にいこう2016/02/08(月) 19:37:05.52
フォント指定
印刷設定拡大
印刷プレビュー
0875名無しさん＠そうだ選挙にいこう2016/02/08(月) 20:10:03.18
>>874
レスありがとうございます
もう少し詳しくお願いできませんでしょうか？

なにせ.2002なもので,ＰＤＡにも変換できなくて
コンビニプリントもできませんので
0876名無しさん＠そうだ選挙にいこう2016/02/08(月) 20:16:10.39
なるほど
フォントを大きいのにすると印刷結果も大きくなります
印刷設定に何パーセントに拡大という項目があります
プレビューみながら調整できます
0877名無しさん＠そうだ選挙にいこう2016/02/08(月) 20:18:38.90
>>873
思い切って大きいフォントで作って、
ページ設定で余白をすべてゼロに、縦1ページ、横1ページに設定する
0878名無しさん＠そうだ選挙にいこう2016/02/08(月) 20:21:36.38
>>873
印刷プレビューの画面で、余白を調節できた気がする
あと余白を1mmも作らない、という設定は出来なかった気がする。
プリンタドライバによってはできるかもしれないけど、ずれたらめんどくさいことになりそう。

もしくはカメラ機能使ったほうが早いかもしれん。2002であったかどうか忘れたけど
0879名無しさん＠そうだ選挙にいこう2016/02/08(月) 20:21:42.20
>>875
excel以外にも使えるCubePDFってのがお薦め
SDカードとかUSBでコンビニ・プリントできるよ
googってみw
0880名無しさん＠そうだ選挙にいこう2016/02/08(月) 20:23:30.37
プリントスクリーンでとってペイントで・・・
0881名無しさん＠そうだ選挙にいこう2016/02/08(月) 20:31:57.35
とりあえずちっちゃいまま印刷して、
それを拡大コピーでA4サイズにする。
というのはどうだ？
0882名無しさん＠そうだ選挙にいこう2016/02/08(月) 20:32:14.43
>>873,875
Excelの印刷時にだけ用紙サイズを変更して印刷する方法
http://okwave.jp/qa/q4016178.html

Excel2002での質問だったので、参考になれば
0883名無しさん＠そうだ選挙にいこう2016/02/08(月) 20:47:54.35
>>876-882
レスありがとうございます
こんなに親切な2ちゃんの板もあるのですね
0884名無しさん＠そうだ選挙にいこう2016/02/08(月) 22:07:00.40
>>883
横はいいのですが、縦に伸ばせないので
見栄えが悪いです、これで限界ですかね
0885名無しさん＠そうだ選挙にいこう2016/02/08(月) 22:33:32.93
>>884　行高さを変更できないの？
0886名無しさん＠そうだ選挙にいこう2016/02/09(火) 00:07:08.45
VBAや数式とは関係ない質問で申し訳ないのですが、
ある時、「Excel方眼紙は悪」と人から言われたのですが、
非常に複雑なデザインの帳票フォーマットで、それに従わないと正式書類とは認められず、
非常に細かいExcel方眼紙状態じゃないとそのフォーマットが再現できないのですが、
そのフォーマットを再現したExcel方眼紙は、それでも「悪」なのでしょうか？
0887名無しさん＠そうだ選挙にいこう2016/02/09(火) 00:55:41.96
方眼紙の善悪は宗教論争と同じで解決しない問題
仕事上の話なら強いほうに従って。
0888名無しさん＠そうだ選挙にいこう2016/02/09(火) 01:32:28.85
初めて質問させていただきます。PC知識がほぼ無いので、お手柔らかに頼みます。
【1 OSの種類 　 　 　 　 .】 Mac OS X Yosemite ver10.10.3
【2 Excelのバージョン 　 】 Excel for Mac 2011
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

タイムコードの認識のさせ方がわかりません。
「00:00:00:00」を「hh:mm:ss:ff」で、1h=60m 1m=60s 1s=24f　と認識させたいです。
そのうえで、セル同士のタイムコードの加減計算をできるようにしたいのですが、仕方がわかりません
どなたか分かりやすく教えていただけると幸いです
0889名無しさん＠そうだ選挙にいこう2016/02/09(火) 01:33:45.52
Excel方眼紙はクソ
理由はいっぱいあるけど、まず、Excelは表計算ソフトであることを理解して欲しい
0890名無しさん＠そうだ選挙にいこう2016/02/09(火) 02:42:18.12
>>889
表計算をするなら断然等間隔のほうがいいし
そもそも新規作成のデフォルトがれっきとした等間隔方眼紙状態だろ
方眼紙が嫌ならexcelやめたら？（ﾌﾟ
0891名無しさん＠そうだ選挙にいこう2016/02/09(火) 07:29:21.03
>>888
Excelにはそういう機能がないので、普通はVBAを使って計算する
VBA不可だと、加減算にはものすごく長い数式を書く必要がある

計算するにはフレーム数に直して加減算してから時分秒単位に戻す
例えば"hh:mm:ss:ff"をフレーム数に直す式はこんなん

=LEFT(A1)*86400+MID(A1,4,2)*1440+MID(A1,7,2)*24+RIGHT(A1,2)
0892名無しさん＠そうだ選挙にいこう2016/02/09(火) 07:30:01.34
【1 OSの種類 　 　 　 　 .】 Win7
【2 Excelのバージョン 　 】 Excel2007
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

既存の罫線がある表に条件付き書式を優先させる方法ありませんでしょうか？
点線になっている罫線を条件の合う場所のみ実線にしたいのですが
元々ある点線が優先されてしまい、条件付き書式の罫線が表示されません

具体的には、日数ごとの項目が１～３個ある状態で一日ごとに小計を作る必要があり
その小計の行を実線で囲わせたられればと

小計の位置は日によって変わるため条件付き書式で出来ればちょうどよかったのですが

>>888
素人考えだと項目をテキスト化してからMIDでセル分割して
それぞれMODやINTで計算してから統合すればできそうな気がします

VBAを学ぶしかないのでしょうか？
0893名無しさん＠そうだ選挙にいこう2016/02/09(火) 07:39:25.67
Excel方眼紙は有用
使いどころはいっぱいあるけど、
まず、表計算ソフトであることがExcel方眼紙を
否定する直接的根拠にはならないことを理解して欲しい
0894名無しさん＠そうだ選挙にいこう2016/02/09(火) 07:44:10.08
Excel方眼紙って、計算結果を使ってドット絵を書くようなことかと思ってましたが
実際には、請求書などを印刷するのに使うことを言うのですか

なぜ悪いのか、理解しかねますが玄人の方々にしかわからない理由がありそうですね
0895名無しさん＠そうだ選挙にいこう2016/02/09(火) 07:53:37.92
よくわからんけど、Excel方眼って
ドットプリンタとか決まった書式で枠切ってる請求書なんかに
請求内容印刷するときに
※※※みたいなかんじで座標おとすやつ？
0896名無しさん＠そうだ選挙にいこう2016/02/09(火) 08:07:36.96
データ処理の基本は「入力」「処理」「蓄積」「出力」を分けて考えること

Excelでは「入力」「処理」「蓄積」をやって、体裁を整えて出力するのはWordと使い分けるのが本来のやり方なんだけど、
出力までExcelでやってしまうのが俗に言う「Excel方眼紙」

体裁を整え規定の書式に合わせるためにセルの大きさを微調整したり結合するため、あとから訂正や修正が必要に
なった時に、その労力が無駄に大きくなってしまうという欠点がある
0897名無しさん＠そうだ選挙にいこう2016/02/09(火) 09:59:21.83
>>891
お答えいただきありがとうございます
Excelにはそういった機能がない、衝撃でした
VBAを少し理解してから、また質問したいと思います
ありがとうございました
0898名無しさん＠そうだ選挙にいこう2016/02/09(火) 10:09:11.12
>>896
それはExcel方眼紙の｢悪い一例｣に過ぎない。
単に図表入りの文章を作成するときには
word使ってやれタブだインデントだなんだかんだと
ゴチャゴチャ調整するよりも
Excel方眼紙使った方が簡単で早かったりする。

あと、値の入ってない単なる空の帳票の原簿とかも
Excel方眼紙だと簡単に作れる

実際に俺もユーザー車検用の点検記録簿の原稿とか
Excel方眼紙で作成した。
0899名無しさん＠そうだ選挙にいこう2016/02/09(火) 10:58:17.59
１枚物の印刷前提の紙作るなら好きにすりゃいい。
データとして使いたいなら方眼紙とか使ってる奴はクソ。死滅して構わん。
0900名無しさん＠そうだ選挙にいこう2016/02/09(火) 11:26:15.26
Excel方眼紙使いたい人はVisioお勧めする
0901名無しさん＠そうだ選挙にいこう2016/02/09(火) 12:10:31.65
>>898
お前がExcel方眼紙で原稿作成したからなんだっていうの？
0902名無しさん＠そうだ選挙にいこう2016/02/09(火) 12:13:57.47
入力用、処理蓄積用、印刷用でシートを分ければいいだけでは？
全部同じシートで済ませなきゃダメって制約があるなら別だが
0903名無しさん＠そうだ選挙にいこう2016/02/09(火) 12:29:11.46
集計表として作表してても違う項目の数字並べてるからAuto SUM出来ないような作り方してる上司
0904名無しさん＠そうだ選挙にいこう2016/02/09(火) 13:51:24.82
>>901

用途によってはExcel方眼紙が有用だと言ってるんだが理解できんのか?
気の毒に･･････
0905名無しさん＠そうだ選挙にいこう2016/02/09(火) 15:11:00.94
メモ帳は等幅フォントなのでスペースでレイアウトしやすいし
単に表を作るだけならセルの結合とかごちゃごちゃ調整するよりも
罫線記号を使えば簡単で早かったりする

実際俺も見積書をメモ帳で作成した


こうですか？
0906名無しさん＠そうだ選挙にいこう2016/02/09(火) 15:19:34.12
メモ帳は等幅フォント

え？


えっ？
0907名無しさん＠そうだ選挙にいこう2016/02/09(火) 15:22:48.20
Excelほど自由度の高い方眼紙は無い
異論は認めない
0908名無しさん＠そうだ選挙にいこう2016/02/09(火) 15:38:28.43
メモ帳はデフォルト設定だとMSPゴシックだな

まあ整形されたテキストデータのほうが正規表現とかで処理しやすかったりするし
他人から貰うんだったら方眼紙よりマシかもしれない
あとここ何スレだよ
0909名無しさん＠そうだ選挙にいこう2016/02/09(火) 18:17:00.33
Excelを方眼紙に使うのが悪いわけではなくデータ蓄積を利用するものなら
蓄積用の正規表現用いたシートを用意しないのが不便さを招くって話だろ

シート一枚のみですべてを行って、かつ方眼紙やる人が多いのも確かだけど
0910名無しさん＠そうだ選挙にいこう2016/02/09(火) 19:03:53.83
コピペできるだけ方眼紙よりいいって認識で使わないと
パソコンなんだから誰でも引き継ぐことができてデータだけ
変えたら使いまわしできるって感覚だと
前任者が凝りに凝りまくってたらこれ作る前に
死んでればよかったのにって思う
0911名無しさん＠そうだ選挙にいこう2016/02/09(火) 19:15:34.77
事務処理なら画面定義を必要としなく
複数sheetが使えるだけに汎用性があるね
0912名無しさん＠そうだ選挙にいこう2016/02/09(火) 20:15:13.36
ピボットテーブルで同じデータだと1番上のセルにだけデータがある表示になりますが、すべてのセルにデータを入れる方法はありますか？
0913名無しさん＠そうだ選挙にいこう2016/02/09(火) 20:28:57.34
あるよ
0914名無しさん＠そうだ選挙にいこう2016/02/09(火) 22:39:50.17
>>913
教えていただけないでしょうか？
0915名無しさん＠そうだ選挙にいこう2016/02/10(水) 07:23:50.22
>>911
データの引継ぎを意識するかどうかというのが大きいよな
日報感覚で使うならむしろ方眼紙的な使い方をした方が見やすい

>>914
判定用の作業列
0916名無しさん＠そうだ選挙にいこう2016/02/10(水) 18:36:28.58
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】いいえ
【4 VBAでの回答の可否】 可

　　　A　　　　　　 B　　　　　　C
1　　　　　　　　　1月　　　　　2月　　　　　
2　品目A　　 123,456　　　78,901

メール等にコピペすると

1月2月　　　　　
品目A123,45678,901

となってしまう

A2&"　　"B2&"　　"C2みたいにすると

品目A　　123456　　78901

となってカンマがなくなってしまいます
コピペしてもレイアウトが崩れないようにする方法ないでしょうか？
よろしくお願いします
0917名無しさん＠そうだ選挙にいこう2016/02/10(水) 19:14:40.12
>>916
メール先でどのように使用するかわからないけど
=text(b2,"###,##0")とか文字化すればカンマ付きで送れるよ
0918名無しさん＠そうだ選挙にいこう2016/02/10(水) 19:18:55.47
D1 =A1
E1 =LEFT(B1&"□□□□□□□□□□",10)
F1 =LEFT(B1&"□□□□□□□□□□",10)

D2 =LEFT(B1&"□□□□□□□□□□",10)
E2 =RIGHT("__________"&TEXT(B1,"#,###"),10)
F2 =RIGHT("__________"&TEXT(C1,"#,###"),10)

D1～F2を値形式でコピペ　スペーサーは適当に置き換えて
0919名無しさん＠そうだ選挙にいこう2016/02/10(水) 19:21:47.52
>>917
ありがとうございます！
コピペできるようになりました
0920名無しさん＠そうだ選挙にいこう2016/02/10(水) 19:22:44.80
>>918
ありがとうございます！
0921名無しさん＠そうだ選挙にいこう2016/02/10(水) 19:51:16.61
>>915
ありがとう。作業列しかないのか
0922名無しさん＠そうだ選挙にいこう2016/02/11(木) 00:33:55.96
パソコンを買ったらワードとエクセルが入ってたんだけど、ワードはお手紙を書くときに使えますが
エクセルは何に使えばいいですか？
0923名無しさん＠そうだ選挙にいこう2016/02/11(木) 04:53:00.24
Excel は表計算ソフトなので

表形式のデータ作成に使う
・家計簿とか
・予定表とか
・今の時期なら　確定申告の計算とか

中には Excelをワープロ代わりに使う人もいる(俺の事ww ) ←これは賛否両論あるけど
今とこ　何に使うか分らないんだったら 無理して使わなくてもいいんじゃね?


う・・・　そろそろ確定申告書まじで　作らなくては・・・・
0924名無しさん＠そうだ選挙にいこう2016/02/11(木) 06:26:11.41
>>922
Excelはお絵かきしたりゲームで遊ぶアプリですん
0925名無しさん＠そうだ選挙にいこう2016/02/11(木) 11:25:04.78
A1に値があればA1を、空白ならB1を返すというのはどう書けばいいですか
0926名無しさん＠そうだ選挙にいこう2016/02/11(木) 11:31:47.83
=IF(ISBLANK(A1),B1,A1)
0927名無しさん＠そうだ選挙にいこう2016/02/11(木) 12:56:37.98
>>925
=IF(A1="",B1,A1)
0928名無しさん＠そうだ選挙にいこう2016/02/11(木) 13:28:20.83
>>925
IF(A1<>"","A1","B1")
0929名無しさん＠そうだ選挙にいこう2016/02/11(木) 13:44:25.40
エスパーするなら
=IF(A1<>"",INDIRECT("A1"),INDIRECT("B1"))
かね
0930名無しさん＠そうだ選挙にいこう2016/02/11(木) 20:20:11.19
データ処理で使うときExcel方眼紙がネックになると
思っていたが、xoBlos使い始めて、その考えが変わった。
Excelのデメリットと思っていたところを埋めてくれる。
0931名無しさん＠そうだ選挙にいこう2016/02/11(木) 22:43:08.35
>>930
で、私たちに何を相談したいの？
0932名無しさん＠そうだ選挙にいこう2016/02/11(木) 23:51:37.14
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010

標準モジュール内に複数のオブジェクト名があり、それらの中に
H27年で始まるマクロ名を全てH28年に変える方法があれば教えてください。

例
Sub H27年売上集計() → Sub H28年売上集計()

1つのオブジェクト名だけなら置換でできましたが、オブジェクト名が
多数あるので、一括でできればいいのですが・・・
0933名無しさん＠そうだ選挙にいこう2016/02/12(金) 00:08:17.77
【1 OSの種類 　 　 　 　 .】 Windows8
【2 Excelのバージョン 　 】 Excel2013
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 可

シートＡ
　　　A　　　　　　 B　　　　　　C
1　品番　　　 口径　　　　サイズ　　　　　
2　123456　　 3　　　 40

シートＡからシートＢに記載の品番を検索して行を一括で削除する方法はありますか？
0934名無しさん＠そうだ選挙にいこう2016/02/12(金) 05:51:27.41
>>932
VBAのソースをワークシートにコピペ
オートフィルタでオブジェクト名の一覧を取り出し
一括で置換するVBAを作って実行
ワークシートの置換済みVBAをVBEにコピペ

みたいな感じかなあ
あと、来年以降は置換しなくていいように名前の付け方から考え直すって作業も今のうちにやっておく
0935名無しさん＠そうだ選挙にいこう2016/02/12(金) 08:13:52.36
>>926-929
全部正解っぽいですｔｈｘ
（ちなみに929さんのはオートフィルできなかったです）
0936名無しさん＠そうだ選挙にいこう2016/02/12(金) 11:36:19.29
【Excelのバージョン 　 】 2010

VBAの質問です。以下のコードってどう書きますか?

1) クラスモジュールに命令を書く　 Range("A1") = A
2) 標準モジュールでこの変数を A = 100 と指定する
3) 実行するとRange("A1")に100が出る

初歩的ですがつまずいてます
よろしくお願いします
09379362016/02/12(金) 12:27:47.00
いじり回してるうち一応自己解決しましたがアドバイスお願いします

クラス側
Public Function zzz(A)
Range("A1") = A
End Function


標準側
Sub x1()
Dim xxx As New Class1
A = 100
Range("B1") = xxx.zzz(A)
End Sub

↑のRange("B1")はどこにしても結果変わらないのですが
こう書くのが正しいのですか?
俺の知らない書き方があるのかな
0938名無しさん＠そうだ選挙にいこう2016/02/12(金) 13:11:06.15
あるのかなじゃねーよボケ。
そんなことすんのお前だけだ。
0939名無しさん＠そうだ選挙にいこう2016/02/12(金) 13:45:06.04
>>936-937
クラス側の Function zzz　が呼び出し側に　値を返してないので　標準側の
Range("B1") = xxx.zzz(A)
で指定したセル B1 の値を 結果的にクリアしてるぞ(壊しているともいう)

クラス以前の問題として
Function とか Subとか　そしてその呼び出し方とかを正しく理解してないと思われ
そこを先に勉強した方がよいと思うぞ　クラスをやるのはその後でいいと思う
0940名無しさん＠そうだ選挙にいこう2016/02/12(金) 14:27:29.92
>>939
ではどう書くのが正しいのですか
添削お願いします

要するにクラスに処理書いて
標準側では変数の定義だけして、クラスの処理の実行を命令するってのがやりたいのです

このB1てのはこうすればエラーにならないで実行されるから書いたってだけで
それ以外に必要性とか意味はありません
処理がそっくりクラスにある場合、標準側で実行命令ってどう書きますか
0941名無しさん＠そうだ選挙にいこう2016/02/12(金) 16:48:56.00
>>940
値を返さない Functionも あれだけど　それはスルーするとして
Range("B1") = xxx.zzz(A)
↓
call xxx.zzz(A)
又は
xxx.zzz A
0942名無しさん＠そうだ選挙にいこう2016/02/12(金) 17:00:10.44
お前はメソッドをcallで呼び出すのか。
なんのためにオブジェクト作るんだ。
バカの連鎖すげーな。
0943名無しさん＠そうだ選挙にいこう2016/02/12(金) 17:06:17.26
それじゃ我ら素人を土下座させる、素晴らしいコードをご披露ください
師匠と仰がせてもらいますよ
0944名無しさん＠そうだ選挙にいこう2016/02/12(金) 18:42:42.48
尻尾まいて逃げたか

みっともねw
0945名無しさん＠そうだ選挙にいこう2016/02/13(土) 02:37:27.56
>>924
あのおじいちゃんすげーよな。
0946名無しさん＠そうだ選挙にいこう2016/02/13(土) 15:59:15.98
関数で割り出した数値のセル番地を取得したいのですが

例
A
1 30
2 10
3 70
4 50
　
=MAX(A1:A4)　

この場合のマックスのセル番地を適当なセルに表示させる方法はありますでしょうか？
宜しくお願いします。
0947名無しさん＠そうだ選挙にいこう2016/02/13(土) 16:01:38.92
>>946
訂正します

例
　 A
1 30
2 10
3 70
4 50
　
=MAX(A1:A4)　

この場合のマックスで割り出される値の該当するセル番地を適当なセルに表示させる方法はありますでしょうか？
宜しくお願いします。
0948名無しさん＠そうだ選挙にいこう2016/02/13(土) 16:07:23.21
>>947
あるよ
0949名無しさん＠そうだ選挙にいこう2016/02/13(土) 16:15:18.58
>>948
何とかお教えいただけないでしょうか。。よろしくお願い申し上げます。
0950名無しさん＠そうだ選挙にいこう2016/02/13(土) 16:16:49.65
>>947
=ADDRESS(MATCH(MAX(A1:A4),A1:A4,0),1,4)
辺りが思いついた
0951名無しさん＠そうだ選挙にいこう2016/02/13(土) 16:21:36.07
>>950
無茶苦茶悩みましたがこんな式でできてしまうのですね、勉強になりました。
ありがとうございました！
0952名無しさん＠そうだ選挙にいこう2016/02/13(土) 20:10:02.26
913 名前：名無しさん＠そうだ選挙にいこう[sage] 投稿日：2016/02/09(火) 20:28:57.34
　　 あるよ

948 名前：名無しさん＠そうだ選挙にいこう[] 投稿日：2016/02/13(土) 16:07:23.21
　　 >>947
　　 あるよ
0953名無しさん＠そうだ選挙にいこう2016/02/13(土) 21:30:46.16
Excel2013を使っているのですが、
セルに入力されている数字を修正すると、空港のアナログの行先案内表示板（パタパタするヤツ）みたいに、
反映される速度が遅くなる現象が出るようになったのですが、何が原因でしょうか?

今週から現象が発生しています。
0954名無しさん＠そうだ選挙にいこう2016/02/13(土) 21:38:24.96
今月のWindowsUpdateでオフィス関係のアップデートがあったような。
巻き戻してみたら？
0955名無しさん＠そうだ選挙にいこう2016/02/13(土) 23:45:26.28
>>954
オフィス関係のアップデートによる影響だったんですね。回答ありがとうございます。
0956名無しさん＠そうだ選挙にいこう2016/02/14(日) 00:17:37.56
2013年
　 A　B　C ・・
1 30　3
2 10　1
3 70　100
4 80　5
・
・

2014年
　 A　B　C ・・
1 22　85
2 12　50
3 10　98
4 82　22
・
・

↑このような表で単位は％としまして
数年の表を相対比較して８０％以上の箇所が一致する箇所を探すにはどうやって探しますか？

上の表では
B3　と　A4　が療養とも８０％以上なので探したいポイントとなります
B1　は　2013年は数字が小さいので対象外となります。
毎年８０％以上の数値が同じ座標にある場合を探す作業です。

Excel初心者のため自分の思いついた方法は８０％以上に色つけをしてスクリーンショットをとり
フォトショップのレーヤー機能で重ね色が濃くなった箇所が同じだという方法しか思いつきません。
関数でやると大変な事になりそうな気がしますがどうでしょうか？
0957名無しさん＠そうだ選挙にいこう2016/02/14(日) 00:18:37.96
>>956
>療養 >>両方　でした。。
0958名無しさん＠そうだ選挙にいこう2016/02/14(日) 01:02:20.28
>>956
1年分が10行だとして、条件付き書式で

=AND(A1>=80,A11>=80,A21>=80 ・・・ )

みたいに書けば、条件に合う場所に色を付けたり簡単にできる
0959名無しさん＠そうだ選挙にいこう2016/02/14(日) 02:10:24.98
>>956
「探す」ってのは、どういうアウトプットを想定してるの？
VBA使えばどうにでもなると思うよ
09609502016/02/14(日) 07:58:28.74
>>952
答えが簡単すぎるから自分で調べろって意味だったんじゃね？
何の資格もない素人の俺でもすぐに思いつくような計算式で解決できてるし

ヘルプの関数一覧をみれば、ADDRESS関数は最初のほう（２０１３なら９番目）に
出てくるんだし
0961名無しさん＠そうだ選挙にいこう2016/02/14(日) 09:09:06.60
>>958
>>959
ありがとうございます。
同じセル数の別表を作って高い値の分布具合を見たい感じです。
adnで試してみます。
素人考えながら数年分の表の合計値を出せば８０かける年数でそれ以上の数の箇所が該当箇所となり現れると思いました
0962名無しさん＠そうだ選挙にいこう2016/02/14(日) 09:55:54.52
>>961
だから、具体的にどんなアウトプットを想定してるの？って聞いたつもり
セルに色付けたいのか、抽出して何らかの別表にしたいのか、
どうしたいのかわからないから答えようがない
自己解決したみたいだからよかったけど
0963名無しさん＠そうだ選挙にいこう2016/02/14(日) 10:36:58.02
>>933
重複行の削除なら出来る

一括の意味判らんがLOOP使いたくないって意味？
0964名無しさん＠そうだ選挙にいこう2016/02/14(日) 17:21:56.78
>>963
まとめてはシートBに入力済みの全品番という意味です（例えば５０件）
シートAには20000行ぐらいあります。
シートB（削除用リスト）に削除したい品番を週に50から100入力しています。
現在は一件ずつ検索して削除していますが非常に手間がかかるのでまとめて削除できないかと

シートBにxxx列を作ってINDEXMATCHが一番簡単な方法でしょうか？
過去レスを見て試しにやってみましたがなぜか２件しか認識されずに困っています。
0965名無しさん＠そうだ選挙にいこう2016/02/14(日) 17:45:49.38
【1 OSの種類 　 　 　 　 .】 Windows7
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可

シート１にあるAからHにあるデータをシート２にコピーしたいので
以下のような文をサンプルとして使いたいのですが、実行できません。

いろいろいじってみたのですが、シート１のAからIからセルにデータ
が入っているからのようです。
コピーしたいデータはAからHです。この表記法ではやはり問題があるのでしょうか？

sh1.Range(sh1.Cells(1, "A"), sh1.Cells(1, "H")).Copy _
sh2.Cells(1, "A")
0966名無しさん＠そうだ選挙にいこう2016/02/14(日) 18:08:12.02
>>965
本当にそんなコードでいいなら、マクロの記録でコードを生成すればいいんじゃ？
0967名無しさん＠そうだ選挙にいこう2016/02/14(日) 18:40:02.34
>>965
勘違いならごめんなさい
複写元のsheet名がsh1、セル範囲がa1:h100
〃　 先のsheet名がsh2、範囲は複写元と同じだとしたら、

for r=1 to 100
for c=1 to 8
worksheets("sh2").cells(r,c)=worksheets("sh1").cells(r,c)
next c
next r

と、おいらはする
0968名無しさん＠そうだ選挙にいこう2016/02/14(日) 21:10:22.77
> sh1.Range(sh1.Cells(1, "A"), sh1.Cells(1, "H")).Copy _
> sh2.Cells(1, "A")
sh1.Range(sh1.Cells(1, 1), sh1.Cells(1, 8)).Copy _
sh2.Cells(1, 1)
0969名無しさん＠そうだ選挙にいこう2016/02/14(日) 23:13:07.40
【1 OSの種類 　 　 　 　 .】 windowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否

A1＝10.0　B1＝（判定用）　C1=A1
A1はセルの書式設定で小数点以下1桁にしてあります。
B1に何かしら入力がある場合、C1は小数点以下1桁に、
B1が空白の場合、C1は小数点以下なしにするにはどうすればいいでしょうか？
0970名無しさん＠そうだ選挙にいこう2016/02/14(日) 23:37:36.74
>>969
条件付き書式
0971名無しさん＠そうだ選挙にいこう2016/02/15(月) 00:02:28.19
>>969
表示上? データ上?
Excel2003ぢゃ "表示形式"変更は VBA使わんと無理
Excel2007以降だと条件付き書式で可能だけど
0972名無しさん＠そうだ選挙にいこう2016/02/15(月) 02:03:45.41
>>969
データ上なら
C1=IF(B1="",ROUND(A1,0),ROUND(A1,1))
で済む話
0973名無しさん＠そうだ選挙にいこう2016/02/15(月) 03:13:47.86
>>969
ちょっと発想を代えて
C1 =IF(B1="",TEXT(ROUND(A1,0),"#0"),TEXT(ROUND(A1,1),"#0.0"))
でどうかな?

C1セルは文字列形式になるけど　暗黙の型変換で　後の計算には使える
09749692016/02/15(月) 05:47:16.39
>>970-973

TEXTを使ったら思ったようにできました
皆様ありがとうございました
0975名無しさん＠そうだ選挙にいこう2016/02/16(火) 17:45:05.44
エクセル2010でvbaを使わずに行いたい事で質問なのですが、
a3からa20迄日付、b3からb20まで一定間隔の時刻(lotの切り替え時刻)が入っている表があります。
a1に一度のlotで上がる量を入力し、a2に必要な量を入力したら、
c3からc20に、b列のどのlotで必要数量をこえたか表示したいと考えています。
また表示はb列の時刻のとなりに表示したいと考えています。vbaを使用せず処理できるのであればvbaを使わずに処理したいと思っていますので、よろしくお願いします。

例
400が一回の量で、1000kgが必要な量です。

A列 B列 C列
400kg
1000kg

1/1. 1:00
2:00
3:00 ◎
0976名無しさん＠そうだ選挙にいこう2016/02/16(火) 18:08:24.51
>>>975
C3=IF((COUNTIF(C$2:C2,"◎")*(A$1*(ROW(A1)>=A$2),"◎","")
で下方向にオートフィルすればできる気がする
ガラケーで散歩中に書き込んでるから、実際に試しちゃいないが
0977名無しさん＠そうだ選挙にいこう2016/02/16(火) 18:09:33.32
>>975
C1 =ROUNDUP(B1/A1,0)
C3 =IF(ROW()-ROW($C$3)+1=$C$1,"◎","")
で
C3を下にオートフィル
これでどうでしょうか?
0978名無しさん＠そうだ選挙にいこう2016/02/16(火) 20:53:56.19
ROW()-ROW($C$3)+1
って要するに
ROW()-2
だよね
0979名無しさん＠そうだ選挙にいこう2016/02/16(火) 21:01:52.74
>>977
ありがとうございます！出来ました。
もう一つ教えていただきたいのですが、c列に◎がつく時のa列の日付が土日の場合は月曜日に◎をつけることは可能ですか？
ようは最短出荷日の計算がしたいので、土日以外に表示出来ると助かります。お願いします。
0980名無しさん＠そうだ選挙にいこう2016/02/17(水) 00:31:35.57
質問させてください

条件つき書式でセルを色づけしたいんです
例えば　C2 と同じ数値のセルを色づけしたいとして、　=C2 と置くと
C2が空白だと、当然条件つき書式の対象のセルが空白で色がついてしまうわけです
セルが空白であることを除きつつC2と同値のセルを色づけすることって可能ですか？
0981名無しさん＠そうだ選挙にいこう2016/02/17(水) 01:00:55.46
入力規則のリストをindirectを設定したいのですが上手くいきません。

「注文1」、「注文2」、「注文3」...と名前を定義してあるリストがsheet1にあります。この名前は=INDIRECT("sheet1!A$2:A"&COUNT(sheet1!A:A))のようにデータの入っている範囲のみ選択するようになっています。

Sheet2のA11:13に1、2、3...と番号を振ったセルがあり、その横のセルに注文1～3の入力規則を設定したいのです。
そのまま「=注文1」...と設定すると上手くいくのですが、「=INDIRECT("注文"&A11)」...とするとエラーになってしまいます。

今手元で操作できないのでうまく説明できないのですが、どなたかわかる方いらしたらお助けください。
0982名無しさん＠そうだ選挙にいこう2016/02/17(水) 01:07:58.83
>>980
そのの状態で　もう一つ新しいルールを作成
="" 書式設定しない

んで ルールの管理で下記の順番に

="" 書式設定なし　("条件を満たす場合は停止"にチェック)
=C2　　色づけ

とする

ポイントは ="" の条件にヒットしたら　以降は評価させないようにする事
0983名無しさん＠そうだ選挙にいこう2016/02/17(水) 01:20:23.08
>>982
ありがとうございます
並び順が優先順位だったんですね、何気なく設定してました
助かります
0984名無しさん＠そうだ選挙にいこう2016/02/17(水) 03:14:39.48
>>979
D列を作業列として

C1 =ROUNDUP(B1/A1,0) ・・・・生産完了Lot
C2 =MIN(D3:D20) ・・・・最短出荷Lot(土日除く)

C3 =IF($C$2=D3,"◎","")
D3 =IF(AND(WEEKDAY(A3,2)<=5,ROW()-2>=$C$1),ROW()-2,"")

C3～D3　を下にオートフィル
0985名無しさん＠そうだ選挙にいこう2016/02/17(水) 07:21:17.43
教えてください…
横計算の合計についてなのですが
b4～b8とd4～d8に入力した数値を掛けた合計をf4～f8のそれぞれのセルで表示 するようにしたい場合どのように入力したらよいのでしょう…？
それともしよけれぱ初心者にもオススメのエクセルの教本も教えていただけたら助かります。
0986名無しさん＠そうだ選挙にいこう2016/02/17(水) 07:41:13.59
>>985
いまいち意味がわからないんだが
どのセルとどのセルを計算するんだ？
0987名無しさん＠そうだ選挙にいこう2016/02/17(水) 08:03:15.27
>>986
ごめんなさいわかりにくい質問しました、聞きたいのはb2×d2をf2へb3×d3をf3へb4を…という要領でbとdに入れてある数値をfで一つ一つ手打ちせずまとめて合計を計算したいんです。
0988名無しさん＠そうだ選挙にいこう2016/02/17(水) 08:19:57.71
>>987
はじめが f2 だとすると
f2 に = b2 * d2 って入れてあとはそれを下にオートフィル
0989名無しさん＠そうだ選挙にいこう2016/02/17(水) 08:46:28.52
>>988
うわあ…スッゴい簡単ですね…
ありがとうございます！これではかどります！
0990名無しさん＠そうだ選挙にいこう2016/02/17(水) 09:11:27.79
>>984
回答ありがとうございます。
やってみたのですが、それだと最短lotを無視して◎が表示されてしまいます。
割り算してるセルの値でなくMinの返す値で◎がつくので最短lotを満たした次の月曜日に◎をつけたいのですが可能ですか？
09919852016/02/17(水) 21:55:03.08
>>986
b4、b5、b6、b7、b8とd4、d5、d6、d7、d8です。
0992名無しさん＠そうだ選挙にいこう2016/02/18(木) 00:06:41.79
うめ
0993名無しさん＠そうだ選挙にいこう2016/02/18(木) 00:19:09.52
>>992
次スレ立てる前に埋めるなｗ

次スレ
Excel総合相談所 121
http://peace.2ch.net/test/read.cgi/bsoft/1455722222/l50
0994名無しさん＠そうだ選挙にいこう2016/02/18(木) 05:26:40.22
うめ
0995名無しさん＠そうだ選挙にいこう2016/02/18(木) 06:59:01.82
>>990
D列を作業列にして
D3=IF(WEEKDAY(A3,2)<6,"稼働日","")
C3=IF((COUNTIF(C$2:C2,"◎")=0)*(A$2*COUNTIF(D$3:D3,"稼働日")>=A$1),"◎","")

で下方向にオートフィルとかどうだろう？
稼働日の定義を変更すれば祝日などにも対応可能になるはず
09969952016/02/18(木) 07:21:56.16
土日も生産するなら
D列はそのままで
C3=IF((COUNTIF(C$2:C2,"◎")=0)*(A$2*(ROW(A3)-2)>=A$1)*(D3="稼働日"),"◎","")
にするでいいかな？
0997名無しさん＠そうだ選挙にいこう2016/02/18(木) 07:26:06.04
いやむしろ、作業列なしで、

C3=IF((COUNTIF(C$2:C2,"◎")=0)*(A$2*(ROW(A3)-2)>=A$1)*(WEEKDAY(A3,2)<6),"◎","")
でいいのかorz
0998名無しさん＠そうだ選挙にいこう2016/02/18(木) 07:31:04.04
梅
0999名無しさん＠そうだ選挙にいこう2016/02/18(木) 07:37:01.55
埋め
1000名無しさん＠そうだ選挙にいこう2016/02/18(木) 08:44:58.61
999！！
10011001Over 1000Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
10021002Over 1000Thread
２ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。


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

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

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