Excel総合相談所 101
http://toro.2ch.net/test/read.cgi/bsoft/1329913579/
▼━ 質問のしかた ━━━━━━━━━━━━━━━━━━━━
★1 質問するときは環境や条件はきちんと書いてね。情報後出しはダメ。
★2 要望は具体例や図を使って明確かつ具体的に。
★3 質問テンプレ(雛形)は必須じゃないけど、出来れば使ってね
▼━質問テンプレ (出来れば使ってね) ━━━━━━━━━━━━
【1 OSの種類 .】 Windows**
【2 Excelのバージョン 】 Excel**
【3 VBAが使えるか .】 はい･いいえ
【4 VBAでの回答の可否】 可･否
※【4】は、VBAはわからないけどコード書いてくれるならVBAでもいいって場合は｢可｣
VBAを使うのは避けたいって場合は｢否｣にしましょう。丸投げする場合は､必要に応じてブックをアップすること。
▼━質問時の注意･決まり事━━━━━━━━━━━━━━━━━━━━
･1 現行スレ内で既出の質問が無いか、ページ内検索をしよう。(Ctrl+F)
･2 図やコードを書く場合、TABや連続する半角スペースは無視されるので注意
･3 VBAコードを貼る場合は、部分的に伏せたり省略したりせずに全て貼りましょう。何レス使っても構いません。
･4 2回目以降の質問では名前欄に初回質問の番号を入れよう。
･5 回答内容でわからない部分があっても、すぐに聞き返さずにヘルプやGoogleなどで検索しましょう。
･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
ここは技術的な質問のみで。
F1 = 3: F2 = 12: F3 = 36
e1 = 9: e2 = 34: e3 = 51
Range(Cells(F1, 3), Cells(e1, 35)).ClearComments
Range(Cells(F1, 3), Cells(e1, 35)).ClearContents
Range(Cells(F1, 3), Cells(e1, 35)).Interior.ColorIndex = xlNone
Range(Cells(F2, 3), Cells(e2, 35)).ClearComments
Range(Cells(F2, 3), Cells(e2, 35)).ClearContents
Range(Cells(F2, 3), Cells(e2, 35)).Interior.ColorIndex = xlNone
Range(Cells(F3, 3), Cells(e3, 35)).ClearComments
Range(Cells(F3, 3), Cells(e3, 35)).ClearContents
Range(Cells(F3, 3), Cells(e3, 35)).Interior.ColorIndex = xlNone
End Sub
これ↑を↓にしたらダメだった。
なぜなんだぜ？
Sub Macro2()
F1 = 3: F2 = 12: F3 = 36
e1 = 9: e2 = 34: e3 = 51
For i = 1 To 3
With Range(Cells(F & i, 3), Cells(e & i, 35))
.ClearComments
.ClearContents
.Interior.ColorIndex = xlNone
End With
Next
End Sub
[Ctrl]+[G]でイミディエイトウィンドウを表示して、
Forループの中に
Debug.Print F & i, e & i
を追記して実行すればわかる
With Range(Cells(F & i, 3), Cells(e & i, 35))
F1とＦ別変数だよ
これFとeの変数に何もはいってないだろ
Option Explicitを付けてみればわかる
なるほど。
ちょっとイジってみたぜ
Sub Macro3()
F1 = 3: F2 = 12: F3 = 36
e1 = 9: e2 = 34: e3 = 51
For i = 1 To 3
If i = 1 Then
F = F1: e = e1
ElseIf i = 2 Then
F = F2: e = e2
Else
F = F3: e = e3
End If
With Range(Cells(F, 3), Cells(e, 35))
.ClearComments
.ClearContents
.Interior.ColorIndex = xlNone
End With
Next
End Sub
なんかイマイチだよね～
Sub Macro4()
Dim i, F(2), e(2)
F(0) = 3: F(1) = 12: F(2) = 36
e(0) = 9: e(1) = 34: e(2) = 51
For i = 0 To 2
With Range(Cells(F(i), 3), Cells(e(i), 35))
.ClearComments
.ClearContents
.Interior.ColorIndex = xlNone
End With
Next
End Sub
番号を選択して文字を表示させたいのですが
どうすれば良いのでしょうか？
ttp://www.fastpic.jp/images/489/7968742575.jpg
VLOOKUP関数でググれ
超ありがとう！これで明日から工数低減できる！！
もっとシンプルに出来るでしょうか？
Sub Macro1()
Range("B2:E4").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
シンプルってどういう意味で使ってるの？
処理を抜き出してサブプロシージャ化してみるとか
すでに色が付いてたり、罫線引かれてるところを変更するなら仕方ない部分あるけど
単に枠付けるだけなら、既定の設定でいい部分のプロパティは外す
Sub Macro1()
Range("B2:E4").Select
With Selection
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
End With
End Sub
だけでもずいぶんすっきり
得意先 金額
A商店 | 30
・・・
A商店 合計 | 500
B商店 | 40
・・・
B商店 合計 | 800
という感じ。得意先ごとに改ページしたいので、フィールド「得意先」には「アイテムの後ろに改行を入れる」とかいうオプションを入れている。すると、通常なら上手くいくのだが、たとえば「B商店 合計」の行がページ先頭に来た場合は意図通りに改ページされない。つまり
(3ページ目)1行目→ B商店 合計 | 800
(4ページ目)1行目→ C商店 | 700 ・・・となって欲しいのに、
(3ページ目)1行目→ B商店 合計 | 800
(3ページ目)2行目→ C商店 | 700 ・・・と、同じページ内にB商店・C商店が並んでしまう。これは仕方ないのだろうか。
どうも、B商店合計の行が1行目に来る場合だけでなく、2行目に来る場合でもこの現象は起こるようなのだが・・・。
Sub Macro2()
With Range("B2:E4").Borders
.LineStyle = xlNone
.LineStyle = xlContinuous
.ColorIndex = 3
End With
End Sub
>>1
>･6 バグ･動作上の不都合･仕様に関する質問などはマイクロソフトのサポートを受けましょう。
> ここは技術的な質問のみで。
ピボットなら
得意先をページのフィールドにしてしまえばいいじゃん
はぁ？
>>14
おぉ
>>16
GJ
フィルタリング後の表から、フィルタ条件を探り直すことは、やっぱり出来ないんだよね？
オートフィルタなら、フィルタリングボタンを押して探ることでフィルタ条件を探り直すことが出来るけど、それが出来ないのかってこと。
上記の「セルに書いといた複雑な条件」を消さずに置いとけば良いという問題ではない。それはあくまでメモ程度でしかなく、確証につながらないから。
何とかならないのかな。
セルに書いといた複雑な条件とフィルタリング結果のシートをパスワード付きで保護しておくとか？
オートフィルタだってフィルタリングした後にセルの内容書き換えたり非表示にしたり操作できるんだから
事後にフィルタリングボタンを押してもメモが見れるだけだと思うんだけど
イマイチ状況がわからない
＞オートフィルタだってフィルタリングした後にセルの内容書き換えたり非表示にしたり操作できるんだから
＞事後にフィルタリングボタンを押してもメモが見れるだけだと思うんだけど
そこまで言い出したらキリがないので、そこまでは考えない。
フィルタ後の表を、自分以外の第三者に、特にフィルタオプション機能を(というか、フィルタオプションで
「*商店*」とか使うワイルドカード等を)知らない第三者に見せた時に「こうやってフィルタリングしたんですよ」と
客観的に見せたいんだよね。フィルタオプションをした手順を一から丁寧に再現するしかないのかと思うが。
それだと元の質問の
「フィルタリング後の表から、フィルタ条件を探り直すこと」
とは関係がないような気がするけど
読解力がないクセにレスしてんなよ俺
キーボードでやる方法ありますか？
【2 Excelのバージョン 】 どのバージョンでも大丈夫です
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
G12に100000000
G13に30000000000
が入っているとします
=G12/10000&"万円 +"& G13/10000&"万円"
の結果が
10000万円＋300000万円となるところを
10,000万円＋3,000,000万円と , が入ってほしいなと思っております
書籍を数値にして,にしても表示されませんでした
セルの中で＝を使った計算の数字の部分を３桁毎に,をうつ方法教えて頂けないでしょうか
よろしくお願いいたします
=TEXT(G12/10000,"#,##0万円")&"＋"&TEXT(G13/10000,"#,##0万円")
ROUND関数で27.4999といった数字を四捨五入して27と表示したいのですが
27.5扱いにされ28に四捨五入してしまいます。
どうしたらいいですか？
数式が =ROUND(27.4999,1) になってて、表示形式が 0 になってるとか？
=ROUND((0.1+1)*2/12*150,0)
と入力した場合、28と表示されてしまうんんです。
(0.1+1)*2/12*150
と電卓で入力した場合、27.49999となるんですよ。
これを四捨五入すると27になるので
エクセルにも27と表示して欲しいのですが
27.5扱いにされ、28と表示されてしまうんですよ。
この辺の話かな
http://support.microsoft.com/kb/78113/ja
(0.1+1)*2/12 を四捨五入すればいいと思う
=ROUND((0.1+1)*2/12,0)*150としたところ
0と表示されました
ROUND関数のヘルプ読め
つーかさ、そもそも
(0.1+1)*2/12*150 =27.5
だよね？
普通の電卓で計算すると/12の時点で0.18333･･･と循環小数になるから
計算結果が27.499････になってるだけで、本来そっちのが間違いじゃね?
1と打ち込んだら○
0と打ち込んだら×
と表示させたいだがどうすればできるだろうか
【1 OSの種類 .】 WindowsXP→2ヶ月後に7になる予定
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
行1：2012/5/1（表示は2012年5月）
行2
行3：1 2 3 4 5 6 7 8 9 10・・・・・・・・・・31
で、行2の部分に
「第1週」「第2週」「第3週」「第4週」「第5週」と表示したいのですが
行1の月日表示を使って関数で自動表示可能でしょうか
月日を変えれば週の表示も変わるような感じで
例）5月なら
第1週 第2週
1 2 3 4 5 6 7 8 9 10 11 12
という感じです
それとも土日月のいずれかで区切るの？
前者だと関数使うまでもないし（第5週を表示するか否かぐらい）
後者だと第１週の長さが変わるんで、２行目にセル結合使えないし
かといって、個々の列に関数入っていればセル幅越えての表示もできないからなー
週の区切りはカレンダー通りです
日曜始まりの土曜終わり、で1週間
なので、1週間の日数がまちまち（特に第1週と最終週）なのが頭ｲﾀｲというか
これまでは1から31は使いまわしで、
週数はセル結合の範囲を変えながら手入力してたんですけども
何かいい方法はないかと思いまして
「excel 第何週」でググればサンプルが見つかるかと
1日が土曜日だと1セルに「第1週」って入れないといけないから、そもそも無理があるような？
VBA使わないと無理
http://www.dotup.org/uploda/www.dotup.org2906952.xls.html
2行目のユーザー書式に「第0週」
A2=1
B2=IF(WEEKDAY(DATE(YEAR($A$1),MONTH($A$1),B3))=1,MAX($A$2:A2)+1,"")
右にオートフィル
後はおまけで三行目に条件付き書式で使って見やすくしてます。
不要なら消せばok
ありません
▼のついてるセルをアクティブにした状態で
Alt＋↓or↑でプルダウンが出現する
あ、ごめ； 勘違いしてた
「オートフィルタ」と「キーボード」しか見てなかったお； orz
なにか違うものが出てきました・・
あ
（空白）
（空白）
い
（空白）
（空白）
これをフィルタで（空白）を表示させて
A2セルの（空白）を=A1にして、一番下までオートフィルしてフィルタ解除すると
あ
あ
あ
い
い
い
になるのですが、それをキーボードかマクロ？で出来ないかなと。
それならコピペでいいんじゃないの？
[Ctrl]+[C] → [Ctrl]+[V]
そういう事がしたいなら、
あ（空白）（空白） を選択して Ctrl＋D
をすれば、選択範囲の最上セルを複製できるよ。
俺が普段から愛用しているショートカットキーなのだ♪
Ctrl＋D → 上のセルと一緒にする
Ctrl＋R → 左のセルと一緒にする
おお、便利なショートカットですね。
でも「あ」「い」が500ぐらいあるので・・
↓の例では行列（週と曜日）をキーにしてカレンダーを作ってる。
http://youtu.be/blV24dV87j0
らくちん、らくちんw
>>41っす
>>44
ありがとうございます！
早速ぐぐりますた
イケそうなところまでは詰められたんですが最後までイケませんですたorz
がとても勉強になるページをたくさん見られてよかったです
>>47
おおおおコレです、まさにこんな感じです！
WEEKNUMとDATEで何とかならんかとかジタバタしておりますたが
自力でまとまりませんですたorz
そのまま使わせていただきます！
ありがとうございますた！
>>56
ありがとうございます！
あっなるほど・・・という感じですね
自分も万年カレンダーを作ってるんですが、
全然ちがう方法をとってますた
ぜひ参考にしたいと思います！
ありがとうございますた！
オンラインストレージにファイルを置いていて、そのオンラインストレージから、2つのパソコンの2つのファイルのセルを参照したいんです。
具体的には同じような表データがあって、それぞれの合計値をオンラインストレージのファイルで表示したいんです。
どのようにすればいいんでしょう
【2 Excelのバージョン】 Excel2007
【3 VBAが使えるか.】 いいえ
【4 VBAでの回答の可否】 否
エクセルでＡ～Ｄ列まで枠を作って以下の様な計算を
行いたいです。
Ａ列 分母
Ｂ列 分子
Ｃ列 パーセンテージ（少数第2点以下切り捨て）
Ｄ列 Ｃ列に応じた得点
Ｄ列は、Ｃ列が100%なら10.0、99%～100%未満なら9.0、98%～99%未満なら8.0
といった感じに、1%下がるごとにＤ列の点数が10点満点から1点ずつ下がるように
自動得起算してくれるようにしたいです。
関数を調べてみたのですが、よくわかりません。
お手数ですが関数計算式を教えて頂けますでしょうか。
よろしくお願いいたします
「Book1.xls」の「Sheet1」の「A1」セルを参照する場合こんな感じで参照できる
=[Book1.xls]Sheet1!A1
=INT(C1*100)-90
aとbの2つのパソコンをつないでいて、そのうちのaのパソコンのcドライブ直下のファイルを指定する時はどうすればいいのでしょうか？
Cドライブ直下なら
='C:\[Book1.xls]Sheet1'!A1
それはオンラインストレージ上のファイルからaとbどちらのパソコンを参照するのでしょうか？
パソコンの名前は違うので、それで指定することはできないのでしょうか
あなたの周りにもうちょっと第三者に理解できるように説明できる人はいないの？
ありがとうございます。
Ｃ列はどう設定すればいいですか？
こんな感じです。無理でしょうか？
無理ｗ
ROUNDDOWN関数
ストレージのファイルを開いておいて、
参照元のファイルからセルをリンク貼り付けしたらあかんの？
参照元ブックがあっちこっち移動するんならどうしようもないけど
移動はしませんが、ネットに繋がっていない状態でも使いたいファイルなんです
マイネットワークから対象のブックがあるフォルダ開いたら
アドレスバーにパスが出るのでそれをコピーして以下のパスに貼る
='パス\[Book1.xls]Sheet1'!A1
こんな感じ
='\\ネットワーク上のPC名\フォルダ…\[以下略
シングルクォテーションの位置注意な
って、そもそもネット繋がってないなら
別PCのファイルなんて参照できんやろー！！！
前提条件から崩してくれるなや！！
オンラインストレージ上のファイルで2つのファイルのA1のセルの合計を見たいんです。
その、オンラインストレージのファイルを見るときはどちらのPCもネットにつながっている状態ですが
そのローカルに保存してあるファイルを編集するときは必ずしもネットが使える状態とは限らないのです・・。
VBAでやれ
javaとphpをやっていたので、VBAも基本的な事なら出来ると思います。教えて頂けませんか
http://toro.2ch.net/test/read.cgi/tech/1334305148/
ネットワークドライブの割り当てをする。
='Y:\[num.xls]Sheet1'!A1
='Z:\[num.xls]Sheet1'!A1
同じ状況なのですが、今度は100%なら10点、99.5%なら8点、99なら6点
98.5以上なら4点、98以上なら2点、それ未満なら0点とＤ列に設定するには
どうしたらいいですか？
=(C1>=0.98)*((C1/0.005-200)*2+10)
=(C1>=0.98)*(INT(C1/0.005-200)*2+10)
【1 OSの種類 .】 Windows Vista
【2 Excelのバージョン 】 Excel 2007
指定したフォルダにあるExcelファイルを全て開くマクロを作ろうと考えています。
ただし、
・非表示のファイルは、次の場合を除いて開く
・読み込み専用の設定がされているファイルは開かない
ここで、「読み込み専用」とはファイルアイコンを右クリックしてでる「プロパティ」における
「読み込み専用」の設定の事だと考えて話を進めます。
そこで、Dir関数の実験として、以下のマクロをとりあえず作成しました。
Sub test()
Dim RepStr As String
Const ParentDir As String = "C:¥hoge¥"
RepStr = Dir(ParentDir, vbHidden)
Do Until RepStr = Empty
Debug.Print RepStr & "; " & GetAttr(ParentDir & RepStr) & "(" & (GetAttr(ParentDir & RepStr) And Not vbArchive) & ")"
RepStr = Dir
Loop
End Sub
（続く）
このマクロでは、Excelブックかどうかは判定しないものの、ファイル属性は拾えているはずなのですが、
どういうわけか読み込み専用ファイルも拾われてしまいます。
Dir関数にファイル属性を指定していることが問題かも知れませんので、
最初のDir関数を次にしました。
RepStr = Dir(ParentDir)
この場合、非表示も読み込み専用も表示されないはずですが、
これでも読み込み専用ファイルが拾われてしまいます。
では、「読み込み専用」のイメージが間違っているのでしょうか。
GetAttr関数で読み込み専用ファイルの属性を調べると1（または33）となり、
どうやら間違ってはいなさそうです。
質問は、以下の１点です。
・Dir関数は読み込み専用ファイルをフィルタリング出来ないのでしょうか。
以上、よろしくお願いします。
ありがとうございます。
今度は同じ条件で、100%は5点、98%以上は4点、96%以上3点、94%以上2点、92%以上1点
92%未満は0点とするにはどうしたら良いですか？
また、Ａ～E列に各列のセルに○印を書いたら、その丸の数をカウントして
そのマルの数をF列に数値化（マルが5個あったら「５」、３個だったら「３」）と
するにはどうしたらいいですか？
前者は>>83の応用でできる
後者はCOUNTIF関数を使う
XP+2003でも同じだった
まずはExcelの関数本、1冊買っちゃいなよ
千円前後だし1冊あればExcelのバージョン上げない限り買い換える必要ないしな
それよりも、ひょっとしなくても学生のPC演習の宿題手伝わされてるのか
ってぐらいな質問内容ばっかりなんだが
そうですか・・・
何ででしょうね・・・？
バグじゃない？
MSに問い合わせれば確実かと
俺なんか2000時代に買った関数辞書まだ使ってるぞｗ
キューブとか出てきたからぼちぼち買い換えるかどうしようか考えてるが
キューブ関数使うような仕事してねーしなあ
何度も質問すみません。
もし、90%未満なら０を設定する場合、どのような計算式になるのでしょうか？
IF関数使えばできる
【2 Excelのバージョン 】 Excel 2007
バリバリ使おうと思って、
XML形式のファイル（２０MBくらいのサイズ）から
３万行×１０列くらいのテーブルを
読み込もうとしたのですが固まってしまいます。
処理能力的にEXCELではムリポでしょうか？
その程度のサイズなら全然余裕だと思うけど
1000行：すぐ
7000行：１分半くらい
13000行：２分半くらい
結構時間かかるなあ
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
【情報】4th Dimension研究所【ナシ】 (199)
設備CAD質問箱～さぁみんなで考えよう！ (230)
官○庁の不正ライセンスソフトの使用について (119)
機密情報守ります！HDD完全消去ソフト！ (207)
OfficeXPでSP2を当てたインストールCDの作成方法 (200)
フォトショップ6.0落としたよ (109)
--log9.info------------------
【ダイハツ】 ミラバン Part8 【MIRA VAN】 (677)
【スズキ】 アルト エコ ３ 【実燃費13.2売る気ﾅｼ】 (333)
型落ちジムニー快適スレッド (171)
【スズキ】 セルボ SR専用隔離スレ３ 【Cervo】 (516)
【スズキ】 ツイン Part5 【TWIN】 (444)
Ｋカーで最も丈夫なのは、スバル R2?! (226)
雪国の軽自動車乗り Part6 (907)
カプチーノを買おう！！ (481)
【ダイハツ】オプティ【Opti】2 (455)
Vitz ﾌｨｯﾄ ﾏｰﾁ ﾃﾞﾐｵ ｽｲﾌﾄ乗りに軽を叩く権利は無い (146)
クロカンせずしてジムニー語るべからず (321)
【F1】軽自動車最速【ﾏﾀｰﾘ】 (193)
【ダイハツ車専門店】ぬるぽオート株式会社 其ノ一 (942)
空冷2気筒 (113)
【スバル】 R1 part20 【てんとう虫】 (905)
【ダイハツ】ミラ TR-XX【アヴァンツァート】6 (927)
--log55.com------------------
大人って何で汚いの？
なぜ相談に答える人は何の得にもならないのに親切に回答するのか
モラハラ被害者のスレ Part.3
生きたまま火の海に放り投げたい人間を書き込むｽﾚｯﾄﾞⅡ
【やつあたり】名古屋人から身を守る方法41【それはお前ら】
悟りを開いた人に聞いてみるスレ【人生相談】78
【人生】誰かがあなたの悩みに答えます710【相談】
☆★『幸福の科学』統合スレッドpart903★★