Excel総合相談所 111

>>951
カラーインデックスでなくても、例えば「青」「薄青」「淡青」でも、「１」「２」「３」でも、、
希望する好みの色を判別できればＯＫ

で、a1に「青」と入れたとする。
（土曜・日曜の判定は省略しますが）
塗りつぶししたいセルの条件付き書式では、「数式を使用して…決定」を選ぶ

数式は、
=a1="青" として書式に（カラーパレットから）青を指定する

=a1="薄青"
=a1="淡青"
とかルールをただただ追加いけば実現しますw

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

質問させてください。
自分のレベルは拾い物のVBAコードと、自分の操作をマクロで記録したものを並べて簡単な編集が出来る程度です。
言語としてのVBは全く理解していません。
以下のコードをあるサイトで拾ったのですが、InputBoxに入力したディレクトリ内のファイルをリスト化するようになっています。
ディレクトリ名を入力するのではなく、フォルダを選択してそのフォルダ内のファイル一覧を出力するように改造したいのですが、
どのようなコードを入れればいいのでしょうか。

改行エラーが出るので次レスにコード貼ります。

Sub MakeFileList()

Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定")

Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder(Target)
Set Fil = Fol.Files

'見出しを付ける
ThisWorkbook.Sheets(1).Range("B2") = "ファイル名"
ThisWorkbook.Sheets(1).Range("B2:Es2").HorizontalAlignment = xlCenter

i = 3
For Each Fx In Fil
'ファイル名
sFile = Fx.Name
'ファイル名の書き出し
ThisWorkbook.Sheets(1).Cells(i, 2) = sFile
i = i + 1
Next

低レベルな質問だとは思いますがよろしくお願いします。

vba フォルダ選択
でググっただけで、
http://officetanaka.net/excel/vba/tips/tips39.htm
が一番目にヒットしたけど…

少しは自分で調べろアホ氏ね

>>955
すみません、そういうサイトはいくつか見たのですが、
Target = の対象に持ってくる方法がわからないので質問させてもらいました。
953に書きましたが、VBAを手書きで編集する方法はほぼ無知ですのでお許しいただければ...

>>953-954

Target = InputBox("ディレクトリ名を入力", "ディレクトリの指定")

　　　↓

Const CurDir = "C:\" ' トップに表示するドライブやディレクトリのパス
Dim SelectFolder As Object
Set SelectFolder = CreateObject("Shell.Application").BrowseForFolder(&O0, "ディレクトリの指定", &H1 + &H10, CurDir)
If SelectFolder Is Nothing Then
　　MsgBox "キャンセルされました"
　　Exit Sub
End If
Target = SelectFolder.Items.Item.Path

>>953-954 ありがとうございます。

958です。アンカ誤爆しました>>957です。

リボンを常に細く表示する方法を教えて

>>960
https://www.google.co.jp/search?q=%E3%83%AA%E3%83%9C%E3%83%B3%E3%82%92%E5%B8%B8%E3%81%AB%E7%B4%B0%E3%81%8F%E8%A1%A8%E7%A4%BA%E3%81%99%E3%82%8B%E6%96%B9%E6%B3%95%E3%80%80Excel

底辺の人。希望もてるぞ。

http://manta.blog.jp/

>>962
ゴミみたいなブログの宣伝

セル内のパディングを設定したいんだけど
どうすりゃいいんだっけか

均等割り付け？

>>965
セルの中にちょっとだけ余白をつけたい

>>966
表示形式
上下は知らん

コピーしたセルを挿入
ってキーボードショートカット無い？

あった
CTRL+＋だったわ

>>969
右クリ→Eのが早いと思う

>>970
フィルターとか言うへんてこ機能が召喚されるで

>>971
フィルターもEなのか。
セルコピー→挿入したい場所で右クリ→E→Enter
かな。
それかマウス使うなら、ctrl押しながらD&Dの方が楽だったかも

123改行改行
という文字列を数値化したいんだけど
VALUE(A1)がエラーになるのは何で？

>>973
改行は改行という「文字」
=VALUE(SUBSTITUTE(A1,CHAR(10),""))
とかで

=VALUE(CLEAN(A1))
の方がこの場合スマートだったか

>>975
ありがとう！
できました！

あるセルとあるセルの書式の違いを見たいんだけど
どうすれば差分がわかりますか？

>>977
cell関数の第一引数"format"かvba
多分ユーザー書式を見るのが一番早い

>>978
ありがとう

あるセルの数値は微妙に右から浮いてて（インデントではない）
あるセルの数値は右にぴったりくっついてて
その差がなんなんかまったく分からなかったので
しらべて煮ます

インデントしなくても
「0 」
「0」
という書式だと、上のは右にスペース1つ分空き、下のは右にぴったりになる

書式設定の数値だか小数点だかが右にスペースあるんだよ
俺もずいぶんハマったことがアル

次スレ

ほい
Excel総合相談所 112
http://toro.2ch.net/test/read.cgi/bsoft/1391814731/

乙

>>983
おつ

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

セルA1に1〜99の数値が入っていて
1だったら数値Aを、2だったら数値Bを・・・(99まで)という形で
A1にある数値に応じて指定した数値を返すということがしたいのですが
どのような条件式を使えばできるでしょうか

>>986
どこか別に表作ってvlookup（）
http://kokoro.kir.jp/excel/vlookup-false.html

慣れてくればindex()match()を組み合わせる。
ちなみに29個までならchoose（）でも可能

>>986
作業列に一覧を作っておいて
=INDIRECT("B"&A1)
例ではB列を使用

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

うめ

うめ

梅

うめ

うめ

うみ

うも

うめ

998

999

千

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。