Excel総合相談所 55

>>951

>>919 がVBAで回答してくれてるけど見ましたか？

>>950
オートシェイプで
クリックで○付けたければイベント使え

>>952
すいません。
見てなかったです。

>>919
試してやす

>>953
できました。
さんくす。

でもオートシェイプで普通に○を書くと
下の字が○で上書きされるのね。
だから、○をオートシェイプの書式設定で
色と線タブの透明で100％にすれば、
下が見えるようになるのね。

と情報公開。。

基礎っす

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】 コマンド バーのメニュー コントロールを無効にする　メニュー　無効
ブックの切り取り機能を制限したいのですが、
その方法として、灰色にして選択できないようにしたいのです。
編集から切り取り
右クリックから切り取り
を無効にしたいのですがどうしたらいいですか？

ショートカット メニュー バーのコマンド コントロールを無効にする
次のサンプル コードは、「ショートカット メニュー バーにコマンドを作成する」で
作成した [Item1] コマンドを無効にします。

Sub Shortcut_DisableItem()
Set myBar = CommandBars("myShortcutBar")
myBar.Controls("Item1").Enabled = False
myBar.ShowPopup 200,200
End Sub

ここからわからない…。

>>949様
その通りでした
ありがとうございました
大変助かりました

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

あるセルにデータが入力された時、あるセルにその日付を出したいです。
ググッて下記のコードをコピペしたのですが、二つ並べるとエラーが出てしまいます。
VBA全く知らないので、どこをどう触ればいいのかさっぱりです。
どなたか教えていただけないでしょうか?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
Target.Offset(0, -1) = Now()
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 7 Then Exit Sub
Target.Offset(0, -1) = Now()
End Sub

>>960
コレぢゃダメかなぁ？

Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Target.Column = 5 Or Target.Column = 7) Then Exit Sub
Target.Offset(0, -1) = Now()
End Sub

VBAって関数名って同じでもよかったんだっけ？

>>961様
有難うございます。出来ました！
もう一つ聞いても良いでしょうか？
あと一つセルを増やしたいです。１３列目も入力した時に、日付を出したいのですが、
今度は、日付が表示される列が１１列目にしたいです。
すいませんが、宜しくお願いします。

>>963
どうでしょう？

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Or Target.Column = 7 Then
Target.Offset(0, -1) = Now()
ElseIf Target.Column = 13 Then
Target.Offset(0, -2) = Now()
End If
End Sub

>>963

Private Sub Worksheet_Change(ByVal Target As Range)
　　Select Case Target.Column
　　Case 5, 7
　　　　Target.Offset(0, -1) = Now()
　　Case 13
　　　　Target.Offset(0, -2) = Now()
　　End Select
End Sub

>>964様
>>965様

有難うございます! 出来ました!

データ範囲Ａの中に、値が空白のデータの集合を範囲ａとして捕捉しているとき、
各空白セルのformulaを取り出したいのですが、とんとわかりません。
どうしたらできますか？ｖｂａでお願いします。

1 OSの種類 　 　 　 　 .】 WindowsＸＰ
【2 Excelのバージョン 　 】 Excel2003
【3 VBAが使えるか　 　 .】 はい（多少）
【4 VBAでの回答の可否】 可
【5 検索キーワード 　 　 】excel 指定　文字　番号

Ａ　　Ｂ

１　「000a0001」
２　「001a0001」
３　「002a0001」
１　「000a0002」
２　「001a0002」
１　「000a0003」

以上のような文字が並んでいるＢ列に対し、
Ａ列に番号をあてていきたいと思います。
末尾番号をグループとして上記のように番号を自動振り分けたい場合は
どのようにしたらよろしかったでしょうか？

>>968

作業列使っていいなら、

作業列 = C, A1から入力として

C1は無条件に1を入力。
C2は =IF(A2-A1=1,C1,C1+1)。
C3以降はC2の式をコピる。

で、B1には=TEXT(A1-1,"000a")&TEXT(C1,"0000")。
B2以降はB1の式をコピる。

>>968
A1=IF(RIGHT(B1,4)="0001",LEFT(B1,3)+1,IF(RIGHT(B1,4)="0002",LEFT(B1,3)+1,IF(RIGHT(B1,4)="0003",LEFT(B1,3)+1,"")))

>>968
見た目だけなら
=IF(B1<>"",LEFT(B1,3)+1,"")
で行けるなｗ

なんかちょっと違うような気がするが。
>>698は何所へ行った？

OS XP
Ver 2000
マクロ不可

セルに名前をつけるのではなく、行と列に名前をつける方法は無いでしょうか。
売り上げ列の０５年行を取る、とかやりたいと思っています。

>>973
ツール＞オプション＞計算方法で、「数式でラベルを使用する」に
チェックが付いていれば、行や列に名前を付けなくても似たような
ことはできる。

ただINDEX関数＋MATCH関数とか、VLOOKUP関数を使う方が
簡単にデータを引き出すことができるように思う。

>>974
レスありがとうございます。
範囲の前にまず
book1のsheet1のA列にhoge、1行にhogehogeと名前を付け、
=[book1]sheet1!hoge:hogehoge
とやってみたのですが、
=book1hoge:hogehoge
と勝手に省略されて#NAME?
エラーとなってしまいます。

これはどのようにすればきちんと表示されるのでしょうか？

話が違う

>>919
やってみました。
思い通りの結果になってすごいです。
なぜか、カスペルスキーが危険なスクリプトとして
反応するのが気になりますが…。

>>975 例えば
B1=INDIRECT(ADDRESS(ROW(hoge),COLUMN(hogehoge)))
とか

>>975
名前にはシート名が含まれているから注意しろ

　挿入　→　名前　→　定義

で確認できる

　=book1.xls!hogehoge

が、この場合正解

WindowsXPにて、Excel2002を使用しています。

「セルの幅の違う表を縦に並べて表示させたい」ということで、
下記サイトを参考に、「図のリンク貼り付け」という機能を使用しました。
ttp://excelfast.fc2web.com/kowaza3.htm

Sheet2で制作した表を、
Sheet1に「図のリンク貼り付け」したわけです。
（表に計算式が入っているので、「図の貼り付け」では×でした）

しかしこれを行うと、印刷レイアウトが思いっきり崩れてしまいました。
単なる「図の貼り付け」なら問題ないのですが、
「図のリンク貼り付け」だとダメなのです。

これを回避する方法をお教え頂けますでしょうか。
よろしくおねがいします。

ソフト）excel 2003

ものすごく初歩的な質問だと思われるのですがお願いします。

チェックボックスを使いたいのですが、
http://kokoro.kir.jp/excel/checkbox.html
のサイトの指示通りチェックボックスを置いたまではよいのですが、コントロールのプロパティで
全然違うものが表示され、セルとのリンクがうまくできません。

おそらく単純な設定の問題かな、とは思うのですがよくわかりません。
どなたかご存じないですか？

>>886
確認。ひでぇバグだなコレｗｗｗ

【1 OSの種類 　 　 　 　 .】 WindowsXP
【2 Excelのバージョン 　 】 Excel　　？
【3 VBAが使えるか　 　 .】 いいえ
【4 VBAでの回答の可否】 否
【5 検索キーワード 　 　 】 エクセル　掛け算　積算　

めちゃくちゃ単純な質問なんですが、積算させて出た数字に３ケタごとに［，］(ｺﾝﾏ)を付けるにはどうすればいいですか？
関数一覧も検索したのですが全然わかりませんでした。

>>983
セルの書式設定で表示形式を通貨にして記号をなしにする。

>>984
なるほど。。。
即レス感謝です。

vbで質問です

何も文字の書いてないセルを指定する方法はありませんか
a1まで情報がかいてあってb1を指定したいとかなのですが

今日の日付を入れたいのですがTODAY関数だと別の日に開いたら開いた当日になるので
書き込んだ日を記録したいのです

>>986
未入力セルをAから右に１個づつ探していくの？
（A1→B1→C1→・・・・・）
条件があやふやだなぁ

>>986
空白セルならSpecialCellsのxlCellTypeBlanksを使えばいいじゃない？
でも、むちゃくちゃあるぞ、たぶん。

値貼り付けすりゃいいんじゃない？
PasteSpecial使って。
形式は、よく分からんがNumberFormatLocal = "yyyy/m/d;@"とかしたら？

a1から[ctrl]+[→]してもっかい[→]をマクロ記録とかでいいんじゃね？

フィルハンドルをドラッグしたときにデフォルトで連続データになるように
設定するにはどこをいじれば良いのですか？

質問内容が曖昧な場合は、無視するか質問者を問いつめるのが最優先。
曖昧なままで回答を寄せてもレスが無駄に伸びるだけだよ。

991は>>987-989宛

>>990
いじる場所に心当たりはないが、「Ctrl」キーを押しながらやれば、
コピーになる場合でも連続データになるだろ。

>>990
数値が連続データになる事を言ってるなら

　　　　　そんなオプションは無い

素直に Ctrlキーを押しながらドラッグしなさい

>>993-994
ありがとうございます。数値です。
Ctrlキーか連続データ2行をドラッグでやります。

複数のセルを選択して、コピーして、そのままの間隔で、他の場所に貼り付けることはできますでしょうか。
どうしても詰めて貼り付けされてしまいます。

>>991
言いがかりを付けたいのなら十分にチェックしてから書き込むように。
曖昧なまま書き込むとバカ丸出しだし、
かっこ悪い訂正レスが無駄に伸びるだけだよ。

すいません。
数式で計算された数値が人数なので
数値の後に｢人｣とつけたいのですが

=SUM(A1:A3),"人"

で出来ません。どうしたら表示されるのでしょうか？

>>996
列ごと選択してコピーしてから貼り付ける

初めての1000ゲットｗ

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