Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8689 / 13646 ツリー ←次へ | 前へ→

【31568】keinさん教えてください 初心者 05/11/25(金) 17:00 質問[未読]
【31584】Re:keinさん教えてください Kein 05/11/25(金) 20:16 回答[未読]
【31592】Re:keinさん教えてください 初心者 05/11/26(土) 8:31 発言[未読]
【31712】Re:keinさん教えてください 初心者 05/11/29(火) 9:49 発言[未読]
【31713】Re:keinさん教えてください 注意 05/11/29(火) 10:07 発言[未読]
【31716】Re:keinさん教えてください ぱっせんじゃー 05/11/29(火) 11:16 発言[未読]
【31736】Re:keinさん教えてください 初心者 05/11/29(火) 15:08 回答[未読]
【31740】Re:keinさん教えてください ぱっせんじゃー 05/11/29(火) 16:10 発言[未読]
【31741】Re:keinさん教えてください 初心者 05/11/29(火) 16:25 発言[未読]
【31743】Re:keinさん教えてください ぱっせんじゃー 05/11/29(火) 16:36 発言[未読]
【31745】Re:keinさん教えてください 初心者 05/11/29(火) 16:54 回答[未読]
【31735】Re:keinさん教えてください 初心者 05/11/29(火) 15:03 回答[未読]
【31737】Re:keinさん教えてください Blue 05/11/29(火) 15:14 発言[未読]
【31742】Re:keinさん教えてください 初心者 05/11/29(火) 16:29 回答[未読]
【31746】なんだか... やま 05/11/29(火) 16:55 発言[未読]
【31748】Re:なんだか... ぱっせんじゃー 05/11/29(火) 17:02 発言[未読]
【31750】Re:なんだか... 初心者 05/11/29(火) 17:07 回答[未読]
【31754】Re:なんだか... ぱっせんじゃー 05/11/29(火) 17:14 発言[未読]
【31756】Re:なんだか... 初心者 05/11/29(火) 17:19 お礼[未読]
【31752】Re:なんだか... 初心者 05/11/29(火) 17:11 お礼[未読]
【31755】Re:keinさん教えてください こたつねこ 05/11/29(火) 17:16 発言[未読]
【31758】Re:keinさん教えてください 初心者 05/11/29(火) 17:46 お礼[未読]
【31759】Re:keinさん教えてください 初心者 05/11/29(火) 18:07 質問[未読]
【31766】Re:実行時エラー'13': 型が一致しません こたつねこ 05/11/29(火) 20:01 回答[未読]
【31784】Re:実行時エラー'13': 型が一致しません 初心者 05/11/30(水) 8:55 お礼[未読]
【31773】Re:keinさん教えてください Ned 05/11/29(火) 22:59 発言[未読]
【31786】Re:keinさん教えてください 初心者 05/11/30(水) 8:59 発言[未読]
【31787】Re:keinさん教えてください 初心者 05/11/30(水) 9:03 お礼[未読]
【31760】Re:keinさん教えてください ANS 05/11/29(火) 18:10 発言[未読]
【31785】Re:keinさん教えてください 初心者 05/11/30(水) 8:56 お礼[未読]
【31761】Re:keinさん教えてください こたつねこ 05/11/29(火) 18:31 発言[未読]

【31568】keinさん教えてください
質問  初心者  - 05/11/25(金) 17:00 -

引用なし
パスワード
   先日お世話になりました初心者です。
keinさん、いらしたら是非またお力をお貸しくださいm(__)m

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=30943;id=excelで、
イベントの発生を「A1に何か入力されたら」としてVBAを教えて頂きましたが、「bookが開いたら」に変更できますでしょうか?
どうしても不具合が生じてしまい困っております。
一番手っ取り早いのが、この「bookが開いたら」でした。
お手数お掛けいたしますが、また、お力拝借できませんでしょうか?

現在は、対象のシートmoduleに
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Fom As String

  With Target
   If .Count > 1 Then Exit Sub
   If IsEmpty(.Value) Then Exit Sub
   If .Address = "$A$1" Then
     Application.OnKey "^{ENTER}", "MyCalc"
     Exit Sub
   End If
  End With
  If Intersect(Target, Range("F6:F65536")) Is Nothing Then Exit Sub
  With Target
   If .HasFormula = False Then Exit Sub
   Fom = .Formula
   If UCase(Left$(Fom, 5)) <> "=ROUN" Then
     Fom = Right$(Fom, Len(Fom) - 1)
     Application.EnableEvents = False
     .Formula = "=ROUNDDOWN(" & Fom & ",0)"
     Application.EnableEvents = True
   End If
  End With
End Sub

標準moduleに
Sub MyCalc()
  Dim Ad As String
 
  If TypeName(Selection) <> "Range" Then Exit Sub
  If Intersect(ActiveCell, Range("F6:F65536")) Is Nothing Then
   Exit Sub
  End If
  With ActiveCell
   Ad = .Offset(-1).Address
   .Formula = "=ROUNDDOWN(SUM($F$6:" & Ad & ")*0.1,0)"
  End With
End Sub

となっております。

【31584】Re:keinさん教えてください
回答  Kein  - 05/11/25(金) 20:16 -

引用なし
パスワード
   >「bookが開いたら」
というと、開いたときにOnKeyプロパティを設定しておく、という意味ですね ?
それなら ThisWorkbookモジュールに

Private Sub Workbook_Open()
 Application.OnKey "^{ENTER}", "MyCalc"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Application.OnKey "^{ENTER}"
End Sub

を入れて、シートモジュールの Changeイベントは

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Fom As String

  If Intersect(Target, Range("F6:F65536")) Is Nothing Then Exit Sub
  With Target
   If .HasFormula = False Then Exit Sub
   Fom = .Formula
   If UCase(Left$(Fom, 5)) <> "=ROUN" Then
     Fom = Right$(Fom, Len(Fom) - 1)
     Application.EnableEvents = False
     .Formula = "=ROUNDDOWN(" & Fom & ",0)"
     Application.EnableEvents = True
   End If
  End With
End Sub

というように変更すればよいでしょう。


 

【31592】Re:keinさん教えてください
発言  初心者  - 05/11/26(土) 8:31 -

引用なし
パスワード
   ▼Kein さん:おはようございます。
またまたお付き合いくださり誠にありがとうございます。

前回より日数が経っているのに内容を細かく記入しておりませんで申し訳ございません。(前回もそうでした(;゚0゚)・・・)
当方の依頼は、
1.セルの計算式を変更し確定した時点で頭にrounddownが付く
2.ctrlキー+entetキーで、セルの内容を
「=ROUNDDOWN(SUM($F$6:$F$○)*0.1,0)」にする(○は対象セルの一つ上のセル)
です。

今回教えて頂きましたのですと、1.はOKなのですが、2.が不可でした。

またまたお付き合い頂けますでしょうかo(>▽< o)

【31712】Re:keinさん教えてください
発言  初心者  - 05/11/29(火) 9:49 -

引用なし
パスワード
   発言気づかないほどに下ってしまいましたので
上げさせていただきます。

どうか、keinさんの目に留まるように・・・

【31713】Re:keinさん教えてください
発言  注意  - 05/11/29(火) 10:07 -

引用なし
パスワード
   > 初心者 さん
回答者を名指しで指定するのはどうかと思います。
実際他の回答者は解答しにくいですし、
指定された方にとってはいい迷惑です。

題名は”見ただけでどんな内容か分かる”ようなものにしましょう。
ついでに、HNも”初心者”みたいなのは控えてください。
どちらも、印象が悪くなるだけで、デメリットになるばかりです。

【31716】Re:keinさん教えてください
発言  ぱっせんじゃー  - 05/11/29(火) 11:16 -

引用なし
パスワード
   初心者さん;
>発言気づかないほどに下ってしまいましたので
>上げさせていただきます。

こういう行為をサルベーションといいます。
ネットでは嫌われる行為です。

注意さん;
おっしゃっていることはごもっともです。
こんな立派なことをおっしゃっているのに
なぜ捨てHNなのでしょう?
捨てHNだと効果が半減してしまうような気がし
ます。

回答でなくすみません。

【31735】Re:keinさん教えてください
回答  初心者  - 05/11/29(火) 15:03 -

引用なし
パスワード
   ▼注意 さん:
>回答者を名指しで指定するのはどうかと思います。
>実際他の回答者は解答しにくいですし、
>指定された方にとってはいい迷惑です。

では、すでに一度はお答えを頂いているのに、指定された方(keinさん)は
迷惑であるとおっしゃるのでしょうか?
本当にkeinさんが迷惑と感じられるのであれば、心よりkeinさんと注意さんにお詫び申し上げます。
keinさんが迷惑と感じないのであれば、注意さんの余計なお世話です。逆に、どうかと?感じます。
keinさんのレス見て、いい迷惑と感じ取れる文面有りました?
また、感じたとしても黙っていてください。部外者でしょ?


>題名は”見ただけでどんな内容か分かる”ようなものにしましょう。

はい!かしこまりました!!!


>ついでに、HNも”初心者”みたいなのは控えてください。

前回の質問から、そのHNで質問しております。また、前回URLも最初に提示しております。
たぶん、keinさんにはそのほうがわかりやすい(前回の流れで)と思い継続して使用しました。
よって、ご注意くださるのであれば、前回時に下さい。
でも、たぶん、「前回はみていない」とでもおっしゃるんでしょうね?
ですので、よく読んでいないのにレス付けないで下さい。


>どちらも、印象が悪くなるだけで、デメリットになるばかりです。

よって、題名の付け方はこちらに非があったと思いお詫び申し上げます。
それ以外は、注意さんが偽善者に感じてなりません。

【31736】Re:keinさん教えてください
回答  初心者  - 05/11/29(火) 15:08 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
>初心者さん;
>>発言気づかないほどに下ってしまいましたので
>>上げさせていただきます。
>
>こういう行為をサルベーションといいます。
>ネットでは嫌われる行為です。

はい!かしこまりました!
以後、二度としません。

で、よろしいでしょうか?

>注意さん;
>おっしゃっていることはごもっともです。
>こんな立派なことをおっしゃっているのに
>なぜ捨てHNなのでしょう?
>捨てHNだと効果が半減してしまうような気がし
>ます。

注意さんにもレス付けました通り、前回時に下さい。


>回答でなくすみません。

いいえ、ご気分悪く致し深くお詫び申し上げます。
確かに前回時にHN付けている点は、反省しておりますので。

【31737】Re:keinさん教えてください
発言  Blue  - 05/11/29(火) 15:14 -

引用なし
パスワード
   解答ではありません。

> 回答者を名指しで指定するのはどうかと思います。
> 実際他の回答者は解答しにくいですし、
> 指定された方にとってはいい迷惑です。
これは一般論なのでは?
たまたまKeinさんがとても心の広い方なので許されているのでは。

HNは前もそうだからといってずっと同じにするのは問題だと思います。
おそらく”初心者”というHNで投稿されている方はカナリいます。
元”初心者”です。とでもいって改名されるほうがいいです。

> でも、たぶん、「前回はみていない」とでもおっしゃるんでしょうね?
> ですので、よく読んでいないのにレス付けないで下さい。
こんなこというと、今回しか見てない人は答えを知っていても、レスをつけなくなりますよ。

ここを参考に掲示板の使い方を学んでください。
http://www.hyuki.com/writing/techask.html

【31740】Re:keinさん教えてください
発言  ぱっせんじゃー  - 05/11/29(火) 16:10 -

引用なし
パスワード
   >>注意さん;
>>おっしゃっていることはごもっともです。
>>こんな立派なことをおっしゃっているのに
>>なぜ捨てHNなのでしょう?
>>捨てHNだと効果が半減してしまうような気がし
>>ます。

>注意さんにもレス付けました通り、前回時に下さい。

はあ?という感じです。
この部分は
>注意さん:
と書いてあるのになぜあなたがここに反応するのでしょう?

【31741】Re:keinさん教えてください
発言  初心者  - 05/11/29(火) 16:25 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
>>>注意さん;
>>>おっしゃっていることはごもっともです。
>>>こんな立派なことをおっしゃっているのに
>>>なぜ捨てHNなのでしょう?
>>>捨てHNだと効果が半減してしまうような気がし
>>>ます。
>
>>注意さんにもレス付けました通り、前回時に下さい。
>
>はあ?という感じです。
>この部分は
>>注意さん:
>と書いてあるのになぜあなたがここに反応するのでしょう?

ごもっともに反応しました。

【31742】Re:keinさん教えてください
回答  初心者  - 05/11/29(火) 16:29 -

引用なし
パスワード
   ▼Blue さん:
>> 回答者を名指しで指定するのはどうかと思います。
>> 実際他の回答者は解答しにくいですし、
>> 指定された方にとってはいい迷惑です。
>これは一般論なのでは?
>たまたまKeinさんがとても心の広い方なので許されているのでは。

たぶん、私が注意さんに付けたレスに対しておっしゃってるのですよね?
では、ここで次質問するような機会があれば、そうしますよ。
ただ、ただですよ!
一度keinさんがレス付けていただいてるのに対し、それ以前のことに物申すのは、
順番が違うと感じたのです。keinさんがレスする前であれば納得しましたよ。
keinさんがレスつけたいるのに対し、さらに注意さんがさかのぼりレス付ける行為が偽善と感じたのです。
私が付けた題名が間違いないなんていってないけど(むしろ非があったといってるけど)、言ってくれるなら、私の質問が解決してから最後に下さい。

>HNは前もそうだからといってずっと同じにするのは問題だと思います。
>おそらく”初心者”というHNで投稿されている方はカナリいます。
>元”初心者”です。とでもいって改名されるほうがいいです。

はい。では次同じようなことがあった場合そうします。
あくまでも、keinさんに思い出していただくのが目的でしたから。

>> でも、たぶん、「前回はみていない」とでもおっしゃるんでしょうね?
>> ですので、よく読んでいないのにレス付けないで下さい。
>こんなこというと、今回しか見てない人は答えを知っていても、レスをつけなくなりますよ。

ですので、題名どうじゃないですか。
私が立てたスレットの内容にkeinさん以外にお願いしている節はございますか。
もちろんkeinさん以外の方にお知恵を拝借できたとすれば、深く感謝致します。
これにうそ偽りございません。
でも、そういう題名付けてしまった以上、そこそんなに突っ込まれても。

ただ、題名の付け方は間違いであったと感じてはおりますので、
そこの点はあまりご指摘して頂かぬよう願い申し上げます。

>ここを参考に掲示板の使い方を学んでください。
>http://www.hyuki.com/writing/techask.html

はい!かしこまりました!

【31743】Re:keinさん教えてください
発言  ぱっせんじゃー  - 05/11/29(火) 16:36 -

引用なし
パスワード
   >ごもっともに反応しました。

注意さんの指摘は、当然のことです。
ネット上では常識の範疇ですよ。

【31745】Re:keinさん教えてください
回答  初心者  - 05/11/29(火) 16:54 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
>>ごもっともに反応しました。
>
>注意さんの指摘は、当然のことです。
>ネット上では常識の範疇ですよ。

だって、前回からそのHNでkeinさんはじめ色々な方にレス頂いて、お世話になり、
また同じ方々に見て頂きたく同じHNでスレット立てたんですよ!
題名見てください。

あなたはネット上での正しい常識の範疇の持ち主であります。
こちらは非常識です。はい。


ですので、

もし違う質問生まれましたら改心しますので、”この題名”の”このツリー”には反応しないで下さい。
題名どおりですので!

【31746】なんだか...
発言  やま  - 05/11/29(火) 16:55 -

引用なし
パスワード
   技術系BBSやMLで必ず発生するこの種(上級者から初級者への)の注意。
なんだかなあ....

【31748】Re:なんだか...
発言  ぱっせんじゃー  - 05/11/29(火) 17:02 -

引用なし
パスワード
   >技術系BBSやMLで必ず発生するこの種(上級者から初級者への)の注意。
>なんだかなあ....

知るは一時の恥
知らぬは一生の恥

【31750】Re:なんだか...
回答  初心者  - 05/11/29(火) 17:07 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
> >技術系BBSやMLで必ず発生するこの種(上級者から初級者への)の注意。
>>なんだかなあ....
>
>知るは一時の恥
>知らぬは一生の恥

一生の恥で結構ですので、このツリーにレスしないで下さい。

【31752】Re:なんだか...
お礼  初心者  - 05/11/29(火) 17:11 -

引用なし
パスワード
   ▼やま さん:
>技術系BBSやMLで必ず発生するこの種(上級者から初級者への)の注意。
>なんだかなあ....
見苦しく大変申し訳なく存じ上げます。
ですが、どうぞそっとしておいて下さい。
過ちの題名を付けたのはこちらですが、その通り
題名どおりですので。

【31754】Re:なんだか...
発言  ぱっせんじゃー  - 05/11/29(火) 17:14 -

引用なし
パスワード
   知る必要がないのなら、何ゆえに質問?
知りたいから質問したのではなく??
う〜ん分からん。
これ以上のレスは無意味とみたので退散。

【31755】Re:keinさん教えてください
発言  こたつねこ  - 05/11/29(火) 17:16 -

引用なし
パスワード
   初心者さん、こんにちは

あまり熱くならずに・・・
今回の件は初心者さんの為に発言されていると思いますよ。
今回の初心者さんの質問に対して回答できる方は、この板
にもたくさんいらっしゃいます。

しかし、その全ての方がご自分の仕事を持ち、手隙の時間
にレスしているという状況だと思います。

前回は幸運にもKeinさんの、手隙の時間にたまたま初心者
さんの質問がUPされレスしただけだと思われませんか?
今回もKeinさんの手隙の時間にあたるかどうかなんて分か
らないですよね?
だから
>>> 回答者を名指しで指定するのはどうかと思います。
>>> 実際他の回答者は解答しにくいですし、
こういうアドバイスを付けていただいているのだと思いま
すよ。

表現の仕方が悪いかも・・・Keinさんすいません^^;

で、こんな事ばかり言ってても初心者さんの状況が進展し
ませんので、初心者さんの質問に対してですが、

Keinさんに提示していただいたもので、初心者さんのご希
望の動作をすると思われます。

2回にわたってコードをUPされていますが、初心者さんの
現在のコードは2回目にUPされたものだけになっていませ
んか?

今一度、初心者さんの現在のコードが以下のようになって
いるかご確認ください。

標準moduleに
Sub MyCalc()
  Dim Ad As String
 
  If TypeName(Selection) <> "Range" Then Exit Sub
  If Intersect(ActiveCell, Range("F6:F65536")) Is Nothing Then
   Exit Sub
  End If
  With ActiveCell
   Ad = .Offset(-1).Address
   .Formula = "=ROUNDDOWN(SUM($F$6:" & Ad & ")*0.1,0)"
  End With
End Sub

ThisWorkbookモジュールに
Private Sub Workbook_Open()
 Application.OnKey "^{ENTER}", "MyCalc"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Application.OnKey "^{ENTER}"
End Sub

シートモジュールに
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Fom As String

  If Intersect(Target, Range("F6:F65536")) Is Nothing Then Exit Sub
  With Target
   If .HasFormula = False Then Exit Sub
   Fom = .Formula
   If UCase(Left$(Fom, 5)) <> "=ROUN" Then
     Fom = Right$(Fom, Len(Fom) - 1)
     Application.EnableEvents = False
     .Formula = "=ROUNDDOWN(" & Fom & ",0)"
     Application.EnableEvents = True
   End If
  End With
End Sub

【31756】Re:なんだか...
お礼  初心者  - 05/11/29(火) 17:19 -

引用なし
パスワード
   ▼ぱっせんじゃー さん:
>知る必要がないのなら、何ゆえに質問?
>知りたいから質問したのではなく??
>う〜ん分からん。
>これ以上のレスは無意味とみたので退散。

お気使いくださいましてありがとうございます。

【31758】Re:keinさん教えてください
お礼  初心者  - 05/11/29(火) 17:46 -

引用なし
パスワード
   ▼こたつねこ さん:はじめまして
ありがとうございます。

先に、このツリーのご関係者様
さっきまでkeinさん以外反応してくれるなと言っておきながら
自分にプラスなレスは頂戴することをお詫びいたします。

こたつねこ様、
まず本題の件
keinさんのレスを今一度読み直しました。
こたつねこさんのご指摘の通り、keinさんのコードで間違いないです。
こちらの読み間違いでした。おはずかしい限りです。
HNの通りですのお見苦しいレスをお詫びいたします。

それから、一連のやり取りについては、思うことはございますが、
解決いたしましたので、後もういいです。別にweb上のことですので。

一つだけ質問してもよろしいでしょうか?

ぱっせんじゃーさんが
>発言気づかないほどに下ってしまいましたので
>上げさせていただきます。

こういう行為をサルベーションといいます。
ネットでは嫌われる行為です。

と、
おっしゃっておりましたが、確かに理解できるのですが、
で、どうするのが正解なんでしょうか?
もう一度、スレット立てる、待つ、諦める・・・

後付の話ですが、確かに良くない事だとわかっていた節もあります。

ぱっせんじゃーさんに質問するのが正解でしょうが、すみません。

【31759】Re:keinさん教えてください
質問  初心者  - 05/11/29(火) 18:07 -

引用なし
パスワード
   さらに質問させていただきます。よろしければお願いできますでしょうか。

keinさんから教わりましたコードですべてOKなのですが、
そのコードを用いますと、F列の一つのセルの内容を下にコピーする動作(セルの右下のポインタを持っていき、内容を下のセルにコピーする)を行うと「実行時エラー'13': 型が一致しません」とメッセージが出ます。(一行だけコピーではなりませんが、二行以上コピーすると出ます)
もし、このエラーが出なくなるコードがあるのであればご指導お願いできますでしょうか。

宜しくお願いいたします。

あと、PCの前を離れなければならない時間です。
これ以上本日レスできません。質問しておきながら明日以降になることを、先にお詫び申し上げます。

【31760】Re:keinさん教えてください
発言  ANS  - 05/11/29(火) 18:10 -

引用なし
パスワード
   >で、どうするのが正解なんでしょうか?
>もう一度、スレット立てる、待つ、諦める・・・

回答者は質問に答える義務はありません。
まったくレスがつかないこともあると思います。

回答者は善意で回答しています。
あなただけの掲示板では有りません。

と、思います。

【31761】Re:keinさん教えてください
発言  こたつねこ  - 05/11/29(火) 18:31 -

引用なし
パスワード
   初心者さん、こんにちは

>こたつねこさんのご指摘の通り、keinさんのコードで間違いないです。
>こちらの読み間違いでした。おはずかしい限りです。
解決されたようで何よりです。

>こういう行為をサルベーションといいます。
>ネットでは嫌われる行為です。
>と、
>おっしゃっておりましたが、確かに理解できるのですが、
>で、どうするのが正解なんでしょうか?
>もう一度、スレット立てる、待つ、諦める・・・
初心者さんもその間何もせずにいた訳ではないと思いますので、
ご自分で変更されたコードを提示して、その経過をUPするとい
うのも手ではないでしょうか?
ただ、その場合に誰々さんと題名を付けてしまうとレスが付き
難いと思います。


白状しますと、私も初心者さんのこのスレは前から見てはいた
のですが、Keinさんとご指名されていたのでレスしにくかった
のも事実です。

その状況を見てみぬ振りしていた私なんかより、実際その事
を指摘してくださった、注意さんや他の方々に感謝こそすれ
噛み付く方がおかしいのでは?
と私は思います。<また話を掘り返して申し訳ない m(_ _)m

>先に、このツリーのご関係者様
>さっきまでkeinさん以外反応してくれるなと言っておきながら
>自分にプラスなレスは頂戴することをお詫びいたします。
このような事を言えるということは、初心者さんは礼儀をわき
まえていると感じますので

>それから、一連のやり取りについては、思うことはございますが、
>解決いたしましたので、後もういいです。別にweb上のことですので。
上記のような表現をされるのではなく、もう一度冷静になって今回
のスレをお読みになって頂けたら皆さんの言葉に悪意はないと感じ
て頂けると思います。

皆さんのアドバイスを素直に受入れ、うまく掲示板等を利用される
事をお願いいたします。

【31766】Re:実行時エラー'13': 型が一致しません
回答  こたつねこ  - 05/11/29(火) 20:01 -

引用なし
パスワード
   初心者さん、こんばんは

>そのコードを用いますと、F列の一つのセルの内容を下にコピーする動作(セルの
>右下のポインタを持っていき、内容を下のセルにコピーする)を行うと「実行時エ
>ラー'13': 型が一致しません」とメッセージが出ます。(一行だけコピーではな
>りませんが、二行以上コピーすると出ます)
問題のコードは複数セルの変更に対応したコードでないため
エラーが発生しているようです。
下記コードでエラーが出なくなると思います、お試しください。

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Fom As String
  Dim Seru As Range 'ここを追加
 
  If Intersect(Target, Range("F6:F65536")) Is Nothing Then Exit Sub
  For Each Seru In Target 'ここを追加
   If Seru.Column=6 and Seru.Row=>6 then 'ここを追加
     With Seru 'ここを変更
      If .HasFormula = False Then Exit Sub
      Fom = .Formula
      If UCase(Left$(Fom, 5)) <> "=ROUN" Then
        Fom = Right$(Fom, Len(Fom) - 1)
        Application.EnableEvents = False
        .Formula = "=ROUNDDOWN(" & Fom & ",0)"
        Application.EnableEvents = True
      End If
     End With
   End if 'ここを追加
  Next 'ここを追加
End Sub

【31773】Re:keinさん教えてください
発言  Ned  - 05/11/29(火) 22:59 -

引用なし
パスワード
   ▼初心者 さん:
こんにちは。こたつねこさんのアドバイスで、もう解決でしょうね。
蛇足ながら、ちっとだけおまけで。
もしハズしてたら無視していいですよ^ ^
前スレッドでボソっとつぶやいた
>#ユーザー定義関数という手もあるかもしれませんね
なのですが、一番簡単なのだと、↓な感じで?

Function xsum(r As Range, n As Long)
 xsum = Fix(Application.Sum(r.Value) * n / 100)
End Function

合計を出したいセルに =xsum( と入力して合計範囲を選択。
 , で区切って%を整数値で入力。

例)=xsum(A1:A10,15)

他の方に入力してもらう時に簡単に処理できれば、それに越した事はない?
でも、計算式の入力が手間と感じられるかも。。。

#あ。HN変えました。End

【31784】Re:実行時エラー'13': 型が一致しません
お礼  初心者  - 05/11/30(水) 8:55 -

引用なし
パスワード
   ▼こたつねこ さん:おはようございます。

ありがとうございました。全て解決いたしました。
シロウトにお付き合い下さいましてありがとうございます。
短文で失礼します。

【31785】Re:keinさん教えてください
お礼  初心者  - 05/11/30(水) 8:56 -

引用なし
パスワード
   ▼ANS さん:
>>で、どうするのが正解なんでしょうか?
>>もう一度、スレット立てる、待つ、諦める・・・
>
>回答者は質問に答える義務はありません。
>まったくレスがつかないこともあると思います。
>
>回答者は善意で回答しています。
>あなただけの掲示板では有りません。
>
>と、思います。

はい、そんなにあおらないでください。

【31786】Re:keinさん教えてください
発言  初心者  - 05/11/30(水) 8:59 -

引用なし
パスワード
   ▼Ned さん:
横からアドバイスありがとうございます。感謝です。

ですが、私のやり方間違ってるのでしょうか?
#MANE? のエラーがでます。

もう少しやってみます。
こんなツリーにレス本当にありがとうございます。

【31787】Re:keinさん教えてください
お礼  初心者  - 05/11/30(水) 9:03 -

引用なし
パスワード
   >▼Ned さん:早速出来ました。

標準モジュールに入れるのですね!
間違いなく動作しました。

ついでに、このファイルでは使用しないのですが、
別のファイルに応用できると思い今から取り掛かります。

再度お礼申し上げます。ありがとうございます。

8689 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free