X



Excel総合相談所 130
レス数が1000を超えています。これ以上書き込みはできません。
0332名無しさん@そうだ選挙にいこう2018/02/12(月) 20:33:31.95
libreofficeが入ってるPCの場合
microsoftのoffieをいれなくてもいいですか?
入れた方がいい?入れるのが面倒なだけだが。
画面や機能が違ったりします?重いとか
03343252018/02/12(月) 21:52:22.98
2行目 C * F / 2
3行目 D / 25
4行目 E + G + H ・・・ など五行はそれぞれ数式が違うんです
ただ、その五行はセットに成っていて、五行ごとに同じ数式なので
フィルでコピーしたいんですが、無いですか。。。しょうもないから延々ドラッグします
0336名無しさん@そうだ選挙にいこう2018/02/12(月) 22:04:54.11
とか書きながら、 >>327 さんの 2 連続データの挿入 でなんかできそう?
とか試してたら・・  なんと、ダミーデータでいいから L列 を埋めとけば
三行ずつだろうが五行ずつだろうがフィルできました やっほー

ダミーデータは計算式で上書きされるからでたらめなものでもよかったですし、ひとつりこうになりました
0337名無しさん@そうだ選挙にいこう2018/02/12(月) 22:19:47.96
すでにコメがついていたから書かなかったけど
名前ボックスのやつが一番直感的だと思うけどな
名前ボックスで範囲指定したあとに
フィル、連続データ作成、オートフィルでドラッグした時と同じ効果だよ
0339名無しさん@そうだ選挙にいこう2018/02/12(月) 23:07:45.70
試しに、で、2007で試したんですが、
L列が空のときはなんも反応しなかったんですよ その名前ボックス使ったりしても

で、マウス・ドラッグで二十行ぐらいてきとーに試したりしてて、もっかい名前ボックスを
試したらそこだけ勝手に上書きされたんで もしや?と、ダミーデータ埋めてみたらいっきに
最下行までできたと  お礼し忘れてました ありがとうございました

手順としては 数式入ってる五行を選択 → 名前ボックスに範囲記入 → フィル →
連続データの作成 → 列 → オートフィル → OK  ですよね?
明日仕事PCの2010 や 2013、2016とかで試してみますけど、アッパー・バージョンなら空でも
いけるのかな
0340名無しさん@そうだ選挙にいこう2018/02/12(月) 23:50:24.37
>>339
オートフィルというかフィル機能は最初のデータを参考にして後のセルを埋めていくので
完全に空だとうまくいかない
5行ごとの繰り返しだと、最初の5行は何らかの方法で入力されていないとダメ
0341名無しさん@そうだ選挙にいこう2018/02/13(火) 23:35:22.18
>>327 さんの 1 フィルハンドルをD Click で呆気無く出来てしまいました 2010
2007 だと、うんともすんとも反応しなかったんですけどね

列の下方向ぜんぶから状態でも無問題 隣の列から離れていてもおk L列とばしてM列でもという意味
今までのだらだらマウスドラッグは何だったんだ ほんとうにありがとう

で、むしろ下方向にダミーデータがある状態だと体感で五倍ぐらい時間が掛かってしまった
ちゃんと上書きする挙動は同じだけど、途中で(応答なし)が出るほど時間が掛かった
そのまま放置してればちゃんと処理が終わるんだけど  因みに84,000行のデータで試した  一応報告でした おそまつ
0342名無しさん@そうだ選挙にいこう2018/02/14(水) 23:55:28.23
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 否
【4 VBAでの回答の可否】 可

A列に時間があります
下に行くほど後の時間(時間順)に並んでいます
B列に予定の内容がテキスト形式であります
A列の時間が過ぎたら
ABともに背景をグレーにしたいのですがどうすれば良いでしょうか

情報の更新はリアルタイムが望ましいですが、
難しければ、さいあく5分刻みで更新でも大丈夫です

VBA環境はありますが文法やプログラムが全くわからないので
VBAの場合はコピペでできるレベルまで書いていただければ幸いです
0343名無しさん@そうだ選挙にいこう2018/02/15(木) 00:56:46.85
自分でf9押すたびに更新されるとかなら簡単(たぶん)。

でなきゃvbaになると思うけど、時刻の部分をどう入力してて、どう処理するかによる。

0:00から23:59までの、1分刻みのデータ(シリアル値)なのか、
それとも日付まで入っているのか(この場合もシリアル値)。
後者なら「過ぎた」か、そうでないかの判断は簡単だけど、前者だと何をもって「過ぎた」と考えるのか。
0344名無しさん@そうだ選挙にいこう2018/02/15(木) 17:52:12.83
ググったんですがわからないので質問します。
場違いな場合は誘導してくれると助かる。

データを作っていて1行に対して、ABCDEをセル内に持つ列項目があったとして
どれか1つに当てはまる場合(例:A)
復数に当てはまる場合(例:BDE)もあるとする。
今現在は一つの列に書いているのでドロップダウンリストで全ての組み合わせ
(a-e.ab-de.abc-cde.abcd-bcde.abcdeの15種?)から選ぶことになる。
これだとaを含むものを探す時にフィルターした時にa単独で当てはまるものは出るが、acのように復数当てはまるものが同時にフィルターに掛けられない。

解決策としては、1列で済ませずに列abcdeを足せば出来るけどそれだと見た目がよろしくないし入力が手間。(実際は50以上に渡るので。)
なので一列にこれらをいれて、フィルターで復数検索をできるようにはならないんですか?
0347名無しさん@そうだ選挙にいこう2018/02/15(木) 21:08:45.48
>>344
問題のシートを、データだけ架空のものにして、画面イメージ(PrintScreenからペイントに
貼り付けて必要な範囲だけにして)をアプロダにて示してもらえば、誰か力を貸してくれるかも。
ブックそのものをアップするのはやめた方がいいです。どこかに個人情報(会社のPCなら会社の
情報)が残ってるかもしれないので。
0348名無しさん@そうだ選挙にいこう2018/02/15(木) 21:30:21.57
>>346調べてみます、ありがとうございます

>>347既に結構めんどくさい状況ですので差し控えますがありがとうございます>>345

>>345するーでおk
0349名無しさん@そうだ選挙にいこう2018/02/16(金) 09:15:30.36
>>345
おそらくロングスパゲティ作っちゃう思考なんだろう
どういう思考の者がどういう式などを書くか参考になっていいじゃないか
0352名無しさん@そうだ選挙にいこう2018/02/16(金) 22:45:43.94
大体 >>344 の説明だと
その1行にABCDEを含む列も含まれているのか
1行は何列かだけで、そこにABCDEを含む列は含まれていないのか。

それも文章からじゃわからない
0354名無しさん@そうだ選挙にいこう2018/02/17(土) 08:17:32.86
office2010
新しくブックを作ると標準のスタイルとして何かの設定が最初から入ってるけど、
このデフォルト値を変更するにはどうすればいい?
0356名無しさん@そうだ選挙にいこう2018/02/17(土) 10:50:52.44
それだとフォントくらいしか設定できないような
配置とかの初期値も気に入らない

セルのスタイルのワンセットのテンプレートを作って、
それを設定できればいいんだけど
0358名無しさん@そうだ選挙にいこう2018/02/17(土) 12:29:32.69
なるほど
もう初期値を変更することは諦めて、何かで上書きしてしまえばいいという方針

なんだろうこの押しつけの強さ
0359名無しさん@そうだ選挙にいこう2018/02/17(土) 16:30:39.01
(音源1)
トラック1 50:40 トラック2 50:40
トラック3 50:40 トラック4 50:40

トラック5 50:40 トラック6 50:40

(音源2)
トラック1 31:02 トラック2 31:02
トラック3 31:02 トラック4 31:02
トラック5 31:02 トラック6 31:02

音源1のトラック3 20:22と入力して瞬時に
音源2ではどこの時間になるのかとういうのを
エクセルの計算でやりたいのですがどうすればよいのでしょうか?
音源1のどこのトラックの時間指定しても瞬時に入力して音源2ではどこのトラックの
時間なのかを知りたいのです。
音源1と音源2は、00:00:00から同時スタートです。
トラック間の終了時間が違うだけです。
0360名無しさん@そうだ選挙にいこう2018/02/17(土) 16:36:36.82
例と文章が合ってないのと、なんで横に二つ並べるのかというのと、
そもそもやりたいことがよく判らないけど、
時間なんてただの数値だから、秒数で計算できるならあとは表示の問題
0362名無しさん@そうだ選挙にいこう2018/02/17(土) 22:11:08.03
>>359
テンプレもないし、どの文字列がどの列や行かも書いてないし、少なくともスマホで見てる分には左に詰まってるから推測でしかないけど下記の状態?

A列
(音源1) 、トラック1 、3、5 (音源2) 、トラック1 、3、5
B列
50:40 ×3、31:02×3
C列
(音源1) 、トラック2、4、6(音源2) 、トラック2、4、6
D列
50:40 ×3、31:02×3

これさ、せめて下記状態にする事は可能?

A列
(音源1) 、トラック1 〜6
B列
50:40 ×6
C列
(音源2) 、トラック1 〜6
31:02 ×6

あと、作業列使ってもいい?
0365名無しさん@そうだ選挙にいこう2018/02/17(土) 23:13:24.62
=hyperlink("url","■")
みたいにして、クリックする場所を示したりするけど、
セルの中のどこクリックしてもリンクになるような、セルの幅変更に追従するような
リンクの張り方ってできる?
urlは別のセルの内容から計算するので固定にはできない
0366名無しさん@そうだ選挙にいこう2018/02/17(土) 23:23:43.49
>>365
無理
文字列をクリックさせる方式だと、どうしてもセルの壁と文字の間に隙間ができる
マクロを使ってセルの選択から処理させるしかない
0368名無しさん@そうだ選挙にいこう2018/02/18(日) 10:32:34.81
>>344
フィルターにそこまでの機能はない
関数で組めばリストの抽出は可能
0370名無しさん@そうだ選挙にいこう2018/02/18(日) 12:02:56.65
元々は、「ハイパーリンクを開く」のメニューが =HYPERLINKのセルに対して出てこないから、
マウスでクリックする羽目になってるんだけど

=HYPERLINKのリンク先をキーボードから開く方法は無い?
0371名無しさん@そうだ選挙にいこう2018/02/19(月) 10:34:13.02
エクセル2016で縦撮りの写真を貼るときなんだけど
撮る人によって右手を上にする人と左手を上にする人がいて
それをリサイズして写真を縦に起こしてから貼るんだけど
写真の回転補助がそれぞれ右と左に出るんだよね
貼るときはいいんだけど図の変更で写真を差し替えるときこの方向が違う写真を差し替えると上下逆に出てしまう
2010の時はそんなことなかったのに
0373名無しさん@そうだ選挙にいこう2018/02/19(月) 12:49:30.26
>>371
今までと同じデジカメで撮った写真ならば(Exifの仕様が同じなら)
2016の写真のExifの読み込み方法が変わったかバグだろうね
0374名無しさん@そうだ選挙にいこう2018/02/19(月) 15:24:00.62
win10ってそもそもexifを読み込んで写真を勝手に縦にするんだよな
たまに横の写真が縦だったりするわ
で、付属の写真アプリで開いても縦なんだけどフリーソフトとかで開くと横だったりする
フォルダ内で回転させたのとフリーソフト等で回転させた向きが合わずにフォルダ内がカオスになったことあった
0375名無しさん@そうだ選挙にいこう2018/02/19(月) 21:06:13.92
写真撮影時に写真の縦横がExifに記録されないデジカメもあるしね
そんな画像ファイルはExifデータを修正しておかないと後々面倒だ

まあ切り分けていかないと原因は判りにくい
0376名無しさん@そうだ選挙にいこう2018/02/20(火) 07:37:57.46
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

指定したシートを、入れたい文字でPDF形式で保存したいと考えています。
具体的には、a-見積書-20180220-20180228.pdfのような感じで
aは参照するセルの内容によって可変。
20180220と20180228は参照するセルによって可変で、当該セルは和暦表示(例:平成30年2月20日)としています。

また、保存先は作業ブックと同じディレクトリをデフォルトととし、
重複する名前のファイルがあった場合の確認ダイアログを表示させたいと考えています。

ExportAsFixedFormat Type:=xlTypePDF、Application.DisplayAlertsの使用と
FilenameをString宣言するまでは、調べてわかったのですがファイル名の日付への反映がうまくいきません

よろしくお願いします。
0377名無しさん@そうだ選挙にいこう2018/02/20(火) 22:29:06.63
>>376
こんなんでいけるんじゃない

Sub Macro1()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & Format(Cells(1, 1), "yyyymmdd"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
0379名無しさん@そうだ選挙にいこう2018/02/20(火) 23:41:43.37
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可
オートフィルタで絞ったまま可視セルのみでセル移動をし、さらに移動した可視セルに入力した内容を可視セルの一番下までペーストするため引っ張りたい

オートフィルタで絞る列はもちろんデータが入ってますが、他に空白の列がありその列の可視セルだけにデータを入力しそのまま下までペーストしたいのがやりたいことです

普通にoffsetでセル移動すると非表示セルへ移動しデータを記載してしまいます
検索しましたが解決できていません

宜しくお願いします
0382名無しさん@そうだ選挙にいこう2018/02/21(水) 18:10:20.08
手作業だと出来ても、それを記録したマクロはダメってこともあるよね

俺は印刷設定の改ページを変更したくて、
それをマクロの記録でコードにしたけど、
そのコードを実行しても改ページは変更できなかった

具体的な記録内容としては
ファイル開いて、改ページプレビューにして、改ページ位置の点線を動かした
でも手作業では上手くいくのに、そのマクロでは何にも変わらなかった
0383名無しさん@そうだ選挙にいこう2018/02/21(水) 21:31:01.61
>>379
どこまで自動化するのかわからないけど、オートフィルタしてあると仮定して
Dim ftable As Range 'オートフィルタの選択範囲
Dim target As Range 'それぞれの抽出セル

'A1にオートフィルタデータがあるとして
Set ftable = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)

For Each target In ftable
'この辺で好きにしたらいいと思う
Debug.Print "セル位置" & target.Address
Next target
03843792018/02/21(水) 22:28:59.06
offsetで解決できました
ありがとうございました
0385ほんとの3792018/02/21(水) 23:00:25.66
>>382,>>383
レスくださった方々ありがとうございます。
>>384が379になりすまして書いてますが自分が>>379を書いた者です

>>383を試しまたレスするようにします
ありがとうございます

>>381
記録だと具体的なセル番地を読み込んでしまうだけでした。。
0386ほんとの3792018/02/21(水) 23:21:10.74
>>383
まだ試す前ですが、入力する値はA1には元々入っている…ことはなく、
例えばオートフィルタして1行目はそれぞれカラムの項目名として
A2,A3が非表示となりA4が1番上にあるとするとしたら、A4にバナナと記載しそれをオートフィルで下まで引っ張る
でまずバナナと入力するセルをA4にしたいのに非表示のA2になってしまうのだ!という事なのです。。。
0387ほんとの3792018/02/22(木) 06:45:35.73
>>383
>どこまで自動化するのかわからないけど、
>オートフィルタしてあると仮定して

前後は他にもあるけど、オートフィルタ設定、絞る、絞った可視セルに単語記載→下まで引っ張る
このオートフィルタ絞り記載引っ張るの一連を12種類繰り返すので自動化したいという訳なのです
0388ほんとの3792018/02/22(木) 06:47:20.42
うぉおおおおおおおおおおおおおおおおおおおおおおおおおおおおおお
0389名無しさん@そうだ選挙にいこう2018/02/22(木) 20:36:11.85
shift-spaceで1行選択して、
ctrl-d で上の行をコピー

をすると、行コピーとか挿入とかいろいろ苦労してやらないといけない、
数式や書式をキープしたまま行が増やせて便利
0391名無しさん@そうだ選挙にいこう2018/02/23(金) 10:32:36.86
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
シート1に数字の表があり、シート2でシート1のA5+A8+A10の計算をしているとき、
シート3で同じくシート1のB5+B8+B10のように列をずらして計算させたいのですが、数が多く手作業では負担が大きいため関数で解決できるとありがたいです。
offsetとindirectの組み合わせでできないか試してみたのですがやり方がよく分からず断念しました
宜しくお願いします
0392名無しさん@そうだ選挙にいこう2018/02/23(金) 10:50:18.79
391の追記ですが、
シート1のデータは毎回変化するので予めセル指定することができないため、
1か所に入力したものを元に計算できないかと思い質問させていただきました
0394名無しさん@そうだ選挙にいこう2018/02/23(金) 13:52:33.81
>>393
違うシートの同じセルに列をずらして計算させたいのですが相対指定でずらせるものなのでしょうか?
0395名無しさん@そうだ選挙にいこう2018/02/23(金) 18:19:48.26
>>391
Sheet1が左端にあって、Sheet1のB3:K12に10行10列のデータがあり
M列に5, 8, 10行目のデータを抽出するために作業列{0;0;0;0;1;0;0;1;0;1} を加える

=SUM(OFFSET(Sheet1!$B$3, 0, SHEET()-2, 10, 1)*Sheet1!$M$3:$M$12)
と入力して shift + ctrl + enter

シートが目的の順に並んでいる限り目的行の和が得られるけど
正直お勧めしない
0397名無しさん@そうだ選挙にいこう2018/02/23(金) 22:25:23.08
>>394
元の計算式の入ったシートをコピーして
ズラす分だけ行削除か挿入で調整。
必要なら後から書式のみコピーで整えて終わり。
0398名無しさん@そうだ選挙にいこう2018/02/23(金) 22:33:28.23
一度作って終わりでいいのかメンテを続ける必要があるのかだな

ちゃんとしたデータ構造になってれば、計算も楽なのが普通
計算が大変なのはちゃんとしてないからで、それでも一度限りなら残業して仕上げればいいけど、
その後誰かが使うなら、その人が可哀想
0399名無しさん@そうだ選挙にいこう2018/02/24(土) 09:23:40.26
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

年月日を入力したところ全く異なる生年月日に変換されてしまいます
オリジナルの年月日より数十年前の年月日になっています(月日も異なる)
こうなる理由とオリジナルに戻す方法をご存知でしたらお願いします
0403名無しさん@そうだ選挙にいこう2018/02/24(土) 10:46:57.20
>>401
1975/6/6と入力されたセルは1941/9/16と表示されます

既に変換された生年月日が入力されているため
オリジナルの年月日に直したいのです
0404名無しさん@そうだ選挙にいこう2018/02/24(土) 11:06:53.63
>>403
原因や法則がわからんことには直しようがないんだよなあ

そのブックを作ったのは誰で、その時に使ったExcelのバージョンはわかる?
日本以外の国で作られた物だとカレンダーの計算がまったく違ってることもあるんだけど
0405名無しさん@そうだ選挙にいこう2018/02/24(土) 11:09:37.90
>>402
そのセルには数式は入ってない?
そのブックにマクロは登録されてない?

本当にシリアル値になってるかどうか確認したいので、どれか一つ、日付とシリアル値の数字を正確に書き写して
0406名無しさん@そうだ選挙にいこう2018/02/24(土) 11:23:45.57
>>404
ブックを作ったのは他部署の人
なのでバージョンも同じ2010だと思います

>>405
1975/6/6は1941/9/16と表示されますが
書式設定を標準にすると15235になります
0411名無しさん@そうだ選挙にいこう2018/02/24(土) 12:35:58.31
409
それって1975/6/6って意味じゃなくて、単純に6桁の数字を入れたら勝手に日付に変わったってこと?
まだ法則が見えてこない
0414名無しさん@そうだ選挙にいこう2018/02/24(土) 16:25:44.63
>>409
無い
恐らく書式設定が日付のところに
19756辺りを打って、シリアル値が日付に変換されたのだろう

1941/9/16も間違っているはず
19756だと1954/2/1になるからこの辺の日付だろう
0416名無しさん@そうだ選挙にいこう2018/02/25(日) 12:04:35.27
ロケールの問題だったりして?

あと、そのセルの現在の表示形式ってまだこのスレには書いてもらってないよね
標準に変更する前にちゃんと確認したのかな
0417名無しさん@そうだ選挙にいこう2018/02/25(日) 12:40:53.41
2017/1/11 も 2017/11/1 も 2017111 なのか知りたい
因みに、桐からもらったフォーマットだと 2017/ 1/11 とか 2017/11/ 1 とかが有って「を?」と思ったことはある
その時はインポートした後に 確かに変な日付に成ってた
CSVにエクスポートした相手の担当が無頓着だっただけだろうが
04183792018/02/25(日) 14:28:45.66
>>409
新規のブックだけ開いて入力してどうか
それでも正しい日付にならないならエクセル側の問題
該当のブックやシートのみなら一回書式をクリアするなりでやり直してどうか
0420名無しさん@そうだ選挙にいこう2018/02/25(日) 14:32:53.96
質問してる人は入力してないんだよな
こういう風に入力したと聞いてるのに、そうなってない
何でだ

実はそう入力してないからという単純な話な気がする
0421名無しさん@そうだ選挙にいこう2018/02/25(日) 15:10:07.55
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否

ピボットテーブルで、全てユニークなデータの場合、
「Σ:値」に入れる項目は何が良いでしょうか
0423名無しさん@そうだ選挙にいこう2018/02/25(日) 21:32:18.33
>>422
求人の集計です。タウンワーク、バイトルなどの媒体に求人を出していて、
どの求人媒体が効果的か・・・と言った感じです
他には最終的な合格率なども求めます
データは以下のような感じです
日時は同じセルに入っています

日時 媒体 結果
1/1 9:00 タウンワーク 合格
1/1 10:00: バイトル 辞退
1/2 10:00 タウンワーク 不合格
1/3 10:00 バイトル 辞退
0424名無しさん@そうだ選挙にいこう2018/02/25(日) 21:34:02.17
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否

ピボットテーブルで、「行ラベル」「列ラベル」の文字列を非表示にすることはできますか?
0427名無しさん@そうだ選挙にいこう2018/02/26(月) 14:48:49.21
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否

リンク先に飛びたい時、マウスでクリックするのではなく
リンクのところまでセルを動かして、キーボードのボタンだけで
移動するのってどうすればよいのでしょうか?
0428名無しさん@そうだ選挙にいこう2018/02/26(月) 17:38:08.48
【1 OSの種類         .】 Windows 10
【2 Excelのバージョン   】 Excel 2016
【3 VBAが使えるか    .】 いいえ(コピペして貼り付ける程度です)
【4 VBAでの回答の可否】 否

あるセルに文字列と数字が混ざっていて、そこから他のセルに数字だけ抽出する場合はどうすれば良いでしょうか
また数字も全角の場合は文字列扱いとなりますが、これを数字に変換して抽出する事は可能ですか?
WebクリエからGoogle為替レートのドル円為替相場のデータから数字だけを抽出したいと考えています
円/ドルだと、例ですが「1JPY/USD =0.00133」と表示されます
このうち、0.00133を抽出したいのです
全角数字の場合は文字列になってしまいますが…外国の友達に送るものなので、できれば半角英数字に変換できるのが1番好ましいです
0429名無しさん@そうだ選挙にいこう2018/02/26(月) 17:39:29.04
クリエ→クエリですすみません
0434名無しさん@そうだ選挙にいこう2018/02/27(火) 00:14:57.33
エクセル2010です。
一つのエクセルで複数のブックを開き、表示を標準(最大、最小以外)にしたときに、
ブックの上部がエクセルリボンの下に入ってしまい、ブックをエクセル上で移動できない状況になるときがあります。
この状況を打開するにはどうしたらよいでしょうか?
回答お願いいたします。
0437名無しさん@そうだ選挙にいこう2018/02/27(火) 12:00:12.37
>>428
規則性が無いと難しそうだ

あとアポストロフィ付きの数字があると面倒だな
ISNUMBER関数だと文字列と判定される
VALUE関数なら数値になるけど
0438名無しさん@そうだ選挙にいこう2018/02/27(火) 15:57:09.72
以前下記のExcelでメールを作成してメールソフトに流し込むVBAを教えてもらいました
件名と本文が中国語等日本語以外だとメールソフトに流し込まれた時に文字化けします
メールソフト側でUTF-8のメールを作成するようVBAでコントロールできないでしょうか

Sub createMail()
CreateObject("Wscript.Shell").Run _
"mailto:" & URLEncode(Range("B4").Value) & _
"?cc=" & URLEncode(Range("B5").Value) & _
"&subject=" & URLEncode(Range("B6").Value) & _
"&body=" & URLEncode(Range("B7").Value)
End Sub

Function URLEncode(ByVal strOrg As String) As String
With CreateObject("ScriptControl")
.Language = "JScript"
URLEncode = .CodeObject.encodeURI(strOrg)
End With
End Function
0442名無しさん@そうだ選挙にいこう2018/02/27(火) 20:23:34.05
【1 OSの種類         .】 Windows 10
【2 Excelのバージョン   】 Excel 2016
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

セルに計算結果が表示され、その計算結果が1未満であれば1、1以上であればその数字を表示させるにはどうしたら良いでしょうか。

例えばC1が=A1×B1となっており、
A1×B1が0や-1であれば、C1に1と表示され、
A1×B1が1であればC1に1、2であればC1に2と表示されると言った感じです。

よろしくお願い致します。
0446名無しさん@そうだ選挙にいこう2018/03/03(土) 10:23:28.78
391です
返事が遅くなって申し訳ない

>>395
この例だと毎回作業列に手を加えないといけなさそうですね…
知識として参考にさせていただきます
ありがとうございました

>>396
txtファイルはウイルスバスターで弾かれて見れておりません…
一応具体的な構成ですが、
・システムから出力される毎月の営業成績データから個人別に各項目の売上小計及び合計を出したい
・個人別のシートが既に作成されており、営業データから各項目を足して小計を出していく
・営業成績データの項目数が毎月変化するので小計部分の位置がその月によって変化する
・営業成績シートの構成としては、A列項目名、B列項目詳細、C〜J列個人別売上金額
分かりづらくてすみませんがこのような状態です

>>397
毎回調整作業をする必要はありますが作業量の減少はできそうですね
目的の式が作れなかった場合はこの方法でやっていこうと思います
ありがとうございました
0447名無しさん@そうだ選挙にいこう2018/03/03(土) 11:58:14.72
表示されてない行があって、再表示では表示されず、オートフィルターを解除してもダメ
で結局、VBAで行高さを確認したところ2000行ぐらいのデータのうち高さ0が十数行もあった。
高さ変更して解決したと言えばしたんだけど、なんで高さ0になっちゃったんだろ?
知らず知らずのうちマウス操作ミスって高さ変更ドラッグとかやってしまってるんだろか?
どうも納得がいかない
0448名無しさん@そうだ選挙にいこう2018/03/03(土) 13:04:23.36
複数シート選択してるのに気付かずに、
高さ変更とかした影響がよそに及ぶことがある

複数シート同時編集とかやることは希なんだから、
明示的に有効にしない限りoffになってて欲しい
0450名無しさん@そうだ選挙にいこう2018/03/03(土) 15:29:37.22
>>448
複数シート選択してるとそういうこともあるんですね
でもそんなことしてるとは到底思えないんです。

たまたま操作ミスで高さゼロにしてしまうことがあるのなら、
行高さをが5だったり、時には20だっりとかあると思う。
でもなぜか高さ0ばかり。

人為的なミスで高さ0が連発ってありえないような気がするんだけど、
人為的ミス以外に高さ0が発生する要因ってあるんですかね?
0453名無しさん@そうだ選挙にいこう2018/03/03(土) 19:17:54.60
式が判ってて収束値を求める、みたいなのなら、
反復計算でできちゃうな
解析的に解けない式でも答えが出せてしまう
0454名無しさん@そうだ選挙にいこう2018/03/03(土) 23:09:07.97
vbaマクロで、ヘッダーにシート名を付けるにはどう記述スレば良いでしょうか?
マクロの記録だと以下のようになります

With ActiveSheet.PageSetup
  .CenterHeader = "ヘッダータイトル &A"
End With
0455名無しさん@そうだ選挙にいこう2018/03/03(土) 23:42:38.50
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

ピボットテーブルで質問です
以下のデータがあるとして、
ピボット一発で集計する方法はありますか

id 項目
1 りんご
2 みかん,りんご
3 ばなな
0456名無しさん@そうだ選挙にいこう2018/03/03(土) 23:49:14.34
>>451
Ctrl+9で行非表示って初めて知りました
でも行非表示と行高さ0って同じなんですかね?

Ctrl+9で例えば30行目を非表示にすると29、31と行番号が飛んでるけど
29,31行を選択右クリック再表示で30行目が表示されるはずだけど
>>447にも書きましたが、このときには再表示でも表示されなかったんですよ・・・
0458名無しさん@そうだ選挙にいこう2018/03/04(日) 00:58:04.05
高さ0や非表示は再表示で表示される

高さ1みたいな、カーソルは止まるけど見えないようなのは、
再表示してもそのまま
0459名無しさん@そうだ選挙にいこう2018/03/04(日) 01:24:14.84
高さ0と非表示は違うと思ってたけど、同じみたいね。
どちらも0(非表示)にする前の高さ情報持ってるし、同じ操作で再表示できるし。
subtotal関数の引数にしても、同じ結果になるし。
0460名無しさん@そうだ選挙にいこう2018/03/04(日) 07:59:25.92
行に対して高さ情報と表示フラグがあって、
高さを変える処理は高さだけ変えてフラグはそのままの筈なんだけど、
0の時だけ例外的に高さ情報はそのままでフラグの方を変える
04634592018/03/04(日) 09:11:48.95
vbaでhiddenプロパティ取得しても、どちらもtrueになってる。
高さ0にしても、非表示にしても、hiddenはtrueになる。
verは2016(365)。
知らなかったな、というか以前は違った気がする。
0465名無しさん@そうだ選挙にいこう2018/03/04(日) 10:12:59.97
非表示にしたのと高さ0にしたのと、xlsxファイルを展開して比較しても、
時刻以外に差分は無いので完全に同一だと思っていい
0470名無しさん@そうだ選挙にいこう2018/03/04(日) 17:32:52.03
>>468 フィルタは解除したんですが再表示されなかったんです。
>>469 確認できる最も古いデータは2015年。自分の記憶を辿ってもOffice2010を買って以降のものと思われます。
0471名無しさん@そうだ選挙にいこう2018/03/04(日) 17:45:49.46
フィルターは解除したつもりが解除できてないことが多いからなあ
全解除ボタンがあるのに隠しコマンドみたいになってるし
0475名無しさん@そうだ選挙にいこう2018/03/04(日) 19:41:23.45
ctrl-2とかctrl-3とか、アクセスいいのに使わないキーを再定義したい
あと、F2の機能を別のキーにもアサインしたい
0476名無しさん@そうだ選挙にいこう2018/03/04(日) 20:27:46.86
この前入った新人に手元ガン見されて、ショートカット設定やらを真似しようと思ってるらしく、参った
だったら普通に教えて欲しいと言われた方が100倍マシ
0478名無しさん@そうだ選挙にいこう2018/03/04(日) 21:19:32.38
フィルターのクリアのボタンは、押すとクリアできるのは当然として、
あれがグレーになってるとフィルターがかかってないというインジケーターを兼ねてるから、
常に見えるとこに出しとかないと価値が半減なんだよな
0481名無しさん@そうだ選挙にいこう2018/03/04(日) 21:38:26.21
いじりたくても殆どいじれないがな

読み取り専用設定は登録する
あれ無いと、ネットワークで共有とかできないし
その上、リボンからは辿れないという
0483名無しさん@そうだ選挙にいこう2018/03/04(日) 23:10:05.32
今の環境は人とPC共有することもなければ、コマンドの使い方から説明しなければならないこともないからショートカット設定しても問題ないな
0484名無しさん@そうだ選挙にいこう2018/03/04(日) 23:24:35.55
読み取り専用の解除でしょ
あれたまーに使う。本当にたまにしか使わないからいつも検索してやり方探してるワ
0486名無しさん@そうだ選挙にいこう2018/03/08(木) 09:52:37.61
ADOの仕様変わった?
便利にSQL文でSheetをTable代わりにして読み込んでたんだけど、
いつしか読めなくなってた。
connectionのopenでエラーが出る。
色々調べてみたところ、自分自身のBookに対しては、Openでエラーが出るが、
開いていない他のBookではエラーにならずOpenできる。
0487名無しさん@そうだ選挙にいこう2018/03/10(土) 02:13:12.86
【1 OSの種類         .】 Windows 7 64bit
【2 Excelのバージョン   】 Excel 2003
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 できるだけ否

A1の[ ' 1 - 20 ]これを隣のB1にコピーすると[ ' 1 - 20 ]とコピーされます。
A2の[ ' 2 - 20 ]これを隣のB2にコピーすると[ 2 - 20 ]となります。

B2は最初の[ ' ]が消えてしまうのですが何故なのでしょうか?
A1もA2も表示形式の分類は「標準」となっているのですが…
0493名無しさん@そうだ選挙にいこう2018/03/10(土) 16:16:30.47
アポストロフィは強制文字列じゃなくて、左寄せを指定する為の文字なんだよな
まだセル毎の属性とか無かったlotus1-2-3とかの頃の仕様
0498名無しさん@そうだ選挙にいこう2018/03/11(日) 12:50:54.63
複数のアクティブセルの行を一括で選択する方法ありますか?
単一セルだとsfift+spaceで出来ますか、複数だとできません
0499名無しさん@そうだ選挙にいこう2018/03/11(日) 15:06:45.04
>>491
天才だろ
0500名無しさん@そうだ選挙にいこう2018/03/11(日) 15:08:09.95
>>498
範囲に名前をつけて、その後は名前を選んでdel
0501名無しさん@そうだ選挙にいこう2018/03/11(日) 15:40:21.12
グラフを使ったアニメーションが作りたいのですがボタンでコマを送るプログラムが出来ません
読ませるセルは決まってますので一つ下のセルを読ませたいです。
何かヒントでも良いのでわからないでしょうか?
0503名無しさん@そうだ選挙にいこう2018/03/11(日) 20:19:38.60
>>498
複数セルを選択
右クリック、削除
行全体を選択

エクセルぶっこわれたから試してないけど、多分こんな感じで行けたと思う
0508名無しさん@そうだ選挙にいこう2018/03/11(日) 22:11:18.20
マウスでしかできない操作って結構多いよな
マウスしか使わない人は全く気にしてないだろうけど、
極力キーボードを使う派はまたかよーと出来の悪さを嘆く
0510名無しさん@そうだ選挙にいこう2018/03/11(日) 22:39:20.88
>>508
外資系投資銀行の新人はまずマウス取り上げられてショートカットやらキーボードのみで仕事することを仕込まれるらしいけど、実質マウス使わない縛りをすると逆に手間増えることもあるよね
やっぱ合わせ技にしとかないと効率悪い
0511名無しさん@そうだ選挙にいこう2018/03/11(日) 22:47:05.55
excelでの作業をプロジェクターでみんなで見ながら、
会議とかレビューとかすると、キーボードで操作しちゃうと何してるか判らないんだよな
逆にマウスしか使わない方が歓迎されてしまう

右のシートに移動とか、ctrl-pgdnだろ、と思っても、
ぐっとこらえてタブをクリックする
0512名無しさん@そうだ選挙にいこう2018/03/12(月) 00:17:14.17
>>498
アクティブセルは常に1つ。複数あることはない。
(Excel複数起動とかの場合は除く)
多分選択範囲か、選択セルのことだと思うけど。
0513名無しさん@そうだ選挙にいこう2018/03/12(月) 00:23:57.83
いやいや
縦に連続した複数のセルを選択して、
shift-spaceを押すと、複数の行が同時に選択される

それをそのまま演繹して、選択されたセル全体に対して行選択されても、
何の違和感も無いけど、実際にはそうならない

それは単に、そういうモードをソフトが持ってないからに過ぎない
0515名無しさん@そうだ選挙にいこう2018/03/12(月) 19:51:10.49
「Microsoft Office 互換機能パック」が4月で引退 〜11年間以上もの長い間ありがとう!|窓の社
ttps://forest.watch.impress.co.jp/docs/serial/yajiuma/1110841.html
0516名無しさん@そうだ選挙にいこう2018/03/14(水) 10:51:01.62
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 ? 2010年蚊も
【3 VBAが使えるか    .】 いいえ コピペ程度。開発環境いれてない
【4 VBAでの回答の可否】 不明

エクセルの表。行の文字を入力したり更新したとき、その日付と時刻を入れたい

PC上で表を作成は可能。マウスとキーボード操作離れてるから。
スマホの端末で表をつくることは難しいですか?
どうやってドラックしてみたいなのがわからないわすまほわ
0517名無しさん@そうだ選挙にいこう2018/03/14(水) 11:25:43.65
>>516
自動的に何かのデータを入れるのはVBA使わないと無理

VBAはメニューに出てこないだけで勝手に入ってる可能性がある
Excelを起動してAlt+F11押してみ
0518>>5162018/03/14(水) 12:07:55.42
>>517
日付表示はないですね
0521>>5162018/03/14(水) 13:30:18.10
>>519
ありがとう
しかしこれはまず大変かもw

年〜秒で一遍出だせないんですか?
0523名無しさん@そうだ選挙にいこう2018/03/14(水) 18:10:59.42
オフィスを買ってPCにいれてプロダクトキーをいれて
別PCにオフィスをいれてプロダクトキーいれると
認証されなかったりしますか?認証される?
0526名無しさん@そうだ選挙にいこう2018/03/16(金) 04:47:01.51
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】否

A列に任意の数値を入力して、(B数値+2)のマスに+1していく
という式をお願いします
05275262018/03/16(金) 05:44:46.18
いったん完全に作り直すので質問を取り下げます
0528名無しさん@そうだ選挙にいこう2018/03/16(金) 06:45:33.13
Aランク入力 B品番出力 C品番 Dランク E在庫 

Cには品番が上から下へ行くほど大きく(0、1、2、3と抜けなし)
Dのランクは上から順に下へ行くほど大きく(同数有)
Eの在庫は0〜

Aにランクを入力すると、Bに在庫があって(0ではなくて)一番ランクが低い(上にある)ものの品番を出力したいのです
よろしくお願いします
05295282018/03/16(金) 06:46:02.72
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】否
05305282018/03/16(金) 06:47:51.85
Aに入力したランク以上で、一番低く、在庫があるもの
です
0531名無しさん@そうだ選挙にいこう2018/03/16(金) 20:03:28.37
【1 Windows10】
【2 Excel2007】
【3 いいえ】
【4 否】
上から順に0の連続した数を数える式を教えてください。
空白は処理せず、0以外があるといったん連続を0としてまた数え直したいです。
A
0
0
0
1
0

0
の場合は2です。
0533名無しさん@そうだ選挙にいこう2018/03/16(金) 20:45:16.46
2002のエクセルはどうなんでしょう?

表計算程度しか使わない。表でソートと、入力制限?みたいなリストから選ぶやつの機能しか使ってない

今2010つかっててほぼ直感でいろいろ作れて便利ではある。
古いのは直感が使えなかった気がした
05345312018/03/16(金) 20:59:52.33
>>532
作業列ですか
連続した0の数を出力する、そのあと下のものを選ぶ、とかでしょうか?
0536名無しさん@そうだ選挙にいこう2018/03/16(金) 22:52:16.22
>>530
作業列を使っていいなら簡単
F列辺りに条件が合致するかの式を作って、合致した行のC列をVLOOKUPで参照
0538名無しさん@そうだ選挙にいこう2018/03/16(金) 23:48:00.83
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 はい・
【4 VBAでの回答の可否】 可・

マクロボタンを押して日付を取得して、特定の場所に保存するときに、ブックサイズが200KB以上では保存できないマクロを作成したいのですが、
「日付の取得」「リネーム」「特定の場所に保存」「サイズの取得」まではできましたが、「200KB以上は保存しない」ができません。わかる人がいましたら、ご教授願います。
0539名無しさん@そうだ選挙にいこう2018/03/16(金) 23:50:40.00
=COUNTIF(C2:C40,I2,E2:E40,0)
C2~ C40がI2で、且つ、E2〜E40が0を数えたい
「多すぎる引数が入力されています」とはどういうことですか?

【1 Windows10】
【2 Excel2007】
【3 いいえ】
【4 否】
05405392018/03/17(土) 00:22:28.96
COUNTIFSを使えばよかったのですね、自己解決しました
0542名無しさん@そうだ選挙にいこう2018/03/17(土) 10:54:37.53
【1 OSの種類         .】 Windows 10
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否※VBAの方法しかない場合は可です。

300個の改行がされている文字列のテキストファイルをExcelの1セル内毎に読み込みたいのですがやり方を教えていただけないでしょうか。

例)「あ.txt い.txt」
A1にあ.txtの文字列
B1にい.txtの文字列

上記のように1セルに収めたいです。

普通に読み込みと、あ.txtの場合は、
A1〜H1列までにまたがって、一行1セルとなってしまいます。
05465422018/03/17(土) 11:25:02.03
全部手動でやるのがめんどくさいので…
何かいい方法があればと思い質問しました
0547名無しさん@そうだ選挙にいこう2018/03/17(土) 11:32:00.99
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

A列に日時、B列に人の名前、C列に業務内容が入った表があります。
【例】
2018/3/17 10:00    佐藤    会議
2018/3/17 10:20    山田    買い出し
2018/3/17 10:40    鈴木    掃除
2018/3/17 10:50    佐藤    休憩
2018/3/17 10:50    山田    面接
2018/3/17 11:00    佐藤    書類整理
2018/3/17 11:20    鈴木    接客
2018/3/17 11:40    佐藤    会議

この場合、D列には10時の会議のところから00:50、00:30、00:40、00:10…という感じで
次の業務までの時間を表示させたいです。
A列の日時は他のシステムで連携使用しているため、名前ごとにソートなど配列変更はできません。
B列の名前を条件にA列の時間の差分が出せれば良いのですがどうすれば良いでしょうか。
0548名無しさん@そうだ選挙にいこう2018/03/17(土) 12:05:49.55
あ.txtのファイルの選択とA1のセルの選択は、一意には決まらないんだから、
どうやっても自動化は無理なのでは
05515422018/03/17(土) 14:54:51.45
自分でできました。
ここの人たちは無能ということだけ分かりました(笑)
0553名無しさん@そうだ選挙にいこう2018/03/17(土) 16:51:13.00
Excel2010のVBAについて質問です
手でコピーしたWebページを取り込むマクロは作っていたのですが
手のコピー自体を省略するために QueryTables.Add で取り込むと
スペースの全角・半角で不一致が起きています
おそらく区切り文字関連の連続なども不安です
CSV取り込みなどの設定が効いてるようなのですが、うまく制御できません
QueryTables.Addでそのまま取り込む設定を教えていただけないでしょうか
0554名無しさん@そうだ選挙にいこう2018/03/17(土) 17:36:39.50
エクセルで勤務シフトを作ろうとしています。
どんな関数を使えば良いかが分かりません。


運送業なのですが、シフトを組む際に、勤務時間帯と併せて配達するコースの割振りも必要です。

コースはAコース、Bコースと言う具合にあらかじめ名前がついて決められています。


このコースの割振り漏れ防止のために、割振り漏れのコースがあった場合、どこかのセルに漏れたコース名を表示したいです。


既に勤務時間帯とコースはそれぞれプルダウンリストから選択出来るようにしてあります。


イメージとしては、

田中さんの4月1日のシフトは、A1に勤務時間帯、A2にコース。4月2日ののシフトは、B 1に勤務時間帯、B2にコース。

佐藤さんの4月1日のシフトは、A3に勤務時間帯、A4にコース。4月2日のシフトは、B3に勤務時間帯、B4にコース。

鈴木さんの4月1日のシフトは、A5に勤務時間帯、A6にコース。4月2日のシフトは、B5に勤務時間帯、B6にコース。


と、言った具合で勤務時間帯とコースのワンセットで日々のシフトが一覧出来るようにしています。

どういった関数を使えば解決出来ますでしょうか?
0555名無しさん@そうだ選挙にいこう2018/03/17(土) 17:41:40.08
なんでエクセルやワードはこんなに高いんですか?
ただの文書ソフトで10年前と特に変化もない。
グラフィックの最新ゲームと比べて値段がおかしいです
0557名無しさん@そうだ選挙にいこう2018/03/17(土) 18:12:09.79
>>554
いってる意味がよくわからんw
もうちょっとくわしく短時間で理解できる文でないと
時間を凝らして内容を理解してくれる人はいるのかどうか

エクセルの表の入力制限でできるじゃないの
0559名無しさん@そうだ選挙にいこう2018/03/17(土) 18:24:06.10
コースがABCの3つだとして、プルダウンでABCが選べて、
どこか(日別だろうから上か下)に、まだ未選択のものが表示されてる
ということかな
3つなら見れば判るけど、10個だともう判らない

理想を言えば、プルダウンで未選択のものだけが選べて、
プルダウンが空になれば全部選択完了、みたいなUIが良さそうだけど
0560名無しさん@そうだ選挙にいこう2018/03/17(土) 18:26:28.12
A=1, B=2, C=4みたいに2進数を割り振って、
sumを7から引く
0なら割り振り完了

みたいな基本アイディアはどうだろう
0562名無しさん@そうだ選挙にいこう2018/03/17(土) 18:57:54.14
>>554
プルダウンで表示ってことはどこかにコース一覧を作ってあるだろうから
それを再利用して、シフト表のコース列をCOUNTIFで検索するだけでいいんじゃないかなあ
出力されるのはコース名じゃなく対応人数だけど
0565名無しさん@そうだ選挙にいこう2018/03/17(土) 21:06:04.57
>>547
D1=IFERROR(INDEX(OFFSET(A1,1,0,COUNTA(A:A)-ROW(),1),MATCH(B1,OFFSET(B1,1,0,COUNTA(A:A)-ROW(),1),0))-A1,"予定なし")

あとは、オートフィルで下までコピーしてね。

ちなみに、一行目に項目名が入るのかどうか書いてなかったのと
リストが何行目まであるのかわからなかったからこうなった。
あと、次の予定がない場合についてどうするか書かれてなかったから"予定なし"にしてる。


・・・確定していることがもう少しあったら、もっと短くできたかも。
とはいえ、もうちょっとスマートな方法ありそうだけど・・・
ごめんね、こんなもんしか考えつかなった。精進せねば。
0566名無しさん@そうだ選挙にいこう2018/03/17(土) 21:06:47.01
会社で使うからそのバージョンに細かく合わせて対応する必要があるだけで、
個人で使うなら、わざわざ金払わずにOpenOfficeとかでいいのでは
0568名無しさん@そうだ選挙にいこう2018/03/17(土) 23:20:11.10
2003のサポートが終了したからみんな乗り換えてるけど、
それがなければ2003に留まりたい事業所は多かっただろうな
2010で必要十分なので、2013とか2016はまだ触ったことがない
05695382018/03/18(日) 00:04:58.05
>>541
fileLenでファイルサイズを取得後の扱いがわからず困っています。IF関数にしても変数の指定方法がわかりません。
0572名無しさん@そうだ選挙にいこう2018/03/18(日) 01:50:13.27
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

Excelで重複しない乱数(整数)を発生させたいのですが、
ググってもRANDとRANKを使えという情報しか出てきません。。。。
RANKで乱数を振ってRANKの順位を使うという方法です。
これって、RANDの数値が重複したら使えませんよね?
確率的にはかなり低いですが。。。

どうすれば解決できるのでしょうか?
0574名無しさん@そうだ選挙にいこう2018/03/18(日) 09:38:42.58
>>572
RANK()とrow()を使う

乱数 順位 row 作業列 最終的な順位
0.2 2 1/1000 2.001 2
0.5 1 2/1000 1.002 1
0.2 2 3/1000 2.003 3
0.1 4 4/1000 4.004 4

こうすれば重複しない1-4の整数の乱数が生成できる
0577名無しさん@そうだ選挙にいこう2018/03/18(日) 12:10:34.42
>>574
横レスだけど、その場合小さい数字が先に出やすくなるのでは?
ほぼ無視できる確率だし、後先は関係ないなら問題ないけど。
0579名無しさん@そうだ選挙にいこう2018/03/18(日) 12:40:41.66
RAND関数にでたらめな数を要求する場合は引数に負数(マイナスの数)を指定するというのが常識
昔のBASICの時代は、RAND(-TIME)とかがよく使われた(TIME関数はシステム時刻で同じ値を2度返すことはない)
0584名無しさん@そうだ選挙にいこう2018/03/18(日) 14:14:31.94
VBAのRND関数は疑似乱数
実用上問題ない程度の長い周期で同じ数字列がループしてる
初期化というのはループのどこから始めるかを指定するだけなので、ヘタに初期化すると同じ数字が出る可能性が高まる

MSDNにも「所定の初期シードの場合、同じ番号シーケンスが生成されます」と書いてある
https://msdn.microsoft.com/ja-jp/vba/language-reference-vba/articles/rnd-function

同じ数字が出て欲しくないなら、いちいちチェックして取り除くか、別の方法を使った関数を用意するかどちらか
0590名無しさん@そうだ選挙にいこう2018/03/20(火) 03:17:14.94
よろしくお願いします
【1 OSの種類         .】 Windows7pro-64bit
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

VBAではなく、関数の組み合わせで実現したいことがあります。
ある列に、200行くらいにわたって、ゼロを含む数値か空白が入力されています。
この列の、「空白でもゼロでもない数値」のあるセルの、もっとも上の行番号と、
もっとも下の行番号を、それぞれ取得したいです。数値の大きさは関係なく、
とにかくゼロより大きい値の存在する最上位行と最下位行を知りたいです。

途中で作業用のセルを使ってもいいので、何か関数を組み合わせてできないでしょうか?
0591名無しさん@そうだ選挙にいこう2018/03/20(火) 03:58:54.63
>>590
https://i.imgur.com/EBxSQ8E.jpg

これでいいかな

IF セル<>0、の条件で0と空白両方判定されて、真ならROW()で行番号が作業列に表示
偽のときは指定しないと0が表示されちゃうからとりあえずFALSEにしたけど任意
これらの結果の範囲に対して、最上位行でMIN、最下位行でMAXの関数を使う
0592名無しさん@そうだ選挙にいこう2018/03/20(火) 04:06:38.53
>>591訂正
あ、>ゼロより大きい値、か

マイナスはありえないのか(訂正不要)、マイナスがある場合は無視すべきなのか(訂正必要)
それとも最上位最下位の対象にしていいのか(訂正不要)で、ちょっと修正いるな
0593名無しさん@そうだ選挙にいこう2018/03/20(火) 04:20:52.58
>>591
どうもありがとうございました!!!!

他の人はどういうか知らないけど、すくなくとも世界で私だけは、
あなたのことを大天才と認定します。
助かりました!!!!
0595名無しさん@そうだ選挙にいこう2018/03/20(火) 07:48:04.03
【1 OSの種類         .】 Windows8
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

A列に開始時間、B列に終了時間、C列に人の名前(毎回7人がデータにある)、D列に「業務中」もしくは「空き時間」が入った表があります。
このパターンでデータが縦並びになっています。

このとき、7人全員が業務中になっている時間と7人全員が空き時間になっている時間をそれぞれ合計で出したいのですがどうすれば良いでしょうか?
6人が業務中で1人が空き時間の場合などは集計対象外です。
あくまでも7人全員で被った範囲の時間の合計を出したいです。
0597名無しさん@そうだ選挙にいこう2018/03/20(火) 11:13:08.67
【1 OSの種類        】 Windows10
【2 Excelのバージョン  】 Excel 2016
【3 VBAが使えるか    】 いいえ
【4 VBAでの回答の可否 】 否

ビルドを前に戻したくて
officec2rclient.exe /update user updatetoversion=16.0.8730.2122
を実行しました。
すると、
>Suggestion [3,General]: コマンド officec2rclient.exe は見つかりませんでしたが、現在の場所に存在します。
エラーが出てきます。
どうしたら解消できますか?
0600名無しさん@そうだ選挙にいこう2018/03/20(火) 19:11:39.98
オフィス365
上の列?を3つぐらい選択して表を挿入すると
先頭の列しか表にならない

また角をドラッグしてしたにのばしてオートフィルで123456・・・みたいなのもできない


オフィス365はもしかして機能が大幅に劣るダメそふとなんですか?
0601名無しさん@そうだ選挙にいこう2018/03/20(火) 19:25:39.36
>>598
index,matchへ切り替えるのがスマート
0602名無しさん@そうだ選挙にいこう2018/03/20(火) 19:28:41.34
>>600
機能が劣るのではなく元々そういう仕様
気に入らないのならExcel2016にしましょう
0605名無しさん@そうだ選挙にいこう2018/03/20(火) 20:09:12.84
indexもmatchも使ったことないな

これは縦方向の話で、それはvlookupでも別に困ってなかった
横方向の列指定を、3じゃなくてA3とか使って書ければ済むだけの話で、
indexの為に範囲指定したから登場したけど、同様に「A3を含む列」みたいな
指定ができれば後はvlookupの方がシンプルなのに
0606名無しさん@そうだ選挙にいこう2018/03/20(火) 20:21:30.72
>>604
Excel2010でも
A1に1を入れて、右下角の黒ぽちでしたにコピーした
だけだと1,2,3とはなってくれないよ1,1,1ですよ。

ctrlキー押しながらコピーするか。
右下の選択肢選ぶか。
1,2と打ってから2セル選んでフィルするか。

ま、この辺でしょうね。
0607名無しさん@そうだ選挙にいこう2018/03/20(火) 20:26:07.13
>>604
あ、ごめん
3つくらいえらんでと言うのを見逃した
>>606は無視して
0608名無しさん@そうだ選挙にいこう2018/03/21(水) 16:39:12.75
エクセルで2つのファイルひらいているのに1窓で表示されます
どうやったら2つのブラウザみたいにできますか?

ウインドウズ10でdesktopを5ぐらい作っていて1つで
エクセルを開くと
すべてのデスクトップでエクセルが見えてしまいます
1つだけのdesktopで見えるようにしたいんですが
0610>>6082018/03/21(水) 17:37:35.54
2つのウインドウで表示はなんとかできましたが
ウインドウズ10で田薄のデスクトップを作成すると
他のデスクトップに表示され続けてしまうのがわかりません。
0612名無しさん@そうだ選挙にいこう2018/03/21(水) 18:55:22.10
なんか変
COLUMNS(A1:C3) の A1:C3 とは言葉で言うとどういう領域なのか、説明できない

A1もC3も両方書いちゃうなら、
COLUMN(A3) - COLUMN(A1) + 1
の方が直感的に判る
0615名無しさん@そうだ選挙にいこう2018/03/21(水) 23:19:06.59
【1 OSの種類         .】 Windows10 64bit
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

ファイルサーバに置いたExcelのファイルを「ブックの共有」で複数人が同時に
アクセスして編集するんだけど、ときどき上書き保存できない場合がある。
編集した内容を確実に保存する方法ってあるんでしょうか?
0616名無しさん@そうだ選挙にいこう2018/03/21(水) 23:24:38.56
共有を止めて、編集する人以外は読み取り専用にしておく方法もある

うっかり読み取り専用なのに編集してしまって、編集内容を失う悲劇も起きる
0617名無しさん@そうだ選挙にいこう2018/03/21(水) 23:46:59.89
>>611
COLUMNSにすると列の増減に対応できるって事?
a::cとかの方が良い気がする

>>615
他の人が保存してる時は保存できない
確実に保存する方法は多分、ない
ってかエクセルの共有はウンコすぎるので、共有使うならスプレッドシートの方がいいよ
0618名無しさん@そうだ選挙にいこう2018/03/22(木) 00:02:18.08
1 OSの種類         .】 Windows 7
【2 Excelのバージョン   】 Excel 2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否


(A9−A1)/8の解をB2〜9に表示がしたいです。
下記の条件で、B2〜9に入る数式を教えていただきたいです。
A1及びA9の数字は予め確定しています。
B1は空白です。
A2にはA1+B2を表示します。(以降A9まで同条件)

条件
(A9−A1)/8の解が、少数第二位以降
125と続く場合は、B2のみ少数第二位切上げ、B3以降は少数第二位切捨て
250と続く場合は、B3まで少数第二位切上げ、B4以降は少数第二位切捨て
375と続く場合は、B4まで少数第二位切上げ、B5以降は少数第二位切捨て
500と続く場合は、B5まで少数第二位切上げ、B6以降は少数第二位切捨て
625と続く場合は、B6まで少数第二位切上げ、B7以降は少数第二位切捨て
750と続く場合は、B7まで少数第二位切上げ、B8以降は少数第二位切捨て
875と続く場合は、B8まで少数第二位切上げ、B9以降は少数第二位切捨て
0と続く場合は、(A9−A1)/8の解をB1〜9にそのまま表示

つづく
0619名無しさん@そうだ選挙にいこう2018/03/22(木) 00:02:41.46
つづき


(A9−A1)/8の解が11.0375の場合
 A   B
1 100 -
2 111.1 11.1
3 122.2 11.1
4 133.3 11.1
5 144.3 11.0
6 155.3 11.0
7 166.3 11.0
8 177.3 11.0
9 188.3 11.0

よろしくおねがいします。
0620名無しさん@そうだ選挙にいこう2018/03/22(木) 00:03:17.97
つづき


(A9−A1)/8の解が11.0375の場合
 A   B
1 100 -
2 111.1 11.1
3 122.2 11.1
4 133.3 11.1
5 144.3 11.0
6 155.3 11.0
7 166.3 11.0
8 177.3 11.0
9 188.3 11.0

よろしくおねがいします。
0622名無しさん@そうだ選挙にいこう2018/03/22(木) 12:40:54.64
>>595
作業列使う上に、やたら長くなっちゃったけど。
あまりデバッグ時間とれてないから、何かおかしくなるパターンあったり
状況が違う場合はまた教えて。

1行目からデータが始まっていて(1行目に項目名がない状態)
E列を作業列とし、G1:H2 に結果をだしてる。

E1=IF(AND(COUNTIFS($A$1:$A1,$A1,$D$1:$D1,$D1)=1,COUNTIFS($A:$A,"<="&$A1,$B:$B,">"&$A1,$D:$D,$D1)=7),LARGE($A:$B,RANK($A1,$A:$B)-1)-$A1,0)
⇒以下オートフィルで下までコピー

G1=業務中
G2=SUMIF($D:$D,G1,$E:$E)
H1=空き時間
H2=SUMIF($D:$D,H1,$E:$E)
0623名無しさん@そうだ選挙にいこう2018/03/22(木) 16:31:17.09
>>618
作業列・・・というか一覧あったほうがやりやすかったから
D列(別にほかの列に変えてもいい)に条件の数字いれちゃったけどいい?
これまた長くてごめん。何かおかしかったら教えて。

D2=125
D3=250
D4=375
D5=500
D6=625
D7=750
D8=875

B2=IF(COUNTIF($D2:$D$8,MOD(INT(($A$9-$A$1)/8*10000),1000))<>0,ROUNDUP(($A$9-$A$1)/8,1),ROUNDDOWN(($A$9-$A$1)/8,1))
⇒以下B8までオートフィルで下までコピー

B9=ROUNDDOWN(($A$9-$A$1)/8,1)
06246182018/03/22(木) 20:12:31.65
>>623
まずは、ありがとうございます。
例題は教えていただいた数式で求めていた結果が出ました。
次に模擬値で試してみたのですが、下記の場合に違う解が表示されます。
なぜこのようになるのか、お手数ですが教えていただけると助かります。

A9 38639.7
A1 38618.1
この場合B2〜9に表示したい結果は2.7なのですが、何故か2.6で表示されます。

A9 28639.7
A1 28618.1
この場合は、正しく2.7と表示されます。
06256152018/03/22(木) 22:02:04.30
>>616 617

さんくすこ。2chでこんなに親切なレスがついたのは初めてだ。(> <)
0626名無しさん@そうだ選挙にいこう2018/03/22(木) 23:29:47.55
>>624
あーでちゃったかー
それね、小数点の計算によるエクセル・・・というかプログラム的な問題なんだよね。
2進数での計算と10進数での表示による丸め問題。

問題が出たほうの数字をA1とA9に入れて、B9の数式を検証かけてもらうと、分かりやすく見えると思うけど、
A9-A1の、単純な少数計算の時点でおかしくなってるね。

解決方法としては・・・もし、A1とA9に入れる数字が、小数第一までしか入れないのなら
単純に10倍して整数計算させればどうにかなるかも。
第二まで入れる事もあるなら100倍ね。以下略。
(その後の処理も綺麗に直せよと他の回答者メンツから突っ込まれそうだけど、今ちょっとExcel触れなくてスマホから書き込んでるから許してw)

B2=IF(COUNTIF($D2:$D$8,MOD(INT(($A$9*10-$A$1*10)/80*10000),1000))<>0,ROUNDUP(($A$9*10-$A$1*10)/80,1),ROUNDDOWN(($A$9*10-$A$1*10)/80,1))
⇒以下B8までオートフィルで下までコピー

B9=ROUNDDOWN(($A$9*10-$A$1*10)/80,1)
0630名無しさん@そうだ選挙にいこう2018/03/23(金) 08:21:27.48
>>628
プログラムは、ちゃんと勉強した訳じゃないから教えてほしいんだけど、
小数の結果が欲しい場合って、途中を全部整数で計算しても、
最後に10やら100やら1,000で割っちゃったら結局ダメ?
0631名無しさん@そうだ選挙にいこう2018/03/23(金) 08:31:01.56
>>630
それは目的による
途中を整数で処理するんなら、例えば結果を表示する時も数字はそのままで小数点を文字列処理した方がいい場合もある
0632名無しさん@そうだ選挙にいこう2018/03/23(金) 08:35:26.21
Excel2016でセルに0.1を10個入れて足したらちゃんと1.0000以下略になった
書式は数値で少数以下を15桁にした
昔とは内部処理が変わった?確かめ方が悪い?
0633名無しさん@そうだ選挙にいこう2018/03/23(金) 09:30:13.14
>>632

Excel2010だけど
一緒だよ
0635名無しさん@そうだ選挙にいこう2018/03/25(日) 03:18:56.11
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

前年比を知る表作成で質問があります。

https://prau-pc.jp/excel/growth-rate/#i-3
上記ページのC4の猫缶は
前年14,000から今年13,200に減り-6%でした。
この計算は理解できるのですが、


同じ表に、プラス成長とマイナス成長が混在する下記の様な状態の場合
http://www.kepco.co.jp/ir/financial/graph/images/graph_17.jpg
例えば
(A)14,000から13,200に減った値
(B)-14,000から-13,200に増えた値
が混在する場合、どのようにすれば良いのでしょうか?
(A)(B)共に-6%になってしまい困っております。
0636名無しさん@そうだ選挙にいこう2018/03/25(日) 04:56:23.23
分母(基準値)は常に正にとる=>分母を絶対値にする
例えば
=(A1-A2)/abs(A2)
0638名無しさん@そうだ選挙にいこう2018/03/25(日) 09:54:07.92
-100が0になった場合、100%としていいんだろうか
100が0になった時に-100%なのは判るけど、それは最低が0という前提がある
0640名無しさん@そうだ選挙にいこう2018/03/25(日) 11:42:03.55
>>638
それは間隔尺度か比例尺度かを考えないといけない
上記の例は間隔尺度を前提。
比例尺度の場合は、温度で言えば分母に絶対0度(-273℃)のような
値の絶対値(abs(-273))が入る。

問題は分母が0の時だね。
この場合は"-"とかあるいはそのままエラー出しておく
しかないんじゃないかな。
0642名無しさん@そうだ選挙にいこう2018/03/25(日) 13:47:04.23
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
1つのセルにtcp 80,81,90-101 udp 1000,1001とかあったとして(a1)
tcp 80 81 90 - 101 udp 1000 1001とそれぞれ別個のセル(a2〜a9)に入れる方法あったら教えて下さい
a1の 加工若干ならありです
0643名無しさん@そうだ選挙にいこう2018/03/25(日) 14:17:14.75
[データ]-[区切り位置]でスペースとカンマとマイナスを区切り文字にすれば行けそうだけどマイナスは消えるかなあ
0644名無しさん@そうだ選挙にいこう2018/03/25(日) 14:21:28.42
>>643
2段階にして、90-101だけもう一度"-"をデリミタにしてやるといいような。
0646名無しさん@そうだ選挙にいこう2018/03/25(日) 19:40:16.91
>>639
見た目(雰囲気)がちょっと違う。平べったい感じ。
一番わかりやすい違いは、複数のブックを開いて”整列”で並べたときに「それぞれのブックにリボンが表示される」ので
「縦に並べて表示」は、縦長ディスプレイ必須ってとこでしょうか。[Ctrl]+[F1]でリボンを非表示にすればいいだけですが。
自分としては、2010の方が使いやすい。でもサポート終了まであと2年半ぐらいしかありません。
0650名無しさん@そうだ選挙にいこう2018/03/26(月) 02:18:12.53
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 まあまあ
【4 VBAでの回答の可否】 可

数年ぶりにエクセルとVBAをいじっている者です。
フォームのボタンクリックで、他のファイルから情報とってきたり集計したりと忙しく働く
システム(ってほどでもない)を作ったんだけど、ちょっとした時間が待てずにやたら
その辺をクリックしたりガチャガチャキーボード押すバカのせいで動作が不安定になる。
これを何とかしたいです。
たしか、マクロ実行時に、「この件の実行が終了するまではユーザーの操作受付停止」
「っていうか、ユーザー無視して、PC資源をこのマクロ実行に集中させる」
というVBAの常套句があった記憶があるんだけど、わかる人いますか?
0652名無しさん@そうだ選挙にいこう2018/03/26(月) 07:45:01.40
>>650
イベント禁止のこと?
Application.EnableEvents = False

ユーザーの誤操作をすべて無視するように作るのは、それなりに面倒だった記憶が
0654名無しさん@そうだ選挙にいこう2018/03/26(月) 20:29:24.08
「29歳既婚、2年前に会社を辞めた。ボードゲーム作りを始めて3700万円を
売り上げたけど何か聞きたいことはある?」回答いろいろ
http://labaq.com/archives/51880196.html
日本ボードゲーム界の異端児に聞く!ボードゲームデザイナーとして生きていくには?
https://bodoge.hoobby.net/columns/00013
はじめてボードゲームを作ってはじめてゲームマーケットに出店した ので、ひとり反省会をしてみる。
http://datecocco.hatenablog.com/entry/2015/11/26/000000
はじめて作ったボードゲームを売った話
http://nrmgoraku.hateblo.jp/entry/2017/05/17/210000
ボードゲームイベント「ゲームマーケット」から業界が見えた!
https://entertainmentstation.jp/61107
ゲームマーケットに挑む人向けガイド
http://spa-game.com/?p=4830
ボードゲームはどう作るのか、自分なりに考えた
http://roy.hatenablog.com/entry/2014/07/09/124824
オトナも遊べるボードゲーム!自作するといくらになるのか
http://www.d-laboweb.jp/special/sp312/
ボードゲームの展示イベント「ゲームマーケット」の成長記録からこれからの
市場に必要なことを妄想してみた。6年間の来場者数推移(2016年4月時点調べ)
https://bodoge.hoobby.net/columns/00001
ボードゲーム市場がクラウドファンディングの出現で急成長を遂げ市場規模を拡大中
http://gigazine.net/news/20150820-board-game-crowdfunding/
0655名無しさん@そうだ選挙にいこう2018/03/27(火) 00:07:55.91
Windows7、 Excel2010、VBA少しできます、できればVBAを使わない方法がしりたい

助けて下さい!!

あるセルに、

あいうえお(改行) かきくけこ(改行) さしすせそ(改行) たちつてと(改行)
なにぬねの(改行) はひふへほ(改行) まみむめも(改行)
なにぬねの(改行) はひふへほ(改行) まみむめも(改行)

と入力されたとします。そして別のセルが選択され、入力受付状態じゃなくなったとき
そのセルのサイズが高さ3文字、幅10文字分だったとして、下の行の方の3行を表示、つまり
----------------|-------------
なにぬねの |
はひふへほ | (となりのセル)
まみむめも |
------------------------------
と表示されるようにすることって可能ですか?
どうしても行が足りないときは上の方から表示されることしかできませんか?
0660名無しさん@そうだ選挙にいこう2018/03/27(火) 20:51:50.76
1行からはみでる時に、はみ出さずにセル内だけで諦めさせる方法も知りたい
右のセルに空白か何か入れれば出来るけど、書式で
0663名無しさん@そうだ選挙にいこう2018/03/28(水) 10:09:37.96
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 使えない(抽出印刷のみコピペしながら使っている)
【4 VBAでの回答の可否】 可

入力規則のプルダウンリストについて

シート1
工事番号
1
1
2
2
0665名無しさん@そうだ選挙にいこう2018/03/28(水) 10:26:51.66
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 使えない(抽出印刷のみコピペしながら使っている)
【4 VBAでの回答の可否】 可

入力規則のプルダウンリストについて

シート1
工事番号 工種
1      掘削
1      埋戻し
2      溶接
2      研磨

シート2に日報として、A1セルに工事番号1を入力した場合、B1のリストを
掘削、埋戻しにしたいです。

名前の定義ではシート1で工種が追加になることもあるので避けたいです。
シート1の列の配置はそのまま工事番号、工種で並べておきたいのですが、よい方法ございますか?
0667名無しさん@そうだ選挙にいこう2018/03/28(水) 19:18:39.86
ドロップダウンリストって結局は入力規則の一種に過ぎなくて、
入力した後はただの文字列だし、入力後に規則が変更されても何の反映もない

リスト化されているなら、それぞれにコードを振って、
コードで管理すればいろいろデータ活用できるのに
0669名無しさん@そうだ選挙にいこう2018/03/28(水) 21:42:59.51
(1)一行目をセルに入れてドラッグするだけで↓のようにしたいのですが

=VLOOKUP(D3,D3:F100,3,0)
=VLOOKUP(D4,D3:F100,3,0)
=VLOOKUP(D5,D3:F100,3,0)
=VLOOKUP(D6,D3:F100,3,0)
=VLOOKUP(D7,D3:F100,3,0)
=VLOOKUP(D8,D3:F100,3,0)
=VLOOKUP(D9,D3:F100,3,0)

(2)ドラッグすると↓のようになってしまします

=VLOOKUP(D3,D3:F100,3,0)
=VLOOKUP(D4,D4:F101,3,0)
=VLOOKUP(D5,D5:F102,3,0)
=VLOOKUP(D6,D6:F103,3,0)
=VLOOKUP(D7,D7:F104,3,0)
=VLOOKUP(D8,D8:F105,3,0)
=VLOOKUP(D9,D9:F106,3,0)

(1)のようにする方法教えていただけないでしょうか
0677名無しさん@そうだ選挙にいこう2018/03/29(木) 15:28:41.40
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 可

https://i.imgur.com/BAJQU34.png

昨日の行動を名前の隣に表示させていのですが、良い方法はありますでしょうか?
Vlookupを試そうとしたのですが、こういった表示だと出来ませんでした。
0681名無しさん@そうだ選挙にいこう2018/03/29(木) 17:31:10.24
>>680
範囲の前半(コロンの前の部分のみ)絶対参照にして、行番号をrow()-1とかにすればよいのでは?
もっとよい方法もありそうだけど。
0682名無しさん@そうだ選挙にいこう2018/03/29(木) 18:45:50.19
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Office365
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否

  A       B     C    D
1        鈴木        鈴木
2        佐藤   佐藤
3              山田  山田
4        五十嵐
5                   乾
6 鈴木部長  ○          ○
7 佐藤課長  ○     ○
8 山田主任         ○   ○
9 五十嵐    ○
10 乾                  ○

こんな感じの表で、関数の組み合わせで○を自動で埋めたいのですが可能でしょうか。
B-D列の1-5行までには、役職なしの名前が入っています。
A6-A10には、役職ありの名前が入っています。
1-5行までの名前がA列に存在すれば、該当する箇所に○を入れたいのです。
役職はあったりなかったりなので、LENやRIGHT等で機械的に文字列を取り出すことが
できませんし、名前も1文字から3文字まであるので、最初2文字という取り出し方も
できません。

VLOOKPUとかCOUNTIFとかいろいろ考えたのですが、どうにもうまくいきませんでした。
06856822018/03/29(木) 19:22:51.34
>>683
別のセルに役職のリストを作っておいて、if文でネストを作ってVLOOKUPということでしょうか?
できれば余計な情報を書いたセルやシートは作りたくないのですが
0686名無しさん@そうだ選挙にいこう2018/03/29(木) 19:39:19.22
役職の数次第だけど。
パッと思いつくのは、substitute関数使って役職名を削除する。
リスト作らなくもできるけど。
06876822018/03/29(木) 21:50:30.83
>>686
なるほど、substituteで役職部分を消した文字列を作ってvlookupするんですね
06886822018/03/29(木) 21:51:10.04
役職の数が多くなければ、それが一番わかり易いかな
0689名無しさん@そうだ選挙にいこう2018/03/29(木) 23:19:07.82
https://goo.gl/xnKHDt
この請求書の真中の表みたいに
バックをグレーと白の交互にするのは背景色変更すればいいだけなので楽なのですが
数量単価の間の白い表の枠ってどうやってるのでしょうか?
0690名無しさん@そうだ選挙にいこう2018/03/29(木) 23:23:00.06
>>660
その列のアルファベットの右線をダブルクリック
0692名無しさん@そうだ選挙にいこう2018/03/29(木) 23:42:55.95
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

条件付き書式で数値が奇数の場合のみ背景を青にする方法を教えてください。
条件適用の範囲はB2:B101です。よろしくお願いします。
0694名無しさん@そうだ選挙にいこう2018/03/30(金) 00:25:37.16
>>682
B6に
=IF(COUNTIF(B$1:B$5,"鈴木"),"○","")
B7に
=IF(COUNTIF(B$1:B$5,"佐藤"),"○","")

と入れていき、B6:B10の範囲を選択してフィルハンドルで右に伸ばせば簡単
0697名無しさん@そうだ選挙にいこう2018/03/30(金) 01:44:05.09
>>694
それだと、鈴木や佐藤を手打ちしてるわけだから、少しやりたいことと違うと思う。
ようは鈴木や佐藤を自動(関数を使って)取り出したいということなので(多分)。
別シートにでも役職リスト作って、substitute関数で名前を取り出すのが、一般的な方法かと。
ただし、役職の数だけネストする必要がある。
0700名無しさん@そうだ選挙にいこう2018/03/30(金) 03:33:54.08
>>692
奇数かどうか判定するには、整数かつ1の位が奇数(1,3,5,7,9)かどうかを調べればいいので
=AND((B2=INT(B2),OR(B2-INT(B2/10)*10=1,B2-INT(B2/10)*10=3,B2-INT(B2/10)*10=5,B2-INT(B2/10)*10=7,B2-INT(B2/10)*10=9))

俺の頭ではこれが限界だ
誰か、もっと難しい式をたのむ
07016822018/03/30(金) 05:08:56.43
>>697
そのとおりで、これを何に使っているかと言うと、大型連休の出勤当番を割り当てるのに使います
該当者は毎回変わるし、異動があれば役職も色んな人が入ってくるので、鈴木や佐藤を自動で
取り出してチェックしたいのです

別シートに役職リストを作る、というのは、内容的には式中に役職リストを作るのと変わりません
よね? 役職の数が増えたら、式中のネストは手作業で増やす必要がありますよね?
他の人がメンテする可能性を考えたら、式中に直接打ち込むほうがいいのかな

>>694のやり方だと確かにできますが、A列の人の名前が変わるたびにB列の式を変える必要が
出ますし、結果は「○」が出るかどうかだけなので、B列の修正忘れに気づきにくいのを心配して
います
07026972018/03/30(金) 05:35:18.31
>>701
自分なら役職リストを作る。
そのリストをもとに面倒だけど、substitute関数で役職の数だけネストする。
スマートではないけど、役職を少し多めに作っておけば、毎回関数を直す必要がない。
そんなに役職数増えたりしないでしょう?
現在ある役職が10なら、13くらいで作っておくとか。

リストを参照することで、役職名の変更には対応しやすい(例えば班長という役職が廃止されて主任になるとか)。
0704名無しさん@そうだ選挙にいこう2018/03/30(金) 06:22:40.19
>>702
読みながら、たしかにそうだろうな、想定できる役職を一通り書いておいて、さらに将来的な
空白セルの分まで参照して式をつくるべきかな、と考えていたら

>>703
これでバッチリできました!
どういう仕組で機能しているのかはわからないので、これから詳しく解析してみます
ありがとうございます
07057032018/03/30(金) 06:47:11.36
>>704
この式は「前方一致」だから、例えば"久保田部長"で検索するとして、
"大久保"はスルーするけど、"久保"はヒットしちゃうので注意が必要。
0706名無しさん@そうだ選挙にいこう2018/03/30(金) 07:05:11.09
>>705
それはもう仕方ないですね
役職を除外して参照するという処理をする以上、役職リスト等を参照しない限りは、参照したい
文字が含まれていればすべてカウントするという処理をするしかないでしょうし
0707名無しさん@そうだ選挙にいこう2018/03/30(金) 08:12:02.11
1日目 朝昼夜
2日目 朝昼夜


こういうデータシートから
朝昼夜朝昼夜…という並びでグラフ化するにはどうしたらよいですか?
0708名無しさん@そうだ選挙にいこう2018/03/30(金) 11:26:04.43
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

セルA1に1をセルB1に2を入力して印刷
セルA1に3をセルB1に4を入力して印刷
セルA1に5をセルB1に6を入力して印刷
これをA1が99、B1が100になるまで繰り返してるのですがVBAでできないでしょうか?
0710名無しさん@そうだ選挙にいこう2018/03/30(金) 16:58:52.86
>>709
簡潔に纏められ、分かりやすい解答だと思います。
0711名無しさん@そうだ選挙にいこう2018/03/30(金) 17:07:23.58
>>700
それ本気?冗談?
07127092018/03/30(金) 17:53:26.88
いや、悪気はないです。
今PCが手元にないので。スマホでも書けそうだけど。

この場合、もしプリンターが複数あるなら、その辺もマクロで書いておく方がいいと思う。
プリンターの設定間違えてほかのプリンターで処理してしまうと50枚印刷されてしまうことになるので。
07147092018/03/30(金) 19:30:11.24
dim i as integer

for i = 1 to 50
cells(i,1)=(i * 2)-1
cells(i,2)=(i * 2)
activesheet.printout
next i

こんな感じでは?

loop until の方がいいような気もするけど、とりあえず。
0716名無しさん@そうだ選挙にいこう2018/03/31(土) 03:19:03.12
どうでも良いけど印刷関係のマクロ作るなら、既定のプリンタをpdf,xdw,xpsあたりに変えておかないと、満足にデバッグ出来ない気がする
0717名無しさん@そうだ選挙にいこう2018/03/31(土) 12:11:04.45
エクセルは、モッサリ感が半端ないのに、
50シート作ったら、仕事にならない感じがする。
0726名無しさん@そうだ選挙にいこう2018/03/31(土) 19:08:51.25
データと出力を別けてればよくあるパターンだと思うよ。
1人一枚の出力で50人分とか。
VLOOKUPで社員コード引っ掛けて、データ拾って出力。
0727名無しさん@そうだ選挙にいこう2018/03/31(土) 19:28:25.05
ほかのセルにはA1とB1を使った数式がいくつも入ってんじゃないの?
まあ番号札とかアンケート用紙みたいなのを印刷するだけの簡単なお仕事でも別におかしくはないけど
0728名無しさん@そうだ選挙にいこう2018/03/31(土) 20:38:49.59
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否
以下の条件に合致する場合、3列目にOKの文字を出力したいです
条件:1列目の数字が同じかつ2列目の数字がひとつ上の2倍

例)
1 1500
1 4000
2 20000
2 22000
↓(関数結果)
1 1500
1 4000  OK
2 20000
2 22000

どなたか方法を教えてもらえませんでしょうか
0729名無しさん@そうだ選挙にいこう2018/03/31(土) 20:46:12.70
>>728
C2にこの式を入れて下にコピペ
=IF(AND(A1=A2,B2/B1=2),"OK","")

でも、その例で4000は1500の2倍じゃないよね
条件が「2倍」じゃなくて「2倍以上」じゃないの?
0736名無しさん@そうだ選挙にいこう2018/03/31(土) 23:17:51.90
Accessがドストライクな案件だけに惜しいな
テーブルに番号の組み合わせを入れて(扱う番号の拡張性も高い)
レポートに欄を作って印刷するだけ
0737名無しさん@そうだ選挙にいこう2018/03/31(土) 23:25:26.00
俺もシリアル番号の印刷とか片手間仕事でたまにやるわ
エーワンのラベル用紙に末尾を1から30まで変えながら印刷とか
以前はサインペンでせっせと書いてたらしい
0738名無しさん@そうだ選挙にいこう2018/03/31(土) 23:29:09.82
しょーもない仕事はクレバーに一瞬で解決できるのに、
しょーもない仕事が発生する場所にクレバーな人材はいない
0739名無しさん@そうだ選挙にいこう2018/04/01(日) 02:10:51.95
シート50枚作って、プリントは手作業で一括というのを
批判覚悟でPowerShellで書いてみたVBAよく知らないもので。

$excel=new-object -ComObject Excel.Application
$excel.Visible=$true
$wb=$excel.workbooks.add()
$ws=$wb.ActiveSheet();

for($i=0;$i -lt 50;$i++){
$n=$i*2+1
$left=$ws.Cells.Item(1,1)="$n"
$right=$ws.Cells.Item(1,2)="$($n+1)"
$ws=$wb.Sheets.Add()
}
$ws.Delete()
0740名無しさん@そうだ選挙にいこう2018/04/01(日) 02:11:35.92
このまま実行すれば行けるはず
0742名無しさん@そうだ選挙にいこう2018/04/01(日) 09:24:14.18
>>739
$left, $rightが意味不明
セルへの代入で文字列化する必要もないし

foreach($i in 0..49){
$ws.Cells.Item(1,1).value()=2*$i+1
$ws.Cells.Item(1,2).value()=2*$i+2
}
07457142018/04/01(日) 11:03:26.32
>>708
ごめん間違ってた。直しました。
activeprinterのところはプリンター名直すか、削ってもオーケーです。
最大値100じゃなくて4にしてます。

Sub test()

Const START_NUM As Integer = 1 '数値の開始値
Const FINISH_NUM As Integer = 4 '数値の終了値
Const PRINTER_NAME As String = "Microsoft Print to PDF" 'プリンター


Dim i As Integer

i = START_NUM

Do Until i = FINISH_NUM - 1

Cells(1, 1) = (i * 2) - 1
Cells(1, 2) = Cells(1, 1) + 1

ActiveSheet.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False, ActivePrinter:=PRINTER_NAME

i = i + 1

Loop

End Sub
07467392018/04/01(日) 12:52:34.06
>>741
VBAスレッドじゃなくExcelスレッドなんでVBA関係なく参考になるから
(VBA使わないのはシートとプログラムは完全分離したい、中に埋め込みたく
 ないという思考あるもので)。

>>742
あたまに0入れたいとかあるかな〜と思って
left,right は質問のかたが何やってるかわかりやすいかなと思った次第。
07477392018/04/01(日) 12:56:50.11
>>742
考えてみたら、
あたまの0、これは計算時に省かれちゃうな。
ってことは、私のこの部分意味なかったってことやな。あちゃ。
07487452018/04/01(日) 14:00:26.09
まだ間違ってるわ。
do loop until i > FINISH_NUM \ 2
に直してください。
細かいこと言えばまだいろいろあると思うけど。
0749名無しさん@そうだ選挙にいこう2018/04/01(日) 17:00:32.36
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
pngファイルをwindowsフォトビューアーで開いた後、エクセルにコピーアンドペーストで貼り付けたいのですが、貼り付けることができません。
PowerPointには貼り付けれるのですが…
excelでは挿入機能を使うしかないのでしょうか。
いい方法があれば教えていただきたいです。よろしくお願いします。
0752名無しさん@そうだ選挙にいこう2018/04/01(日) 17:44:58.03
フォトビューアーのメニューにわざわざペイントあるんだから
それ使うんじゃまずい?
それ以外ならSnipping Toolではいかが?
0753名無しさん@そうだ選挙にいこう2018/04/01(日) 17:50:53.13
 >>749
前提を覆して申し訳ないが、
フォトビューワーは使わない。何故なら、同じ用な点でめんどくさいから
常にペイントで開くようにしてみては・
0754名無しさん@そうだ選挙にいこう2018/04/01(日) 19:09:15.96
>>753
フォトビューワーのメニューにペイントがあるから
直接でもフォトビューワー経由でもそれほど変わら
ないはずなんだけどね。
0755名無しさん@そうだ選挙にいこう2018/04/01(日) 20:07:50.24
>>750-754
ありがとうございます。ペイントを経由して貼り付けようと思います。
0757名無しさん@そうだ選挙にいこう2018/04/01(日) 21:36:52.21
順番が逆のような気がしないでもない
たぶん画像にデータを付加、またはデータに画像を添付したい
ってのが本来の目的な気がする  回り道して余計な仕事増やしているだけのような いや、ひとりごと
0758名無しさん@そうだ選挙にいこう2018/04/02(月) 01:51:37.01
【1 OSの種類         .】 職場環境:Windows7 自宅環境:Windows10
【2 Excelのバージョン   】 職場環境:Excel2016 自宅環境:Excel2010
※質問用のエクセルファイルは自宅環境で作成しましたが、実際に使用するのは職場環境です
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

https://dotup.org/uploda/dotup.org1500173.xlsx
上記のように、エクセルにてパレード図を作成しようとしています。
ピボットテーブルにて件数ごと降順で並び替え、かつ件数が1件のものはグループ化しその他として一番下にしたいです。
しかし、降順でソートしたあと、その他を一番下に持っていこうとすると、
降順ソートが解除され、その他以外順番がばらばらになってしまいます。
全部手動で並び替えるのはかなり手間なので、ピボットテーブルの機能で並び替える方法があったら教えてください。
ピボットテーブルを値として貼り付け、普通の表にすれば並び替えられますが、
ブックがごちゃつくし、あとでデータを追記する際煩雑になるので、可能ならピボットテーブルのまま並び替えたいです。
0759名無しさん@そうだ選挙にいこう2018/04/02(月) 04:19:37.56
みなさんフォントって何使ってますか?
最近だと遊ゴシック?
でも古い資料とかとの整合性とか考えると…セルの幅とか勝手に変わっちゃうし
でもMSPゴシックもなぁ…
0760名無しさん@そうだ選挙にいこう2018/04/02(月) 07:25:01.21
>>758
excel 2016
グループ化した後、列ラベル欄で手動並び替えにして自動並び替えを外す
件数の欄で降順に並び替え
その他ラベルで移動を選択して末尾へ移動
0762名無しさん@そうだ選挙にいこう2018/04/02(月) 07:38:09.60
>>759
游ゴシックは全く使わないようにしてるな
文字の高さがずれるのか見ててイライラする
エクセルだとひとつ前のメイリオUIにしてる
整合性は全く考えていないのでMS Pゴシックにはしていない
0763名無しさん@そうだ選挙にいこう2018/04/02(月) 14:33:21.85
>>762
メイリオの方が行間広くないです?
もうちょいまともな標準フォント用意して欲しい。

>>700
「もっと難しいのを」って書いてるから、多分冗談なんだろうけど。
この式、エラー出るよ。
0764名無しさん@そうだ選挙にいこう2018/04/02(月) 15:02:20.82
>>763
 
なんで >>700 はわざわざあんなに難しくしたのかが
これが意味不明なんだわ〜〜〜

真面目に書けば
奇数の判断なんて mod(n,2) が1なら奇数0なら偶数ってだけの話なのに。
わざとなんだろな
0765名無しさん@そうだ選挙にいこう2018/04/02(月) 15:52:45.53
>>761
>>762
ありがとう
フォントだけ変わってくれればいいのに行間が変わるからめんどくさい
この辺の対策しないところをみると、メイリオ以降の行間が正常で旧フォントが行間が妙に狭いという形にしたいのかな
meiryoKeConsoleだとセル幅も変わらずフォントだけ変更できるんだけど他人に渡すとバグっちゃうのかな?
あと、明朝は遊明朝にするとセル内の表示高さがバグるというか逆になっちゃうんですね
何かとややこしいなぁ…
0766名無しさん@そうだ選挙にいこう2018/04/02(月) 19:01:19.14
英語と日本語と混在だから、MeiryoUIくらいしか選択肢が無いんだよな
かなが正方形でなくなって、英字がちょっと広くなっちゃうけど

自分しか使わないファイルは、meiryoKeGothicにしてる
0767名無しさん@そうだ選挙にいこう2018/04/02(月) 20:04:50.19
>>766
meiryoKeGothicなんて今知った
0769名無しさん@そうだ選挙にいこう2018/04/03(火) 07:39:32.78
>>760
できました
ありがとうございます
0770名無しさん@そうだ選挙にいこう2018/04/03(火) 10:04:11.98
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

Excelて各セル(行)の高さを表示する機能や関数はありますでしょうか?
表形式の文書を作っていて、各行の高さをセル内の行数にあわせて調整するものの、それを一目で見たいのです
例えば、A1セルには1行目の高さ、A2セルには2行目の高さ(以下繰り返し)のような感じで。
0772名無しさん@そうだ選挙にいこう2018/04/03(火) 20:17:28.86
セルの表示形式で、例えば文字列の場合に赤字で表示するとき、
[赤]@
で出来るけど、この「赤」を英語にすることってできます?
要は、英語版のExcelだとどう設定すれば良いのか知りたいです。
0774名無しさん@そうだ選挙にいこう2018/04/03(火) 22:27:38.19
>>773
ありがとうございます。
日本語版ではRedが使えないということは、英語版からカスタマイズされてて、Redは省かれてるですね。
0780名無しさん@そうだ選挙にいこう2018/04/04(水) 06:37:40.97
>>766
meiryoUIに1票
ke知らないから見てみるわ
でもたぶん使い分けめんどいから結局UIな気がする

>>775
MS Pゴシック
なんであんな汚いフォント使うのか、まったく理解に苦しむ
0783名無しさん@そうだ選挙にいこう2018/04/04(水) 08:02:47.76
MSPゴシックは解像度低くても読める事が優先のフォントだから高解像度だと煩すぎて駄目だな
逆に游ゴシックは高解像度特化だから低解像度だと読めん
メイリオはガキ臭くて仕事で使う気になれん
結局は游ゴシックにしてるわ
0785名無しさん@そうだ選挙にいこう2018/04/04(水) 11:50:54.61
そおゆう四角四面でガチガチなガラパゴスビジネスリテラシーにうんざりしてんじゃね
「こうでなければならない」だの「これしかない」みたいなのをぶっ壊したいんだ
たかだか数十年の「当たり前」ってのはこれからの数十年もおんなじ
なんてのを否定しちまえばいいんだ  個人的な感想ですけど
0786名無しさん@そうだ選挙にいこう2018/04/04(水) 17:49:59.79
>>775
今はデフォルトが遊ゴシックだよ

>>780
keはメイリオ改みたいなもの
パッチで改造するものだから普及はしてないので
自分で使うくらいにしかならない

>>784
結局それなんだよね
新しい環境でやろうにもレイアウトが全部崩れるってのが
まぁ全言語共通行間?みたいに変更したいようだけど
0787名無しさん@そうだ選挙にいこう2018/04/04(水) 21:06:27.97
【1 OSの種類         .】 Windows10
【2 Excelのバージョン   】 Excel2016
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否
=TODAY()を使用するとなぜか昨日の日付になってしまいます。
やろうとしていることはカレンダーを作成し当日のみ条件書式でハイライトすることです。
途中何度か関数を入れ直すと過去の日付をハイライトしたり変な挙動をしつつ最終的には昨日で止まっています。
ちなみに計算は自動にしてます。
真新しいファイルで作成しました。
どなたか御存知でしたら教えてください。
0794名無しさん@そうだ選挙にいこう2018/04/05(木) 01:52:35.76
>>790
日付はctlr+で入力しオーフィルハンドルで下にひっぱっただけの極々単純な入力方法です

条件書式は=($A3=TODAY())
=$A3=TODAY()
両方試して変わりなかったので上を入れてあります
0795名無しさん@そうだ選挙にいこう2018/04/05(木) 01:54:54.37
>>793
nowは明日試します

vbaでdate関数、
そのカレンダーの日付をdateにしてみるという意味でしょうか?
vbaでやる意味を教えていただけると有り難いです
0796名無しさん@そうだ選挙にいこう2018/04/05(木) 02:05:37.19
ワークシート関数の戻り値と、vba関数(now、time、date)の戻り値が同じか試してみる。
通常は同じだろうけど、違えばそれが原因を探る手がかりになるでしょ。
0804名無しさん@そうだ選挙にいこう2018/04/05(木) 12:26:44.60
失礼、today()です。
それがきちんと表示されるなら、「条件付き書式」の設定がおかしいか、「条件付き書式」の不具合があると考えられます。
0805名無しさん@そうだ選挙にいこう2018/04/05(木) 12:35:05.93
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい・
【4 VBAでの回答の可否】 可
リネームして保存前にファイルサイズが400kb以上なら「ファイルサイズ超過」とメッセージボックスを出して、リネームをキャンセルする方法があればご教授願います。リネーム前にFilelenを使うとリネーム前のファイルサイズしか出ません。
08078052018/04/05(木) 22:18:16.81
リネーム後にファイルサイズ400kb以上でファイル名先頭に「サイズオーバー」
を追加は可能でしょうか?
リネーム後のファイル名を取得できないので、先に進めません。
1.yyyymmdd_hhmm(”D3")で保存。
2.1で保存したときにファイルサイズをチェック。
3.ファイルサイズをチェックして400kb以上なら、ファイル名先頭に「サイズオーバー」
を追加。

ご指導いただきますよう、お願いします。
https://u3.getuploader.com/taka1024/download/99
0808名無しさん@そうだ選挙にいこう2018/04/05(木) 22:47:28.73
>>805
素直に行ったほうがいいかもな

別名で保存
自分自身のファイルサイズを計測
サイズオーバーならメッセージ出して閉じるとか

というかどういう状況?フロッピーでも使ってるの?
0809名無しさん@そうだ選挙にいこう2018/04/05(木) 23:49:41.94
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

あるセルの値が、常に、
  空白/ひらがな文字列/全角カタカナ文字列/半角カタカナ文字列
のいずれかです。また、文字列にはスペースが混じっています。

これを、どんな場合でも、スペースなしの半角カタカナ(空白は空白のまま)に変更したいです。
どのようにVBAコードを書けばいいのか教えてください。
よろしくお願いします。
0811名無しさん@そうだ選挙にいこう2018/04/06(金) 00:00:30.52
>>809
ワークシート関数でできるのでは?
まず、phonetic関数で全角カタカナに変換、substitute関数でスペース削除、asc関数で半角に。
08128092018/04/06(金) 00:56:02.55
ありがとうございます。

ひとつではなく、複数の変換作業を通じて実現するんですね。
勉強になりました。
0813名無しさん@そうだ選挙にいこう2018/04/06(金) 02:13:42.79
>>812
どちらの場合もネスト(入れ子)して一気にやるより、段階踏んでやる方が簡単だしあとで修正しやすいです。

ワークシート関数でやるなら、
A列に元の文字列、B列にphonetic(A1)、C列にsubstitute(B1,略)、D列にasc(略)

VBAでやるなら変数myStringなどにして、
myString=replace(cells(i,1), 略)
myString=strconv(myString, 16 + 8)
cells(i,2)=myString

なお、どちらの場合もスペースが半角と全角の両方あるなら、削除を2回する必要がある。
08158132018/04/06(金) 03:24:31.26
そうですね、たしかに足し算みたいだし分かりにくいですね。
08178052018/04/06(金) 06:39:01.35
>>808
修理依頼票として使うのですが、メールフォルダが200MBしかないので、
PDFを添付されると、メールフォルダがいっぱいになってしまうのです。
0821名無しさん@そうだ選挙にいこう2018/04/06(金) 11:04:34.46
▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

セルにシート名を表示するシンプルな方法はないですか?

セルにシート名を表示させようと思ったんですが
ググるとCELL関数を使うものしか出て来なくて
そしてその方法がRIGHT関数とかLEN関数とかを組み合わせたりしてて
なんというか冗長に見えてしまうんです
もっとシンプルにシート名を取り出せないものでしょうか!
0823名無しさん@そうだ選挙にいこう2018/04/06(金) 16:34:38.79
>>821
関数ひとつ作っとけばどう?
0825名無しさん@そうだ選挙にいこう2018/04/06(金) 20:44:19.11
>>787です
結果ご報告です
=A7から下に向かってカレンダーを引っぱってました
条件書式は=$A7=TODAY()
しかしなぜか昨日の日付がハイライトされるのが困ってることでしたが、今日ファイルを開けてみると
条件書式が=$A8=TODAY()
になってました

結果的には条件書式が即時反映してなかったことが原因のようです
フォーマットを整えるなかでグループ化を沢山したり行挿入などをましたが、途中メモリ不足で一度強制終了しました
そういったなかで条件書式の表記は=A7~と見えるのに実際は=A8~で条件を取っていたという結果と思います
条件書式を=$A7=TODAY()にして解決

グループ化を沢山してExcelの挙動がおかしくなったのも初めてでした
0828名無しさん@そうだ選挙にいこう2018/04/06(金) 22:15:38.27
>>821
超単純なのでできた気がするんだけど、、いま手元にファイルないからわかんないや
そこだけvba使ったかな…
わかったら書くわ
0829名無しさん@そうだ選挙にいこう2018/04/06(金) 22:23:50.56
そんなに単純にはならんよ
なるほどねーという工夫はあるけど

そういう例題
今月は何日まであるか、最もエレガントに示せ
08318052018/04/06(金) 22:49:48.81
>>818
会社からは使えませんでした。
0834名無しさん@そうだ選挙にいこう2018/04/07(土) 00:12:06.07
CELL が嫌なら -CELL 付けてググればいい 一発目で出るだろ VBA使うけど
にしてもその書き方・使い方まで指導してる 簡単明瞭しかも早い
質問文書いてる間に結果が出てるぐらい簡単
サイトの主がアクセス数稼ぐために質問したんじゃねーのか?と、疑うぐらいどストライク
0835名無しさん@そうだ選挙にいこう2018/04/07(土) 00:53:40.92
CELL関数で2番目のパラメータA1は省略できる
作業セルにCELL関数だけ置いとけば数式の文字数は減らせるけどアルゴリズムがシンプルになるわけじゃない

A1=CELL("filename")
A2=RIGHT(A1,LEN(A1)-FIND("]",A1))
0838名無しさん@そうだ選挙にいこう2018/04/07(土) 10:48:40.70
省略したらでRフォルトはA1だろ
と思ったら血がてた

>この引数を省略した場合、最後に変更されたセルについて、
>"検査の種類" 引数に指定した情報が返されます。
>対象範囲がセル範囲の場合、その範囲の左上隅のセルに関する情報だけが返されます。

特に
>最後に変更されたセルについて、
に関しては、普通に別ブックも対象となるので絶対に省略しない方がいい
エライことになるぞ
0840名無しさん@そうだ選挙にいこう2018/04/07(土) 11:53:00.98
試したら本当に別ブックのフルパスとシート名が出たわ
自分が普段使わん機能は注意せんとあかんな

しかし、これってなんのための機能なんだろう?
0842名無しさん@そうだ選挙にいこう2018/04/07(土) 12:08:57.87
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

シートに3000行くらいのデータがあって、A列が日付、B列が名前、C列が得点です。
VBAで、以下のことを一気にやりたいのですが、どう書けばいいのか教えてください。

・B列で名前が空白の行を削除
・B列で名字と名前の間にスペースがある人がいるので、そのスペースを削除

表のいちばん下から、上に向かってループしながら、
削除とreplaceをやっていくしかないんでしょうか?
0843名無しさん@そうだ選挙にいこう2018/04/07(土) 12:15:33.00
>>842
だいたい思ってるとおりで大丈夫だよ
3000行なら工夫してもしなくても1秒で終わるから、マクロの記録してちょっと修正すればいい

1.画面の書き換えを止める
2.データ範囲を調べて下からループ
3.名前が空白なら行削除、そうでなければスペース置換
4.ループ終了したら画面書き換え再開
0844名無しさん@そうだ選挙にいこう2018/04/07(土) 12:18:12.69
>>842
どうしてもループせずに一気にやりたいならワークシート関数を使うといいかも
B列だけ範囲指定してスペースを何も無しに置換も1行で書けるし、オートフィルターを使えば空白セルをまとめて削除できる
0847名無しさん@そうだ選挙にいこう2018/04/07(土) 13:45:24.39
3000行くらいなら一発で削除できるんじゃないの
columns("B").specialcells(xlcelltypeblanks).entirerow.delete

スペースの削除はマクロ使わんでも置換機能でいけるんじゃない
マクロでやるならreplace
columns("B").replace " ",""
0848名無しさん@そうだ選挙にいこう2018/04/07(土) 13:59:58.66
>>840
びびるよな
元々はデバッグ用か何かだと思う。変な機能を詰めた関数ってとこじゃないかな

>>847
こういうレス見るとんっほおおおおおおってなる」
0852名無しさん@そうだ選挙にいこう2018/04/07(土) 14:39:01.02
WEBからコピペとかすると文字コード0xA0のスペースがたまに混じっててぐぬぬとなることがある
あとはTABに注意しとけばだいたいなんとかなるんでは
0853名無しさん@そうだ選挙にいこう2018/04/07(土) 15:11:42.29
replaceメソッドは引数のMatchByteをtrueにして実行すれば全半角区別せずに置換できるよ
たぶん空白も行けるはず
0855名無しさん@そうだ選挙にいこう2018/04/07(土) 19:20:53.86
ブックAのセルからブックBのセルに関数をコピーペーストすると
ブックAのブック名まで一緒にペーストされてしまうのですが
ブック名はなしで関数のみペーストする方法はないでしょうか
0858名無しさん@そうだ選挙にいこう2018/04/07(土) 19:56:35.28
>>855
方法は2つ
1つめは元のファイル名とシート名までを置換して削除する方法
!や'までちゃんと置換しないと失敗する


2つめはリンクの編集
データ→リンクの編集から変更する
けどバージョンによって違うだろうから自分の使用のExcelバージョンでググってくれ

excelxxxx 外部参照 関数 変更

こんくらいはわざわざ2ちゃん来なくてもググれるさー
0859名無しさん@そうだ選挙にいこう2018/04/07(土) 19:57:39.67
>>855
方法は2つ
1つめは元のファイル名とシート名までを置換して削除する方法
!や'までちゃんと置換しないと失敗する


2つめはリンクの編集
データ→リンクの編集から変更する
けどバージョンによって違うだろうから自分の使用のExcelバージョンでググってくれ

excelxxxx 外部参照 関数 変更

こんくらいはわざわざ2ちゃん来なくてもググれるさー
0861名無しさん@そうだ選挙にいこう2018/04/07(土) 20:08:27.31
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

A1からA5000くらいまで人名が入力されてるシートで、
人名の重複がある行はぜんぶ削除したいです。
複数応募は全無効なので、重複のうち1行だけを残すのではなく、
重複があった人名はぜんぶ削除したいのです。
VBAでなんとかできないでしょうか?
0867名無しさん@そうだ選挙にいこう2018/04/07(土) 22:34:10.73
質問
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否


4月10日 朝
4月15日 昼
4月20日 朝
5月10日 昼
5月15日 夕
5月25日 朝
6月05日 朝
……

となっているデータから、5月分だけの一覧表を作るようにするにはどういう関数組めば良いんでしょう?
VLOOKUPでも最初の一つしか表示されないので困っています。
あと、可能であれば、元データの隣の列にある朝、昼、夕のデータを参照して、

抽出した表に、朝なら赤、昼なら黄、夕なら紫といったふうに、条件付き書式で表が色分け出来るようにしたいのですが…

うまく説明できているか解りませんが、宜しくお願いします。
0871名無しさん@そうだ選挙にいこう2018/04/07(土) 23:24:36.99
>>868
データは昇順で並んでいます

>>869
できれば関数で解決したいです
08728682018/04/07(土) 23:51:07.38
>>871
元の表に作業列いれてもいいならできそう。

countifsかsumproductと、vlookup組み合わせでできないかな。
0874名無しさん@そうだ選挙にいこう2018/04/08(日) 00:25:25.49
>>873
ありがとうございます。頂いたデータを参考にチャレンジしてみます。
0876名無しさん@そうだ選挙にいこう2018/04/08(日) 01:47:23.36
=VLOOKUP(C3, $P$2:$Q$47, 2, FALSE)
という数式があります
C3と同じ数字の右二つ隣を表示

これにC3が空白なら空白
を加えるにはどうしたらいいですか?
08798772018/04/08(日) 03:42:31.90
>>878
ごめん、スマホで打ったのでダブルクォーテーションがおかしかった。
パソコンのキーボードからだと、Shihtキー押しながら上段数字の2を押したら入力されるのが正しいダブルクォーテーションです。
08818552018/04/08(日) 09:36:20.84
>>857-860
ありがとうございます
08828552018/04/08(日) 09:37:13.58
>>856
ありがとうございます
0883名無しさん@そうだ選挙にいこう2018/04/08(日) 20:05:47.32
Excelの関数について質問があります。

○の数を=COUNTIF(A3:A20,"○")でカウントしてC、FをカウントしたいけどB,Dはカウントしたくないときはどうしたらよいでしょうか
0885名無しさん@そうだ選挙にいこう2018/04/08(日) 20:21:35.10
>>884
横にドラッグしたいけどするとB,Dにも0がでて消すのがだるいのでどうにかならないかと思って。
かと言ってC,Fでもカウントするのも嫌なので。
0889名無しさん@そうだ選挙にいこう2018/04/09(月) 18:27:02.54
質問
【1 OSの種類         .】 Windows10home
【2 Excelのバージョン   】 Excel2013
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 否

F1キーで出てくるハズのオンラインヘルプに繋がらなくなってしまった(接続しています...から動かない)ので直したい
ネットサーフィンは出来るのでインターネット接続はちゃんとある
手始めにどこを見ればいいでしょうか?
0891名無しさん@そうだ選挙にいこう2018/04/09(月) 19:52:53.29
おねがいします

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

機材は1年程度です
エクセルはその当時からの付属で
最近まで不自由がありませんでしたが先月ごろから

@ A1=B1+C1  で、B1に数字を入力した
A A1=B1  で、そのA1をC1にコピーしようとした

など計算に関する操作をしたときに
(文字列入力のときは無症状)

エクセルは動作しなくなりました
のメッセージが出て、強制終了
となっています

すべてのファイルでその症状が出ます
新規ファイルで計算をやり直そうとしますが
計算操作をした時点で、エラーが出て停止するところまではわかりました

ディスク再インストールしましたが、症状は変化しません


この時点で、では何がおかしいと見るべきでしょうか
機材自体まで、さかのぼっておかしいと見るべきでしょうか
エクセルのエラー以外、おかしいところは今のところありません
0892名無しさん@そうだ選挙にいこう2018/04/09(月) 20:01:18.41
889ですが
もしかしてExcel2013のサポート期限切れでオンラインヘルプが参照出来なくなったのかな…自決しました
0893名無しさん@そうだ選挙にいこう2018/04/09(月) 20:16:17.45
>>891

セキュリティソフト入ってます?
ノートンとか。それ一時的に切ってやってみてください。
それでダメならレジストリ削除で。
それでもダメなら2003なので古すぎるということで諦めてください。
0894名無しさん@そうだ選挙にいこう2018/04/09(月) 20:27:11.10
初歩的な質問させてください

列の範囲指定で一行目のタイトル行を覗いてA:A相当の範囲指定ってできますか?
08958922018/04/09(月) 20:30:51.38
>>894
補足するとoffice2016だと

A2:A1048576

をもっとスマートに書けないか、ということです
08968942018/04/09(月) 20:31:45.46
>>895

名前ミスしました(;つД`)
08998942018/04/09(月) 20:37:47.36
>>898
関数内に列範囲をスマートに書きたいのです。
将来的にExcelが100万行対応した場合のことを考えて絶対参照は避けたくて
0900名無しさん@そうだ選挙にいこう2018/04/09(月) 20:37:50.39
あれか? プラモデル組み立てるのにヤマト糊でくっ付けようとしてる みたいなもんか
腕時計の修理で木ねじ使ってる ようなもんか
09018942018/04/09(月) 20:40:12.20
>>897
最終行は数値だけど途中に空白はあります
0904名無しさん@そうだ選挙にいこう2018/04/09(月) 21:26:10.35
889ですが今試したらオンラインヘルプ参照出来ました2台で試してダメだったから諦めてたのになんか一時的な物だったみたい…
0905名無しさん@そうだ選挙にいこう2018/04/09(月) 21:34:08.18
columns("A").resize(cells.rows.count-1).offset(1).address
とかでいけるだろうけど微妙。何するか知らんけどちょくちょくオーバーフローしそう。
0906名無しさん@そうだ選挙にいこう2018/04/09(月) 23:46:56.33
>>893
ありがとうございます
やってみて様子をみましたが、いまひとつ改善がきませんので
お話のバージョンの問題なのかという感じで
こんどは手を打ってみようと思います
09078932018/04/10(火) 00:25:50.29
>>906
regeditでエクセル関連のレジストリ削除してもダメですか?
以前知人のPCで同じような症状でしたが、その時はウィルスバスターが原因でした。
0908名無しさん@そうだ選挙にいこう2018/04/10(火) 12:08:18.59
○歳○ヶ月や○歳○○ヵ月など、
この年齢から○ヵ月の○の部分を取り出す関数わかるかたいますでしょうか…
年齢はすべて2桁です
midとfindとlenを組み合わせても○だけにならず○ヵ月と表示されてしまいます…
0909名無しさん@そうだ選挙にいこう2018/04/10(火) 12:18:59.84
以前は依然、現在は現在
以前とおなじ動作を望むなら、ネットを切ってスタンドアロンで
当時の状況に復元して使うことが肝要
毎月毎月望みもしないアプデで微妙に肝心なところを改変されてるんだから

今朝電源入れたら起動しない 変なメッセージ出たまま先に進まん
〇〇アプリが起動しない 運用中唐突にフリーズする 等々
このところ増えてる気がする
一定レベルの性能を持つハード、Win10が要求する仕様に合致するソフト
しか動かないように、どんどん改善してまっせ というMS側の企みを つとに感じる今日この頃、皆様いかがお過ごしでしょうか。
0912名無しさん@そうだ選挙にいこう2018/04/10(火) 12:50:59.43
>>910
ありがとうございます

=mid(a1,find("歳",a1)+1,len(a1)-2)
です
0914名無しさん@そうだ選挙にいこう2018/04/10(火) 20:48:24.37
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

Sheet1のH列にアンケートのフリー回答欄(テキスト形式)が並んでいます。
Sheet2のB列にはあらかじめ指定しておいたキーワードが並んでいます。

Sheet1のI列は○×を表示する欄となっており、
Sheet2のキーワードがSheet1のフリー解答欄内にあれば○、なければ×を表示させたいです。
どのようにすればできるでしょうか?
0915名無しさん@そうだ選挙にいこう2018/04/10(火) 20:55:37.36
>>908
=SUBSTITUTE(MID(A1,FIND("歳",A1)+1,LEN(A1)-2),"ヵ月","")
でどうよ
0916名無しさん@そうだ選挙にいこう2018/04/10(火) 21:36:54.44
エクセルのセル色付けについて
58000
58000
24569
24569
8000
8000
8000

条件付き書式で、数値が変わる毎にセルを別の色に設定する良い方法ありますでしょうか?
(上の場合3種に色分けしたいです)
0919名無しさん@そうだ選挙にいこう2018/04/11(水) 04:51:03.10
なんかさ、最近思うけどこれとこれ使えばできるから、みたいな回答
そういうんじゃなくてちゃんと書いてあげれば?って思う
0923名無しさん@そうだ選挙にいこう2018/04/11(水) 11:24:00.71
目の前にパソコンがあればちゃんと回答する
電車の中とかスマホで見てる時は数式を正確に入力するのが面倒なんだよ
動作確認もやりにくいし
0925名無しさん@そうだ選挙にいこう2018/04/11(水) 12:10:44.35
>>915
ありがとうございます…!
助かりました

mid(a1,find("歳",a1)+1,len(a1)-2) の-2を-5にするとなぜか○ヵ月の○部分が取り出せ、全くわけがわからなかったのですが、
綺麗な式を教えてくださってありがとうございました
レスくださった方もありがとうございました
0927名無しさん@そうだ選挙にいこう2018/04/11(水) 13:50:19.25
>>923
じゃあ無視するかパソコン操作ができるようになってから書けよ
0929名無しさん@そうだ選挙にいこう2018/04/11(水) 15:30:27.86
あーそっか年齢二けた固定(3文字固定)、ヶ月/ヵ月が2文字固定だから、先に後ろ2文字取ってから頭3文字取ればいいのか
=RIGHT(LEFT(A1,LEN(A1)-2),LEN(A1)-5)
こうか
0931名無しさん@そうだ選挙にいこう2018/04/11(水) 17:42:39.02
>>824は、無理でしょ。
そのあとにvba使ったかもとか書いてるし。

>>919
スマホで数式打つと間違えが多いので。
ダブルクォーテーションなんかも入力しにくいし。
あとは元の数式分かれば書くこともあるけど、そうでないと書いても二度手間になることがある。

同じシートに書きたいのか別シートに書くのか、作業列使ってもいいのか、文字列や数値を直接数式に書くのか参照するのかなどなど。
0933名無しさん@そうだ選挙にいこう2018/04/11(水) 20:54:49.96
それはさすがに爺いすぎるだろ w
機種によって違うけど英数字モードなら ()+-*/ とかは普通に入力できるし
$%"; とかが地味に面倒だったりする
0935名無しさん@そうだ選挙にいこう2018/04/11(水) 20:57:54.11
>>933
基本PCと音声入力だからな
記号打たないからどれが面倒とかもよーわからんし、
エクセルの数式を、モバイルでテキパキ打てても役に立つのがこのスレだけ
0936名無しさん@そうだ選挙にいこう2018/04/11(水) 21:19:30.63
>>935
知り合いがメールで質問してくるんで

そも記号を使うのはエクセルの数式だけじゃないし、むしろ記号がまったく必要ない人の方が
スマホをいったい何に使ってるのか不思議だわ
ちょっと前のパソコン並に色々出来るのに、せっかくの性能を活かしてないとしか
0937名無しさん@そうだ選挙にいこう2018/04/11(水) 21:33:09.05
CPUや表示はPC並かもしれんけど、入力が致命的にお粗末だからなあ
ネットラジオ聞くのにしか使ってないな

極稀に録音したり写真撮ったりする
あとは、amazonの荷物をコンビニに取りに行く時に番号を転送したり
夏場は帰る時にエアコンの電源を入れたり
思い出せる限りでそんなもん
0941名無しさん@そうだ選挙にいこう2018/04/11(水) 22:27:17.64
【1 OSの種類         .】 Windows 7
【2 Excelのバージョン   】 Excel 2007
【3 VBAが使えるか    .】 いいえ
【4 VBAでの回答の可否】 否

日付の表示で年月日の位置を揃える表示形式はありますか
平成_1年_1月_8日 (便宜上 _ を入れています)
平成30年12月31日
eemmdd だと 010108 となるので数値の ?0 に倣って ?e?m?d を試みたが巧く行かず
0943名無しさん@そうだ選挙にいこう2018/04/11(水) 22:49:04.46
>>941
直接そのセルの表示をいじるんじゃなくてよいなら、text関数使ってできるかな。
例えばa1に日付データ、それを元にb1に=text(A1,〜)みたいに。
少し強引でシンプルではないけど。
あと元号を平成に限るとかにしないと結構面倒。
0946名無しさん@そうだ選挙にいこう2018/04/11(水) 23:27:08.49
新聞とか書籍とか出版関係はそういう活字の組み方が普通だよ

アルファベットに全角を使う人も、大抵そっち方面の影響
0951名無しさん@そうだ選挙にいこう2018/04/12(木) 04:42:33.90
数字が一つだけなら桁数で全角に出来るけど、年月日の月だけ全角とかは書式では無理
TEXT関数あたりを組み合わせるしかない

いや、シートがめちゃくちゃ重くなってもいい方法なら1つ思いついた
実際に出来るかどうか試すのが面倒だけど、たぶんハングしそう
0954名無しさん@そうだ選挙にいこう2018/04/12(木) 07:37:34.00
>>953
質問者の意図は、元旦と大晦日で一番左と一番右が同じ位置になるようにしたいって話じゃなかろうか
官公庁に提出する書類は日付位置がずれているだけで不備と返されれことあるし

俺は条件つき書式は、重くなるから使わないでIFで条件分岐するけど
0958名無しさん@そうだ選挙にいこう2018/04/12(木) 12:44:18.08
シートAのA1セルをシートBのB1セルで参照しているとします。
シートBのC1セルに、シートAのA2セルの内容を表示させたい場合、
シートBのC1セルに入れる式を
=offset(indirect(A1),1,0)
としましたが、エラーになります。
どのようにすればよいのでしょう?
0960名無しさん@そうだ選挙にいこう2018/04/12(木) 20:08:40.54
>>929
ありがとうございます!!
0961名無しさん@そうだ選挙にいこう2018/04/12(木) 22:09:57.03
ピボットテーブルで空白の列を追加できますか?行見出しで。
空白という文字が入ったところを空白にできますか?
0962名無しさん@そうだ選挙にいこう2018/04/14(土) 11:08:01.51
【1 OSの種類         .】 Windows7
【2 Excelのバージョン   】 Excel2010
【3 VBAが使えるか    .】 はい
【4 VBAでの回答の可否】 可

vbaでオートフィルターを設定し絞り込む場合、選択するものを指定しますが、そうではなく◯◯以外を条件とし、またその除外条件が5項目ある場合の方法はありますか?
2項目までしか除外はできないとの情報もあり

a列に何らかの種類があるとして
除外したいのはa,b,c,d,e
これは毎回必ず含まれている
しかしそれ以外のf,g,h,i,......これは毎回種類が不特定に入ってくるため選択要素を指定することができない

フィルターしたい列の情報が毎回同じではありません
しかしそこに除外したい5項目は必ず入っており、それ以外の要素が毎回不特定に存在します
5項目を除いた条件がオートフィルターで取ることが希望です

よろしくお願いします
0964名無しさん@そうだ選挙にいこう2018/04/14(土) 11:34:58.02
フィルターの詳細設定使えばできるんじゃない
vbaならadvancedfilter
毎回同じなら1回条件範囲作れば使いまわせるでしょ

見出 見出 見出 見出 見出 
<>a   <>b   <>c  <>d  <>e

こんな感じのパッと見アホみたいな範囲指定になるけど
0965名無しさん@そうだ選挙にいこう2018/04/14(土) 12:15:35.47
年月日に空白を入れる方法で俺が思いついたやつ
2007以降で条件付き書式が無制限になったから、1-1-1桁から2-2-2桁まで8通り設定すれば出来る
たとえばこんな感じ

セルの表示形式 gggee年mm月dd日

条件1 =and(text(a1,"e")*1<10,month(a1)<10,day(a1)<10)
条件2 =and(text(a1,"e")*1<10,month(a1)<10)
条件3 =and(text(a1,"e")*1<10,day(a1)<10)
条件4 =and(text(a1,"e")*1<10)
条件5 =and(month(a1)<10,day(a1)<10)
条件6 =and(month(a1)<10)
条件7 =and(day(a1)<10)

書式1 ggg_0e年_0m月_0d日
書式2 ggg_0e年_0m月dd日
書式3 ggg_0e年mm月_0d日
書式4 ggg_0e年mm月dd日
書式5 gggee年_0m月_0d日
書式6 gggee年_0m月dd日
書式7 gggee年mm月_0d日

すべて「条件を満たす場合は停止」にチェック

1年を元年にしたければ、条件を16通り(15通り)並べればいい
0968名無しさん@そうだ選挙にいこう2018/04/14(土) 12:53:37.24
ググったらセルごとに手作業で書式を変えて対応するってのがあって、
それならVBAですぐできるよなと思ったり思わなかったり
0970名無しさん@そうだ選挙にいこう2018/04/14(土) 13:32:14.83
具体的って言われてもadvancedfilterは半分以上セルの上の値で決まるから、
一般機能のフィルターの詳細設定の使い方調べてちょうだい

いちおうコード書くけどセル範囲A1:C100が対象データで、5条件のクエリがE1:I2に書いてある場合なら
range("A1:C100"),advancedfilter xlFilterInPlace, range("E1:I2")
ってなる。これだけじゃわからんでしょ
0974名無しさん@そうだ選挙にいこう2018/04/14(土) 14:30:11.09
前にも誰か書いてたけどもうすこし説明つけてやってもいんじゃね?
自分の興味あると回答から逸れても延々長く書く癖にw
こう書けばじゃお前がやれよ、だしな
そういうもんじゃねーだろ
あと俺スゲーしたいだけの奴とかな
0976名無しさん@そうだ選挙にいこう2018/04/14(土) 15:03:04.60
「クエリ」の意味がわからないんじゃないかと予想するけど
聞く方も聞き方考えないと…聞き方ひとつでこのバイトダメだなとか思われちゃうよ
0977名無しさん@そうだ選挙にいこう2018/04/14(土) 15:13:54.70
すみません、説明を求めたばかりに
>>975
誤解されてるようですが基本的なフィルターの使い方はわかってますし、2条件除外までならすでにコードも書けています

すみません、理解力が足りないのか未だに>>971の内容はわかっていません

>>963
ありがとうございます
それも考えたのですが今回は作業列ではなくフィルター除外で実現しようと思いまして

あと今回のフィルター対象は日付ではないので日付の考え方は飛ばして読ませていただきました

もう一度ググったところ、とてもシンプルに複数条件除外するコードを書いてくださってる方の記事を見つけました
試したところそれでうまく動きました
それをヒントに自分でも更に内容を理解したいと思います
理解力足らずお騒がせし申し訳ございませんでした
0978名無しさん@そうだ選挙にいこう2018/04/14(土) 15:19:06.14
>>976
クエリはわかっています
ですが今回なぜE1:L2が出てくるのか全くわかりませんでした
そしてそこでなぜクエリ?とは思いました
0984名無しさん@そうだ選挙にいこう2018/04/14(土) 18:05:15.18
結局、平成 1年 1月 8日や平成30年12月31日をはじめ任意の日付を
「平」から「日」までを等幅で表示するのに一つの書式では無理なのか。
0986名無しさん@そうだ選挙にいこう2018/04/14(土) 18:30:27.20
>>962です
>>964は別の作業列を5列×2行を設けるということだったのですね
でしたらば、今回作業列を設けずフィルターだけで実現する前提で考えていましたので頭から排除しており気がつきませんでした

また最初のご回答だけではやはり理解は難しかったです

フィルター自体で数に制限なく除外条件を判断する方法が見つかりましたのでそちらを使用したいと思いますが、また今後の参考にさせていただきたく思います
また客観的に人に説明する場合どのように書いたら親切かという観点でも勉強になりました
ありがとうございました
09879802018/04/14(土) 19:19:45.23
ん、スレ立てか
試してみるわ
ちょっと待ってて
0989名無しさん@そうだ選挙にいこう2018/04/14(土) 21:38:25.52
>>984
和暦でひとセル、年の十の位でひとセル、一の位でひとセル・・以下、月、日まで同様
元年の場合は十の位、一の位を結合してひとセル 当然セル幅は4と8とか倍数
そんなに日付の位置揃えにこだわるなら、これで解決
そうまでしてこだわる重要書類のヒントだけでも教えて欲しい
本文側はさぞかし高尚な内容なんだろうな、と

目的はなんだろ? そんな(くだらない)ことにこだわる理由って
上司の受け狙いかな
0991名無しさん@そうだ選挙にいこう2018/04/14(土) 22:35:42.96
解決方法はいくらでもあるけど、書式でやらないといけないという縛りが無茶な部分
ここから東京駅まで行く方法を示せ。但し、息は止めたままで
みたいな
0994名無しさん@そうだ選挙にいこう2018/04/15(日) 08:28:33.00
まぁでも最近荒っぽい答え方でそれじゃあってのはあるし
単純に感じ悪いコメントは確かにあるからな
昔は答える方がエスパーだったけど今は回答もらった方がエスパーにならなきゃならんかね
10011001Over 1000Thread
このスレッドは1000を超えました。
新しいスレッドを立ててください。
life time: 112日 18時間 43分 56秒
10021002Over 1000Thread
5ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。


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

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

▼ プレミアム会員登録はこちら ▼
https://premium.5ch.net/

▼ 浪人ログインはこちら ▼
https://login.5ch.net/login.php
レス数が1000を超えています。これ以上書き込みはできません。

ニューススポーツなんでも実況