Excel総合相談所 132

**名無しさん＠そうだ選挙にいこう** · 2018/07/01(日) 12:22:32.86

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

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

前スレ
Excel総合相談所 131
https://find.5ch.net/search?q=excel

Excel VBA 質問スレ Part51(1000到達済み)
https://find.5ch.net/search?q=excel+vba

【質問不可】Excel総合相談所スレの雑談・議論スレ4
https://find.5ch.net/search?q=excel+%E3%80%80%E7%9B%B8%E8%AB%87%E6%89%80

**名無しさん＠そうだ選挙にいこう** · 2018/07/20(金) 16:17:59.18

諦めな

**名無しさん＠そうだ選挙にいこう** · 2018/07/23(月) 21:47:57.91

alt+enterでセル内で改行したテーブルを作ったけど、vlookupを使って表示をさせようとすると改行されずに１行で表示されてしまいます
なんとか２行で表示させることはできませんか？

**名無しさん＠そうだ選挙にいこう** · 2018/07/23(月) 21:49:19.10

>>138
書式設定の「折り返して表示」

**名無しさん＠そうだ選挙にいこう** · 2018/07/23(月) 21:58:35.14

>>139
言葉足らずで申し訳ありません・・
センターリングで２行で表示をさせたいのです・・

**名無しさん＠そうだ選挙にいこう** · 2018/07/23(月) 22:30:41.45

>>140
横から失礼
２行分にまたがって表示させたいのであれば、
VLOOKUPの計算式のあるセルと直下のセルを結合したらいいのでは？

**名無しさん＠そうだ選挙にいこう** · 2018/07/23(月) 22:43:44.64

>>141
有難うございます
ですが、データベースなので結合とかは避けたいのです、、

**名無しさん＠そうだ選挙にいこう** · 2018/07/23(月) 22:51:09.12

>>138
これじゃいかんの
https://i.imgur.com/kYvE4CN.png

**名無しさん＠そうだ選挙にいこう** · 2018/07/23(月) 23:05:55.68

>>143
有難うございます
商品名によって長さが異なるので、スペースを使って調整するのはちょっと、、

**名無しさん＠そうだ選挙にいこう** · 2018/07/23(月) 23:29:40.34

>>144
観察力無さすぎ。
センタリングと折り返し両方書式指定してることが画像で読み取れる。スペースを挟んだ訳ではない

**名無しさん＠そうだ選挙にいこう** · 2018/07/23(月) 23:38:24.07

あれ、伝わらなってなかったか
>>145補足ありがとう

**名無しさん＠そうだ選挙にいこう** · 2018/07/24(火) 02:57:58.82

そもそも>>139に対して>>140のレスが意味不明すぎるな
言葉じゃなくて脳足らず

**名無しさん＠そうだ選挙にいこう** · 2018/07/26(木) 21:34:54.09

A列とB列を比較して絶対値の大きい方の値をシー列に表示を各行ごとにやっていく関数教えてください

**名無しさん＠そうだ選挙にいこう** · 2018/07/26(木) 21:48:03.04

if(a1>a2,a1,a2)

**名無しさん＠そうだ選挙にいこう** · 2018/07/26(木) 21:50:43.41

あ、絶対値ならabs(a1)みたいな

**名無しさん＠そうだ選挙にいこう** · 2018/07/26(木) 21:51:39.41

>>148
正攻法なら
C1に=MAX(ABS(A1),ABS(B1))
を入力してコピー

**名無しさん＠そうだ選挙にいこう** · 2018/07/27(金) 14:55:29.21

ありがとうございます
無事できました

**名無しさん＠そうだ選挙にいこう** · 2018/07/27(金) 23:39:21.75

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

質問があります。
下記表があり、自動で今月の商品を抽出できるようにしたいのですが
記録のマクロで、A5をコピーしフィルターに貼付けるようにしたら
2018-07が貼り付きます
A5は＝today（）なので来月は2018-08が自動で抽出させるにはどうすれば宜しいでしょうか？

　　 a　　　　b 　　 c　　d 　　　e
1 　年　　　　商品　数量　金額　　2018-07
2　2018-06　りんご　2　　200
3　2018-07　いちご　2　　500
4　2018-07　ばなな　1　　150

Sub Macro1()
'
' Macro1 Macro
'

'
Range("e1").Select
Selection.Copy
ActiveSheet.ListObjects("sheet1").Range.AutoFilter Field:=1, Criteria1:= _
"2018-07"
End Sub

**名無しさん＠そうだ選挙にいこう** · 2018/07/28(土) 02:15:58.72

>>153
A5にtoday関数というのが、よく分からない。
普通、A列も下方向にデータが増えて行くのでは？
2018-07も、手入力でハイフンまで打ってるのかな？
どう入力するかはともかく表示形式で設定した方がいいような気もするけど。

**名無しさん＠そうだ選挙にいこう** · 2018/07/28(土) 04:52:09.54

>>153
マクロ回答が否なのにマクロのソース貼られても

**名無しさん＠そうだ選挙にいこう** · 2018/07/28(土) 06:04:56.42

>>153
A5じゃなくてE1では？

**名無しさん＠そうだ選挙にいこう** · 2018/07/28(土) 07:07:53.43

VBA使ってよく、且つE1がフィルタ条件でいいなら
そのマクロに変数1つ設定するだけだけなんだがw

**153** · 2018/07/28(土) 07:13:25.83

さっそくの回答ありがとうございます

>>154>>156
すみませんA５ではなくE1でした
A列には2018-08など年月データが増えていきます
2018-の表示はうちのPCからCSVで出力した時に自然とそう出力されるので
E1には=TEXT(TODAY(),"yyyy-mm")としています

>>155
すみません書き間違えました
【4 VBAでの回答の可否】可です

色々と書き間違えていてみませんがご回答よろしくお願いします

**名無しさん＠そうだ選挙にいこう** · 2018/07/28(土) 07:54:35.17

Sub Chusyutsu()
Dim Cm As String
Cm = Cells(5,1).Value
ActiveSheet.ListObjects("sheet1").Range.AutoFilter Field:=1, Criteria1:= Cm
End Sub

**154** · 2018/07/28(土) 10:00:15.36

Sub test()
Dim myYearMonth As String
myYearMonth = Format(Date, "yyyy-mm")
Range("A1").AutoFilter 1, myYearMonth
End Sub

**154** · 2018/07/28(土) 10:21:55.79

>>158
すみません、翌月でしたね。どちらにしても、E1にtoday関数は不要です。

Sub test()
Dim myYearMonth As String
myYearMonth = Format(DateSerial(Year(Now), Month(Now) + 1, 1), "yyyy-mm")
Range("A1").AutoFilter 1, myYearMonth
End Sub

E1にtoday関数を使いたい場合は、いくつか方法があると思いますが、簡単なのは
F1に=TEXT(DATE(YEAR(E1), MONTH(E1)+1, 1),"yyyy-mm")と数式を入れておいて
上記コードの2行のRange("E1")をRange("F1")にすればよいかと。

**161** · 2018/07/28(土) 10:25:05.31

何度もすみません。下の3行は書き間違いなので、無視してください。

**名無しさん＠そうだ選挙にいこう** · 2018/07/28(土) 15:53:27.01

>>143-147
有難うございました！
会社のPCでしか確認できなかったのでお礼が遅くなり申し訳ありませんでした

**153** · 2018/07/28(土) 18:04:14.47

>>154さんありがとうございます。
今月のデータのみ抽出したいので160で大丈夫です。

>>159さんもありがとうございました。

**名無しさん＠そうだ選挙にいこう** · 2018/07/28(土) 22:40:16.63

お前ら最近エクセルで何作ったよ？？こんなスレにいて何つくんの？

**名無しさん＠そうだ選挙にいこう** · 2018/07/28(土) 22:46:32.12

>>165
暑中見舞いのはがきorz

**名無しさん＠そうだ選挙にいこう** · 2018/07/28(土) 23:08:04.83

>>166
ちゃんと住所録作ったか？

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 02:31:03.49

転職した今の中小企業は見栄えの関係でセルの結合ばかり使ったファイルでうんざり
財務諸表の加工をマクロでして見せたら、なんでもマクロで解決できない？と要求されて困ってる

自分のマクロの使い方はテーブル化されたシンプルなデータを加工・抽出や定型文書とかにしか使ってません
皆さんはどんなことに使ってます？
マクロの可能性とやらを教えてくださいw

あと、VBAは一読して挫折したけど、真剣に勉強する価値はありますか？

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 03:40:57.68

無いよ

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 04:13:47.33

>>168
ゲーム製作板でローグライク作ってるよ

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 06:24:41.45

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

〇・△・□・✕のような記号をセルに入力して、〇か□の記号が入力されているうちの、一番右側のセルの位置（例えばC3）を表示するにはどうすればよろしいでしょうか。

どの関数を使うのかのヒントでもよいのでお願いいたします。

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 09:17:07.33

>>171
lookup

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 09:33:34.87

>>168
自分がやってる仕事全部かなぁ
fso触れるようになるとめちゃくちゃ便利だよ。一歩上にいける

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 09:35:44.79

シートの一覧を出して選択して移動したり、
図形の中に書かれている文字列を検索・置換したり、
全シートのカーソル位置をA1に揃えたり、
書き込み禁止状態で編集しようとしたら警告したり、

みたいないろんな痒いところに手が届く便利機能満載のマクロか何かが
あった筈なんだけど、どこにあるか知りませんか?

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 09:41:15.50

>>174
そういうのはライブラリやアドインという
ここの連中は自前で作ってしまえるので、多分みんな知らない
「エクセル　ライブラリ」とかで検索したほうが早いかも

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 09:58:06.28

マクロじゃなくてアドインか
RelaxTools という奴だと思う

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 13:00:17.09

ここで、質問があってるか分からないのですが、

Web上にExcelファイルを置いて、
ブラウザ上で、限られたメンバーのみが閲覧編集出来るサイトなど有りますか？

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 13:05:55.73

>>177
googleスプレッドシート
https://www.google.com/intl/ja_jp/sheets/about/

microsoftもなんかあった気がするけど、忘れた

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 13:08:07.72

>>177
onedriveで共有フォルダ作って、
excel fileをそこに置いて、
公開する相手を指定する。

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 15:03:40.22

>>178
>>179
ありがとうございます
ただ、URLを相手に送って
Webブラウザ上でやりたいんです

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 15:22:32.62

>>180
じゃあスプレッドシート
エクセルからスプレッドシートに変換すればブラウザ上でも編集できる
ダウンロードはエクセル形式に戻すことも可能

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 15:28:03.13

>>180
GoogleスプレッドシートはWebブラウザ上で扱うよ？

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 15:43:06.38

>>180
何をやりたいかによるけど、
onedriveはクラウドサービスなんだから、URLを教えればいいし、
Excel onlineでwebブラウザ上で基本的な編集はできる。
Excel desktopとExcel onlineの機能差はググれ。

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 22:27:00.04

ほかのユーザーが使用中のだめ保存できませんでしたって手でくるのはどうしたらいいの？

**名無しさん＠そうだ選挙にいこう** · 2018/07/29(日) 22:31:50.91

他のユーザーに閉じてもらう
もしくは共有を設定する

**名無しさん＠そうだ選挙にいこう** · 2018/07/30(月) 00:28:37.36

うちは逆に開けない時があるわ

NASにあるパスワードを掛けてない共有フォルダ内ににある
Excelファイルを開こうとしてエラーが出て読みこめず、何度かクリックしてたら読み込めたり
パスワード要求されて全く読めなくなったら再起動して解決とか
NASの問題なのかな

**名無しさん＠そうだ選挙にいこう** · 2018/07/30(月) 00:36:23.54

>>186
そう思うならNASの機種書けよ。その地雷買っちまうだろ

**名無しさん＠そうだ選挙にいこう** · 2018/07/30(月) 18:07:19.10

すみません、教えてください。
a、b２つの会員名簿のファイルがあります。
aは会員の抜粋、bは全会員です。
住所と電話番号はbにしか入っていません。
これをaに転記したいのです。
どちらのファイルにもb列に会員IDが入っています。
これに紐づけてbの住所と電話番号を
aに引っ張ってこれないでしょうか？
office365solo、MacBook Airです。

**名無しさん＠そうだ選挙にいこう** · 2018/07/30(月) 18:38:38.63

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

エクセル初心者です。
A列に上限200文字くらいまでのフリーコメント欄があります。
A列のテキストの中に「クレーム」という文字があった場合、B列に「●」を表示させるにはどうしたら良いでしょうか？

**名無しさん＠そうだ選挙にいこう** · 2018/07/30(月) 19:10:15.66

SUBSTITUTE()をつかう

**名無しさん＠そうだ選挙にいこう** · 2018/07/30(月) 19:42:36.48

>>189
いくつか方法があるけど、
if関数、countif関数、ワイルドカードを使う場合
=IF(COUNTIF(A1,"*クレーム*")<>0,"〇","×")
if関数、substutute関数、len関数を使う場合
=IF(LEN(A1)<>LEN(SUBSTITUTE(A1,"クレーム","")),"〇","×")
if関数、iferror関数、serach関数を使う場合
=IFERROR(IF(SEARCH("クレーム",A1),"〇"),"×")

**191** · 2018/07/30(月) 19:44:48.34

>>188
普通にvlookup関数か、index関数とmatch関数でいけるのでは？

**名無しさん＠そうだ選挙にいこう** · 2018/07/31(火) 00:05:26.10

>>191
横レスだけど、MOUSで勉強でもされましたか？
ネストとかになるとネットで調べないと対応できなくて

**191** · 2018/07/31(火) 00:45:07.53

MOSは持ってないですが、我流よりは独学でもいいので
体系的に学習した方がいいかもしれません。
というほど私も詳しくないですが。

ネストは慣れでしょうけど、
1.作業列使ってシンプルに書く。
2.必要に応じてそれを1つの式にする。
という段階を経てやるのがいいのではないでしょうか。

**名無しさん＠そうだ選挙にいこう** · 2018/07/31(火) 06:45:40.60

>>188
=index(bの住所列,match(aの会員ID,bの会員ID列,0))
=index(bの電話番号列,match(aの会員ID,bの会員ID列,0))

**名無しさん＠そうだ選挙にいこう** · 2018/07/31(火) 10:53:49.27

>>191
横レスだけどlenはなくてもいけるよ

**191** · 2018/07/31(火) 20:42:47.96

>>196
ああ、そうですね。言われてみるとその通りです。
=IF(A1<>SUBSTITUTE(A1,"クレーム",""),"〇","×")
ということは、3つの中でこれが一番シンプルかも。

**名無しさん＠そうだ選挙にいこう** · 2018/07/31(火) 21:41:54.49

だからいったろ

**名無しさん＠そうだ選挙にいこう** · 2018/07/31(火) 23:23:29.31

超初心者です。ブイルックアップが全くわかりません！教えてください！

**名無しさん＠そうだ選挙にいこう** · 2018/07/31(火) 23:26:40.33

>>199
https://support.office.com/ja-jp/article/vlookup-%E9%96%A2%E6%95%B0-0bbc8083-26fe-4963-8ab8-93a18ad188a1

**名無しさん＠そうだ選挙にいこう** · 2018/08/01(水) 08:43:32.39

なんかエクセルファイル開こうと思ったらいきなりofficeの何とか同意しますかって画面が出てきた
同意したら普通に使えるようになったけど
定期的に認証確認してるってことでいいのかな
1年使っててこんなの初めてなんだけど

**名無しさん＠そうだ選挙にいこう** · 2018/08/01(水) 09:01:14.73

>>201
何に同意するのかちゃんと読むようになれば初心者脱却

**名無しさん＠そうだ選挙にいこう** · 2018/08/01(水) 09:33:42.63

>>202
拾った画像だけど
https://i.imgur.com/amyRjdA.jpg

この画面で間もなく準備～じゃなくて使用許諾とかだったと思うけど
で同意してofficeを開始ってボタンになってた
仕事でメール送る必要あったからとっさに同意してしまったけど
officeHB2016のスタンドアローン版ね

**名無しさん＠そうだ選挙にいこう** · 2018/08/01(水) 17:57:03.78

office365solo Excel2016で1ヶ月前からエラー
一部の内容に問題が見つかりました。可能な限りを回復しますか？→はい
修復されたレコードが～
このときのtable番号メモ
ブックの拡張子→zipに変更中身確認、table番号から該当テーブル特定
別PCのExcel2010で該当テーブルを「範囲にへんかん」
これでExcel2016で起動できた
コミュニティにも同様の質問がちらほら

へんかん（漢字）
NGワードわろた

**名無しさん＠そうだ選挙にいこう** · 2018/08/01(水) 20:02:47.94

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

[データ]－[グループ化]に関しての質問です。
Googleスプレッドシートでグループ化（折り畳み）を行うと、
開閉ボタンはグループ化する対象の1行上に表示されるのに対し、
Excelでは指定した行の1行下に表示されます。
Googleスプレッドシートで設定後にExcel形式でダウンロード→Excelで開くことで
Excel上でスプレッドシートと同様1行上にボタンを表示させることはできますが、手間です。

使う目的としては1行上に表示される方が都合が良いのですが、
Excel単体でそうなるように設定する方法はありますでしょうか。

**名無しさん＠そうだ選挙にいこう** · 2018/08/02(木) 08:55:18.33

>>205
アウトラインの設定

**名無しさん＠そうだ選挙にいこう** · 2018/08/02(木) 10:44:49.82

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

workday関数についてですが、1年間の表を作りたいのですが、1週間に一度くらいの割合で日付が2日ほど飛んでいます。
セルの参照は間違っていないようなのですが、何が原因か分かりません。

原因と解決策がわかる方がいれば、ご教授いただければ幸いです。

**名無しさん＠そうだ選挙にいこう** · 2018/08/02(木) 12:31:21.45

>>207
workday関数は土日と指定したリストに含まれる日を除く関数

**名無しさん＠そうだ選挙にいこう** · 2018/08/02(木) 12:35:27.91

>>208
ありがとうございます
workdayを使わなければちゃんとした表が作れました

**名無しさん＠そうだ選挙にいこう** · 2018/08/02(木) 14:56:56.74

>>201
どうやら同じような症状が出たって報告がネットに上がり始めてた

https://bunbougu.hatenablog.com/entry/2018/08/01/173434
https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_other-mso_win10-mso_2016/注意事項次/8d5a7ccb-e3fe-403b-8d89-e00b65c0b730?tm=1532916013672

**名無しさん＠そうだ選挙にいこう** · 2018/08/02(木) 23:19:43.39

>>201
この表示が出て同意するしかないから同意したけど
そのあとから今まで使えてたアドインがバーから消えてて、アドインの項目調べたらチェック自体はついてるんだけど
どうすればいいのかな

**名無しさん＠そうだ選挙にいこう** · 2018/08/03(金) 00:03:46.01

>>211
アンインストールインストールで治った

**名無しさん＠そうだ選挙にいこう** · 2018/08/03(金) 22:12:39.99

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

詳しい方教えて下さい。
複数のシートに貼り付いた図形（正方形/長方形）から文字を抜き出す方法を教えて下さい。
自分なりに探しテキストボックスから文字を抜き出すマクロを見つけ実行しましたが作動せず。
https://www.relief.jp/docs/excel-vba-wright-texts-in-textboxes-to-cells.html

やはりテキストボックスと図形（正方形/長方形）は違うのでしょうか？

ちなみにこれが実行したマクロです

Sub テキストボックスの文字列を書き出す()
　Dim shp As Shape
　Dim n As Long　' 文字列を書き出す行番号

　n = Cells.SpecialCells(xlCellTypeLastCell).Row + 3

　For Each shp In ActiveSheet.Shapes
　　If shp.Type = msoTextBox Then
　　　Cells(n, "A").Value = _
　　　　　shp.TextFrame.Characters.Text
　　　n = n + 1
　　End If
　Next shp

End Sub

**213** · 2018/08/03(金) 22:14:12.74

すみません
【4 VBAでの回答の可否】可です。

**名無しさん＠そうだ選挙にいこう** · 2018/08/03(金) 22:34:19.99

>>213
複数のワークシートを順に選択するプログラムがどこにもない

Sub テキストボックスの文字列を書き出す()
　　Dim shp As Shape
　　Dim n As Long　　' 文字列を書き出す行番号

　　n = Cells.SpecialCells(xlCellTypeLastCell).Row + 3

　　For Each ws In Worksheets
　　　　For Each shp In ws.Shapes
　　　　　　Cells(n, "A").Value = shp.TextFrame.Characters.Text
　　　　　　n = n + 1
　　　　Next
　　Next
End Sub

**名無しさん＠そうだ選挙にいこう** · 2018/08/03(金) 23:02:32.24

>>215
ありがとうございます。
本当に助かりました。

**名無しさん＠そうだ選挙にいこう** · 2018/08/05(日) 11:13:51.83

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

同じセル内でもドロップダウンリストの項目を変える方法を教えてください。

A列には箇所１、箇所2・・・箇所10といった箇所を入力
B列には箇所ごとに発生する5～10種類のエラー内容を入力（トータルで60項目程度で内容に被りは無し）

といった感じで入力していますが、入力する人によって言い回しや送り仮名の使い方が違っていて
履歴を辿りたい時に苦労することがあります。
なので、ドロップダウンリストから選択する方式に変えたいのですが、
エラー内容が60項目もあるのでそのままだと選択すること自体が大変になりそうです。

A1で箇所1が選択された場合は箇所1のみで発生するエラー内容（6項目）のドロップダウンリストを、
A2で箇所3が選択された場合は箇所3のみで発生するエラー内容（8項目）のドロップダウンリストを・・・

このようにしたいのですが、方法があったら教えてください。

**217** · 2018/08/05(日) 11:19:30.21

質問ではドロップダウンリストと書きましたが思いついたのがそれだけであって、
A列の選択内容によってB列のリストが適切なものになる方法であれば何でもOKです。

**名無しさん＠そうだ選挙にいこう** · 2018/08/05(日) 11:54:52.22

>>217
https://www.excelspeedup.com/pulldown4/

**名無しさん＠そうだ選挙にいこう** · 2018/08/06(月) 23:21:02.77

>>216
どういたしまして

**名無しさん＠そうだ選挙にいこう** · 2018/08/07(火) 11:14:03.01

よろしくお願いします。

あるデータの桁数を揃えたいのですが、どんな計算式を使えばいいでしょうか。

1-2-3-4
↓
1-02-03-004

1桁2桁2桁3桁に揃えたいです。

**名無しさん＠そうだ選挙にいこう** · 2018/08/07(火) 12:45:17.53

>>221
=LEFT(A1,2)&TEXT(LEFT(MID(A1,3,9),FIND("-",MID(A1,3,9))-1),"00-")&TEXT(
MID(LEFT(A1,FIND("c",SUBSTITUTE(A1,"-","c",3))-1),FIND("b",SUBSTITUTE(
A1,"-","b",2))+1,3),"00-")&TEXT(MID(A1,FIND("d",SUBSTITUTE(A1,"-","d",
3))+1,3),"000")

**名無しさん＠そうだ選挙にいこう** · 2018/08/07(火) 15:04:55.32

今手元にないから確認できないけど
見た目だけでいいなら書式設定でできるんじゃ？

**名無しさん＠そうだ選挙にいこう** · 2018/08/07(火) 18:12:50.81

元データは文字列にしかならんだろうし、どう書式設定するというんだ

**名無しさん＠そうだ選挙にいこう** · 2018/08/08(水) 11:01:37.47

質問です。

データ整理と検索についてなのですが
例えば建物名とその建物のに振られた番号があるとします。

no1 テストビル
no2 テストマンション
no3 テストスーパー
といった具合の一覧があるとして
表を作った時にセルにno1と入力したら
隣のセルにテストビルと抽出させるようにすることはできますか？
できるとしたらどのような関数と式を用いればいいでしょうか。
よろしくお願いいたします。

**名無しさん＠そうだ選挙にいこう** · 2018/08/08(水) 11:18:22.21

vlookup

**名無しさん＠そうだ選挙にいこう** · 2018/08/09(木) 00:04:43.00

サーバにインストールするExcelと
クライアントのパソコンに入れるExcelはまた種類がちがうの？bit数は違っても32bitならいけるとおもうが

**名無しさん＠そうだ選挙にいこう** · 2018/08/09(木) 12:41:29.09

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

入力規則について質問です
プルダウンリストを設定して入力規則のエラーメッセージのタブで
無効なデータが入力されたらエラーメッセージを表示する
にチェックマークを入れてスタイルを停止にすると
勝手に入力しようとしたらエラーメッセージが表示されると思いますが
エラーメッセージが表示されず自由に入力できる時があります
何が原因でしょうか

https://i.imgur.com/8Xo9r1D.jpg
https://i.imgur.com/vFayrKv.jpg

**名無しさん＠そうだ選挙にいこう** · 2018/08/09(木) 13:19:38.35

>>228です
自決しました
プルダウンリストの範囲に後で追加できるよう空欄セルを含めてると
自由に入力できることが分かりました
お騒がせいたしました

**名無しさん＠そうだ選挙にいこう** · 2018/08/09(木) 13:37:48.87

>>229
成仏して

**名無しさん＠そうだ選挙にいこう** · 2018/08/09(木) 14:23:06.57

自決www

**名無しさん＠そうだ選挙にいこう** · 2018/08/09(木) 15:14:50.27

桁括りの , が、何の為にあるのか、
分からないまま、逝っちゃったんだろうナ・・・

**名無しさん＠そうだ選挙にいこう** · 2018/08/09(木) 18:45:03.37

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

入力規則について質問です
２段階のプルダウンリストを設定して
初段のリストから選択した値を読み込んで
もう１つのプルダウンリストには最初に選択された値によって絞り込まれたリストが出るようにしたいです
私の知っている方法では
リストの元となるデータ表を作成し
必要なリストごとに名前を設定して
2段階目のプルダウンリストに
=indirect(初段リストのセル番地)ぐらいなのですが
今回これではできない理由があります
初段リストに載せる値がスペースや,などが入っており(これは絶対に変えれません)名前の定義ができませんと拒否されます

なので名前の定義ができない以上この方法は使えなく、他にいい方法があれば教えてください><
お願いします

そして別表で作った
何が原因でしょうか

https://i.imgur.com/8Xo9r1D.jpg
https://i.imgur.com/vFayrKv.jpg

**名無しさん＠そうだ選挙にいこう** · 2018/08/09(木) 18:46:45.49

>>233

すいません
内容コピって消さずに書き込んじゃいました

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

入力規則について質問です
２段階のプルダウンリストを設定して
初段のリストから選択した値を読み込んで
もう１つのプルダウンリストには最初に選択された値によって絞り込まれたリストが出るようにしたいです
私の知っている方法では
リストの元となるデータ表を作成し
必要なリストごとに名前を設定して
2段階目のプルダウンリストに
=indirect(初段リストのセル番地)ぐらいなのですが
今回これではできない理由があります
初段リストに載せる値がスペースや,などが入っており(これは絶対に変えれません)名前の定義ができませんと拒否されます

なので名前の定義ができない以上この方法は使えなく、他にいい方法があったら教えてください><
お願いします

**名無しさん＠そうだ選挙にいこう** · 2018/08/09(木) 19:21:30.01

２段めを成約する範囲の名前が、１段目の値そのものでなくてもいんじゃないの

**名無しさん＠そうだ選挙にいこう** · 2018/08/09(木) 20:39:25.84

>>235
1段目の値そのものにしないと
どうやってリストを絞り込むんですか？

例えばですけど
1段目 2段目
人事 Aさん Bさん Cさん
経理 Dさん Eさん
総務 Fさん Gさん Hさん Iさん
というデータリストがあって

1段目で人事を選ぶと2段目ではA～Cさんまでしか
リストに表示されないようにしたいんです
そこで1段目のリストのデータ範囲に人事、経理、総務
を入力します
次にAさん～Cさんの範囲で「人事」と名前の定義
DさんからEさんの範囲で「経理」と名前の定義
FさんからIさんの範囲で「総務」と名前の定義
をします
最後に2段目のリストのデータ範囲に
indirect(1段目のリストの番地)
と入力すると1段目の値から名前を読み取って定義づけされた名前の範囲のデータを選択できるようになるんですが、
そもそも名前の定義づけができない場合に他の方法で同じことできる方法を教えて欲しいのです