12/05/31 06:45:47.61
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
A1A2セルは入力欄です
A1に入力したセルの最後の文字が「お」の時
A2に入力したセルに「さしすせそ」を追加してA2セルに表示されるというのを作りたいのですがうまくいきません
わかりづらいと思うので例↓
A1にあいうえおと入力
A2にかきくけこと入力されたら
A2セルにかきくけこさしすせそと表示
すみませんお願いします
603:594
12/05/31 07:09:39.24
連投ごめん
まだ見落としがあった
>>592
>・Ａ３が０なら、Ｄ３には値３が入る。
この条件が良く分からないのだけど
A3に値が入力されないとき（A3=""）とA3=0は意味が違うの?
A3=""とA3=0も同じ意味であるなら、
D3=IF(A3=0,3,C3*3)
A3=""とA3=0が違う意味なら
D3=IF(ISBLANK(A3),,IF(A3=0,3,C3*3))
になるよ
それと、A2=0の時にはこれと同様にD2=3になるの?
D2も同じ条件なら、
D2=IF(A2=0,3,C2*3)
または
D2=IF(ISBLANK(A2),,IF(A2=0,3,C2*3))
だね
604:名無しさん＠そうだ選挙にいこう
12/05/31 07:25:16.79
>>602
If Target.Address = "$A$1" Then
Target.Offset(1).NumberFormatLocal = IIf(Right(Target.Text, 1) = "お", "@""さしすせそ""", "G/標準")
End If
605:名無しさん＠そうだ選挙にいこう
12/05/31 20:58:02.51
【1 OSの種類 .】 WindowsXP
【2 Excelのバージョン 】 Excel2003
【3 VBAが使えるか .】 少々
【4 VBAでの回答の可否】 おｋ
会社でWindows Liveメールを使ってます。
毎日、取引先にエクセルのブックをメール添付で送ってます。
マクロボタンをクリックすると、特定のシート（例えばSheet1）だけを
添付して送信することはできますか？
606:名無しさん＠そうだ選挙にいこう
12/05/31 21:38:16.30
VBAでの回答希望です。
選択しているセルが、印刷したときに何ページ目になるかを知りたいです。
選択しているセルを含むページのみ印刷することが目的です。
よろしくお願いします。
excel2003
607:名無しさん＠そうだ選挙にいこう
12/05/31 22:03:05.26
>>606
HPageBreaksをヘルプで調べてみましょう
608:606
12/05/31 22:07:34.19
>>607
お断りしましょう。
知ってたら教えてくれよ。
知らなかったら黙ってて。
609:名無しさん＠そうだ選挙にいこう
12/05/31 22:13:28.69
また釣られちゃった(ﾉ∀`)ﾃﾍ
610:６０６
12/05/31 22:16:39.26
>>607
ありがとうございます。
HPageBreaksのヘルプをみて、これだ！と一瞬思ったのですが甘かったです。
使えそうな感じはするのですが、どう使えばよいか？？？
もう少しヒントもらえますか。
611:名無しさん＠そうだ選挙にいこう
12/05/31 22:27:24.06
お断りしましょう
612:６０６
12/05/31 22:28:25.46
ヘルプの使用例の、印刷領域での改ページ数というのが選択セルのページじゃありませんよね？
もう少し考えてみます。
For Each pb in Worksheets(1).HPageBreaks
If pb.Extent = xlPageBreakFull Then
cFull = cFull + 1
Else
cPartial = cPartial + 1
End IfNext
MsgBox cFull & " :全画面表示での改ページ数" & cPartial & _
":印刷領域での改ページ数"
613:名無しさん＠そうだ選挙にいこう
12/06/01 01:11:07.80
>>606
URLﾘﾝｸ(support.microsoft.com)
とｋあ
エクセル ページ数とか でぐぐるとか
614:６０６
12/06/01 07:52:11.72
>>613
ありがとうございます。これから会社行くので、帰ってから調べてみます。
615:名無しさん＠そうだ選挙にいこう
12/06/01 18:59:05.81
シートの左はじに行番号がありますが、
いつのまにかさらに左に１２３４５６７と番号のついたエリアが出現しました。
これを消すにはどうしたらいいでしょうか？Excel2000
616:名無しさん＠そうだ選挙にいこう
12/06/01 19:20:53.52
アウトライン？ってやつをクリアしたら消えましたが、なんで出てきたのかしらん・・
617:名無しさん＠そうだ選挙にいこう
12/06/01 19:30:40.52
>>616
元々アウトラインが作成されていてそれが非表示に設定されていたんじゃない？
[Ctrl]+[8]で表示/非表示をトグル切り替え出来るので偶然表示してしまったのかもね
もしかするとクリアしちゃまずかったかもね
618:名無しさん＠そうだ選挙にいこう
12/06/02 01:14:13.46
【1 OSの種類 .】 Windows7 64bit
【2 Excelのバージョン 】 Excel2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 可
URLﾘﾝｸ(www.dotup.org)
URLﾘﾝｸ(www.dotup.org)
まったくマクロなどの知識が無い＋説明が難しいので図を見てもらえるとありがたいのですが、A列に示された時間に合わせて
B列以降の時間をA列の各時刻と同じ行にそろえたいのです。
この列の数が最大30列くらいまで増減するため、初めの列と終わりの列を指定出来ると助かります。
2種類あるのはどちらかが出来れば・・・というだけです。
619:名無しさん＠そうだ選挙にいこう
12/06/02 02:12:09.14
>>618
URLﾘﾝｸ(www.dotup.org)
B2=IF(COUNTIF(Sheet1!B:B,$A2)>0,$A2,"")
右がシート2で左がシート1
100列ぐらい作っておけば大丈夫じゃないかな
なんに使うかしらんけど
620:名無しさん＠そうだ選挙にいこう
12/06/02 04:30:13.14
>>619
早速ありがとうございます！
ただ、>>619さんの図は理想通りなんですが、こっちでどうしても出来ません・・・
「シート1に入力した物をシート2で読み取って並べ直す」って感じの物だと思うんですが、
何が悪いか理解したいのでこの関数のを意味を少し具体的に書いてもらえないでしょうか・・・
621:618
12/06/02 05:09:20.20
書き忘れてましたが>>620は自分です
622:名無しさん＠そうだ選挙にいこう
12/06/02 05:59:46.91
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2007
【3 VBAが使えるか .】 はい
【4 VBAでの回答の可否】 可
BookA.xlsmの中の１つのシートXをカレントフォルダに名前を付けて保存・読取専用にしたい。
どう記述したらいいかコードを教えてください。
ファイル名は毎回違うので
フルパス = パス & ファイル名 & ".xlsx" としています。