mu2011 の回答履歴

取引先が数社ありすべて売掛です。Ｇ列には取引先の名前が重複して何回も入りますＨの列に何回目の取引か分かるように数字でカウントさせたいです。 下記のような感じです 　Ｇ列　Ｈ列 　Ａ社　１ 　Ｂ社　１ 　Ｃ社　１ 　Ｄ社　１ 　Ａ社　２ 　Ｂ社　２ 　Ａ社　３ すいませんがよろしくお願い致します。

タイトルの件、質問いたします。 下記の３つの平均を出す際に、０を含めないで、平均を出すにはどうすれば良いでしょうか？ ちなみに、下記の３つのセルのゼロは、SUM関数で出した結果となっています。 ネットで調べて、やりましたが、0を含んだ平均しか出せませんでした。 ご存知の方、いらっしゃましたら、宜しくお願いします。 A1＝10　 B1＝10 C1＝0

VBA勉強中の者です。早速ですが質問させて頂きます。 CドライブのSample Picturesという様々な形式の画像があるフォルダの中から、 jpgとpngの画像のみ名前をsheet4のA1から下方向に書き出したいと考え、 サイトや本で調べながら以下のコードを作成しました。 Sub sample() Worksheets(4).Cells.Clear Dim pngFileName As String Dim jpgFileName As String Dim CellsCount As Long Const path As String = "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\" pngFileName = Dir(path & "*.png") Do While pngFileName <> "" CellsCount = CellsCount + 1 Cells(CellsCount, 1) = pngFileName pngFileName = Dir() Loop jpgFileName = Dir(path & "*.jpg") Do While jpgFileName <> "" CellsCount = CellsCount + 1 Cells(CellsCount, 1) = jpgFileName jpgFileName = Dir() Loop End Sub 一応目的は達成出来ているのですが、スッキリできません。 Dir(path & ~ の部分で、ワイルドカードの指定文字が "*.jpg" と "*.png" の２種類ある時には わざわざDo White Loopを２回繰り返しさないといけいないのか疑問です。 仮に画像ファイルだけでなく、何種類もの拡張子を指定して抽出したい時には そのつどコードを増やさないといけないのでしょうか？ 考えた末 PictFileName = Dir(path & "*.jpg" Or path & "*.png")や PictFileName = Dir(path & "*.jpg" Or "*.png")などとしてみましたが 型が一致しないというエラーが出てしまいました。 もっとシンプルに分かり易くしたいです、どなたかご助力お願いいたします。 当方Excel2003を使用しております。

エクセル初心者です。 分類別の残高表示がうまくできません。 食費、衣服、書籍、それぞれの分類に分けての残高を計算したい。 例： B列の2と4が食費の場合、E2からA2と4を引いて F2に計算結果を出したい。 　　　 A　 　 B　　 C 　　D 　 　E　　 F 1　支出　分類　　　 各分類 割振　残高 2　 100　○○ 　　　　 食費　 5000　　 3　 100　○○　 　　　 衣服　 4000　 4　 100　○○　　 　　 書籍　 3000　 5　 100　○○ 6　 100　○○ 7　 100　○○ ・試した式 =IF(B2:B7="書籍",E2-A2:A7) FALSEと表示されました。 ネット等で色々調べましたが、解決できませんでした。 このような場合、どのような式で計算すればよいでしょうか？ 教えていただければ嬉しいです。 宜しくお願いいたします。

エクセルのVBAを使って下記のようにデータを 並べ替えることをしたいのですが どのように書けばよいでしょうか・・・ ≪元の状態≫ 　　　　A　　　　B　　　　C　　　　D　　　　E １　　　1　　　　3　　　　5　　　　　7　　　　9 ２　　　2　　　　4　　　　6　　　　　8　　　10 ３　　　11　　　13　　　15　　　　17　　　19 ４　　　22　　　24　　　26　　　　28　　　30 ５　　　31　　　33　　　35　　　　37　　　39 　　　　　　　　　　↓↓↓ ≪マクロ実行後の状態≫ A　　１　　　1 A　　２　　　2 A　　３　　　11 A　　４　　　22 A　　５　　　31 B　　１　　　3 B　　２　　　4 B　　３　　　13 B　　４　　　24 B　　５　　　33 C　　１　　　5 C　　２　　　6 C　　３　　　15 C　　４　　　26 C　　５　　　35 ・　　 ・　　　・ ・　　 ・　　　・ ・　　 ・　　　・ スペック情報としては、win7、Excel2007です。 よろしくお願い致します。

INDIRECTの関数を使って，他のエクセルファイル（以下Bファイル）を参照すると， Ｂファイルを開いているときは正しく数値を表示しますが， Ｂファイルを閉じるとエラー表示になります。 回避する方法は無いでしょうか？ （元ファイルと，Ｂファイルの両方から参照先に関する情報を得ているので，INDIRECT関数は，必須かと思っています） 参考までに３種類試したソースを示します。 できれば３は避けたいと考えています。 ご意見よろしくお願いします。 １：=INDIRECT("'[★★★Ｂファイル.xlsx]"&$A27&"'!o$7") エラー表示になります。 ２：=INDIRECT("'"&MID(CELL("filename",$A$1),1,FIND("[",CELL("filename",$A$1))-1)&"[★★★Ｂファイル.xlsx]"&$A26&"'!o$7") エラー表示になります。（パスまで含めて参照） ３：='C:\Users\test\[★★★Ｂファイル.xlsx]２１３旅費'!O$7 正常（常に数値を表示します）

エクセルの関数について教えて下さい。 例・・・ A1 A2のセル １ 北海道 ２ 青森 ３ 秋田 ・ ・ ・ A５のセルに北海道と入力したらA４に１、 秋田と入力したら３とでてくるようにしたいのですが、 A４にあてはまる関数はありますか?

Excel2007のVBAにて日付の置換ができなく困っております。 対象の複数列に入力されている下記の様なデータの内、日付の"yyyy/m/d"を "yyyy年m月d日"に置換しなくてはなりません。 ※書式設定ではなく、文字列として変換 入力例 １）2011/12/13 ２）2011/12/1～2011/12/13 ３）2011年12月13日 ４）2011/12/1～2011/12/13の毎火曜 ヒントでも構いませんので、宜しくお願い致します。

ＶＢＡ初心者ですが、よろしくお願いします。 エクセルで入力したいシートタブを右クリック、コードの表示で、 ＶＢＡに以下のスクリプトを入力しました。 ネットに紹介されていたスクリプトに自分で一部書き足したものです。 Ｕ列に値が入っていれば、その行のＴ列をダブルクリックするとチェックマークがつくようにし、 それをＵ列の最終行までループしたいのですが、エラーなどはなくチェックマークが出現しません。 どこが間違っているのでしょうか？ご教授お願いします。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MaxRow = Range("U65536").End(xlUp).Row For i = 1 To MaxRow Step 1 If Range("U" & i) <> Null Then If Intersect(Target, Range("T" & i)) Is Nothing = False Then Cancel = True If Target.Value = ChrW(10003) Then Target.ClearContents Else Target.Value = ChrW(10003) End If End If End If Next i End Sub

左から右にA、B、Cと値が入っています。 ABC以外の文字が列に入っていたら、削除するというマクロを組みましたが、範囲を設定するところでエラーが出てしまいました。 なぜでしょうか？ 教えて下さい。 Sub arrange() Dim rg As Range Dim i As Long i = 1 Do rg = Cells(i, 1) If rg <> "A" And rg <> "B" And rg <> "C" Then Range(i & ":" & i).Delete End If i = i + 1 Loop Until (i & "1") = "" End Sub

よろしくお願いします！ =INT((10-1+1)*Rand()+1) のようにすれば、１～１０までのランダムな数字が入力できる訳ですが、例えば2,3,5,7のように指定した数字からランダムで入力（選択）させることを関数を使って行う事は出来るのでしょうか？ マクロを使わないと無理でしょうか？ 全く別件ですが、Rand()の（）内に何か入力して使う機会というのはあるのでしょうか？

Excel for Mac2011 のオートフィルについてです。 オートフィルを使用しようと右下のポチを下にドラッグすると、関数式自体は連続データとして処理されるのですが、値が変化しません（関数ではなく数字ならば変化します）。 例えば、 (1,a)=1, (2,a)=2, (3,a)=3, ... (1,b)=(1,a)^2 の状態で、 セル(1,b)を下にドラッグしていくと、 (2,b)=4, (3,b)=9, ... となるはずが、 (2,b)=1, (3,b)=1, ... のままになってしまいます。 しかし、式はしっかりと、 (2,b)=(2,a)^2, (3,b)=(3,a)^2 となっており、 一度そのセルを編集モードにして、エンターをおすと、 しかるべき結果が反映されます。 このままだと全てのセルを「編集モード→エンター」しないといけなく大変面倒です。 このようなメジャーな機能なのでばぐではないと思うのですが、 対処法をご教授いただければと思います。 よろしくお願いします。 かなり質問が分かりにくいと思うので、参考画像も添付しておきます…。

Office2010 EXCELで改ページプレビューの機能を使用しているのですが、 行を増やすと、一ページ増えて増えたページに数行だけ表示されるようになります。 ５ページ目で行を増やしたとすると１０ページあったものが１１ページになり、６ページ目に数行だけ表示されたページが作成されます。 最後のページだけ数行表示されるのなら良いのですが、途中だけ中途半端な行数が表示されます。 どうにかできないでしょうか？

エクセル関数について教えてください。 家計簿で、収入や支出のセル枠があるとして、合計であるの１つのセルの数式として、 ある行のセルからセルまでの範囲に打ちこんだ数値をを足し、若しくは他行のあるセルからセルまでに打ちこんだ数値を引くような、ダブル条件みたいな数式はどんなものがありますか？ どなたか教えてください。

　エクセル関数を使って計算式を設定したいので，教えて下さい。現在，例のように５月までの累計１００と，６月の合計が５５（緑色のセル範囲の合計）を合わせ，６月の累計の欄に１５５が表示されるように設定しています。次の条件を満たすようなエクセル関数の使い方を教えて下さい。 　１）　６月のデータが全くない場合，６月の合計の欄には，何も表示させないという関数の使い方 　 　２）　次に，７月の累計の欄ですが，７月のデータが入力されていない場合には，６月までの累計が既に計算されている場合でも，表示しないという関数の使い方です。 　 　　※1)と２）の条件を同時に満たすエクセル関数の使い方を教えてもらえると助かります。 　３）８月，９月の累計の欄の結果も２）と同じように設定をしたいです。 　　　よろしくお願い致します。 　　

　エクセル関数を使って計算式を設定したいので，教えて下さい。現在，例のように５月までの累計１００と，６月の合計が５５（緑色のセル範囲の合計）を合わせ，６月の累計の欄に１５５が表示されるように設定しています。次の条件を満たすようなエクセル関数の使い方を教えて下さい。 　１）　６月のデータが全くない場合，６月の合計の欄には，何も表示させないという関数の使い方 　 　２）　次に，７月の累計の欄ですが，７月のデータが入力されていない場合には，６月までの累計が既に計算されている場合でも，表示しないという関数の使い方です。 　 　　※1)と２）の条件を同時に満たすエクセル関数の使い方を教えてもらえると助かります。 　３）８月，９月の累計の欄の結果も２）と同じように設定をしたいです。 　　　よろしくお願い致します。 　　

添付画像のようなエクセルで以下の標準モジュールを作っています。 Sub test001() If Cells(2, 2) = TimeValue("9:00:00") Then MsgBox ("9:00:00認識しました") Else MsgBox ("9:00:00認識しませんでした。") End If If Cells(3, 2) = TimeValue("9:05:00") Then MsgBox ("9:05:00認識しました") Else MsgBox ("9:05:00認識しませんでした。") End If If Cells(3, 2) = 0.378472222222222 Then MsgBox ("2回目9:05:00認識しました") Else MsgBox ("2回目9:05:00認識しませんでした。") End If If Cells(4, 2) = TimeValue("9:10:00") Then MsgBox ("9:10:00認識しました") Else MsgBox ("9:10:00認識しませんでした。") End If If Cells(5, 2) = TimeValue("9:15:00") Then MsgBox ("9:15:00認識しました") Else MsgBox ("9:15:00認識しませんでした。") End If If Cells(6, 2) = TimeValue("9:20:00") Then MsgBox ("9:20:00認識しました") Else MsgBox ("9:20:00認識しませんでした。") End If End Sub 実行すると、9:05:00　だけが、「9:05:00認識しませんでした。」となります。 時刻以外は同じ内容のはずですが　9:05:00　だけ認識されません。 解決策をお願いします。

受注ID 10022666 10022666 10022666 10022667 10022668 10022669 10022669 10022670 10022671 上記のように受注IDの人数を数えるにどうしたらよいでしょうか？ わかる方おしえてください。

エクセルでカウンター（ボタンを押すと指定したセルに+1していく）を作りたいのですが、どのようにすればいいのですか？

lookup関数　等は、検査値を特定の範囲から探す際、 その特定の範囲内でデータを昇順に並べておく必要が ありますが、昇順に並べなくても良い方法はありますか？