ユーザー定義関数でA列の値に応じてB列の値を変える
- VBA初心者のものです。ユーザー定義関数を作成して、A列のTypeの値に応じて、B列の名称の値を変化させる式を作成中です。
- B列2行目に、ユーザー関数をセル式として記述し、3・4行目にコピーしたのですが、０が表示されてしまいます。どうしてでしょうか？
- ユーザー定義関数の式において、Typeの値が「1」の場合、B列の名称の値を「あ」とします。Typeが「2」の場合は「い」、Typeが「3」の場合は「う」となります。
- ベストアンサー
ユーザー定義関数でA列の値に応じてB列の値を変える
A列 B列 1行 Type 名称 ２行 １ あ 3行 ２ い 4行 ３ う VBA初心者のものです。ユーザー定義関数を作成して、A列のTypeの値に応じて、B列の名称の値を変化させる式を作成中です。B列2行目に、下記のユーザー関数をセル式として記述し、3・4行目にコピーしたのですが、０が表示されてしまいます。 どうしてでしょうか？ Functionめいしょう(Type, 名称) Sheets("突合せ").Select If Type = 1 Then 名称 ="あ" Exit Function If Type = 2 Then 名称 = "い" Exit Function If Type = 3 Then 名称 = "う" Exit Function End If End If End If End Function
- ridi8888
- お礼率91% (22/24)
- Microsoft ASP
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
ユーザー定義関数の作成とその使い方をよく理解して作成することが必要でしょう。 例えば次のようにします。 「開発」タブで「Visual Basic」を選択します。 表示の画面の左側でModule1をクリックし、その上部にある「コードの表示」を選択します。 右側の画面には次のコードを入力します。 Function 名称(KATA As Integer) As String Select Case KATA Case Is = 1 名称 = "あ" Case Is = 2 名称 = "い" Case Is = 3 名称 = "う" Case Else 名称 = KATA End Select End Function コードの入力ではTypeを入れることはできません。KATAを使っています。 これらの準備が整ってからシートのB2セルにはユーザー関数を使った次の式を入力し下方にオートフィルドラッグコピーします。 =IF(A2="","",名称(A2)) これでA列の数字１，２，３に応じてあ、い、う、などが表示されます。 関数を使うために次の式を入力します。
関連するQ&A
- ユーザ定義関数がうまく動きません。
ユーザ定義関数がうまく動きません。 2月のA1セル値が1になっていたりします。 どこがおかしいのかわかりません。解決方法を教えていただけませんでしょうか。 よろしくお願いします。 【シートの設定】 シート名は1月・・・12月です。 各シートの A1セルは「=sheetname()」 B1セルは「月のチェックシート」 が入っています。 【VBAの設定】 Function SheetName() As String 'Application.Volatile If Len(ActiveSheet.Name) = 3 Then SheetName = Left(ActiveSheet.Name, 2) Else SheetName = Left(ActiveSheet.Name, 1) End If End Function
- ベストアンサー
- オフィス系ソフト
- B列の値がA列にあるかを調べる関数
excel2010を使っています。 題名の通りなのですが、B列にある値がA列にあるかを関数を使って求めたいと思います。 B列に290個、A列に259個の値が入力されていて、 ・B列にあってA列にないもの ・A列にあってB列にないもの の両方を見つけ出したいのですが、よい関数を教えてください。exact関数ではダメでした。
- ベストアンサー
- オフィス系ソフト
- Ａ列とＢ列の値の差から、ほしい行を見つけ出す関数
お世話になります。 Ａ列とＢ列に、それぞれランダムに数字が入っていて、 「Ａ列とＢ列の値の差が、±5.1 以上」である行だけを知りたい場合、 どうすればいいでしょうか？ （セルの値は整数だけではなくて、小数点５桁以上の場合もあります。） エクセルかロータスで、それを導き出す関数の式がわかる方、ぜひ教えてください。 表計算ソフト超初心者です。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- A2の値がA1の値と同じ場合はB2にB1の値+1をして
A2の値がA1の値と同じ場合はB2にB1の値+1をして A2の値がA1の値と違う場合はB2に"1"を繰り返しさせて入力するように 以下としたのですが、A列の値がなくなる限り1が入力されるだけなのですが どうすれば、A列のセルに同じ値が続く場合連番とすることができるでしょうか。お願いします。 range("B1").value = 1 range("B2").select dim 番号 As varient 番号 = activecell.offset(-1, -1).value do until activecell.offset(0,-1).value = "" with activedell if offset(0, -1).value = 番号 then offset(0, 0).value = offset(-1, 0).value + 1 end if offset(0, 0).value = "1" offset(1, 0).select end with loop
- 締切済み
- Visual Basic
- 条件付き書式設定でユーザー定義関数
ユーザー定義関数を以下のように作成しました。 Function AAA(i As Integer) As Boolean If i = 1 Then AAA = True Else AAA = False End If End Function このユーザー定義関数を条件付き書式で使用するときに期待した動作になりません。 条件付き書式のルールに 【1】 =AAA(1) とするとTRUEになりましたが、 【2】 =AAA(ROW(B1)) と入力するとTrueと判定されませんでした。（ここでTrueと判定させたかった） なお【3】 =ISERROR(AAA(ROW(B1))) と入力するとTrueと判定されました。 （補足） 【2】はB1セルの行番号（＝１）をAAA関数で判定させてます。 実際は、列番号も引数に加えて、表全体に条件付き書式を設定しようとしてます。 ちなみにセルに直接上記数式を入力した場合 【1】→True 【2】→True 【3】→False となります。 【2】のエラーの原因は何でしょうか？ 【2】でTrueと判定させる方法はありますか？ 以上、よろしくお願いします。 ※エクセル2010
- ベストアンサー
- Excel（エクセル）
- B列の値を参照して、A列に連番を振る方法
A・B・C列があり、A列には連番を、B列にはVLOOKUP関数が入っており、 C列には、B列の検索値が入っております。 B列は下記のVBAコードで同じ値をセル結合させています。 Sub 結合() Dim rngU As Range Dim i As Range Dim rngB As Range Dim Key As String Set rngB = Range("B2") Set rngU = Range(Range("B3") _ , Range("B6000").End(xlUp).Offset(1)) Application.DisplayAlerts = False For Each i In rngU If Not i.Text = Key Then If (Not i.Offset(-1) Is rngB) And _ (Not i Is rngB) Then Range(rngB, i.Offset(-1)).MergeCells = True End If Set rngB = i End If Key = i.Text Next i Application.DisplayAlerts = True End Sub そこで、A:3から連番を振りたいのですが、B列の決まった特定の結合セルの 隣のA列のセルもB列の決まった特定の結合セルと同数にセル結合させ、 連番を1つとしてカウントしたいのです。 また、A列にはB列同様にVLOOKUP関数が入っており、連番を振りたくないセルには 印が付くようにしています。 行数やB列の決まった特定の結合セル番地はランダムに変わるため、B列の結合セルで参照させるしか ないのかなっと思っております。 B列の特定の結合セルの値は決まっております。 上記のような処理を自動にさせるためのVBAが分かる方がいらっしゃいましたら、 是非ご教授お願いいたします。
- 締切済み
- オフィス系ソフト
- ユーザー定義関数の再計算
ユーザー定義関数を作りました。 ところが、この関数が自動再計算をしてくれません。 どうしたら自動再計算するようになるのでしょうか？ よろしくお願いします。 ちなにこの関数は、自分のシートのB2とsheet1～sheet4のB9を比較して、正しければB9の４つ右のセルの値を合計して返すものです。 =SheetLook($B$2,"sheet1,sheet2,sheet3,sheet4",B9,4) コードです。 Function SheetLook(参照元 As Variant, 比較対象シート As String, 比較対象セル As Range, 参照セル位置 As Integer) As Variant Dim i As Integer Dim rng As Range Dim sss As Variant Dim kei As Variant Dim cnt As Integer sss = Split(比較対象シート, ",") kei = 0 cnt = 0 For i = 0 To UBound(sss) Set rng = Sheets(sss(i)).Range(比較対象セル.Address) If 参照元 = rng Then kei = kei + rng.Offset(0, 参照セル位置) cnt = cnt + 1 End If Next If cnt <> 0 Then SheetLook = kei Else SheetLook = "" End If End Function
- ベストアンサー
- オフィス系ソフト
- VBAでのユーザ定義関数の返り値
VBAでのユーザ定義関数の返り値をエクセルのセルに表示させる際、 色を変更して表示するにはどうすれば良いのでしょうか？ つきのような関数のerrorの時だけ赤色にしたいのです。 functin test(ss as double) if ss >10 then test=ok else test =error! end if end function
- 締切済み
- オフィス系ソフト
- ユーザー定義関数の構文がわからない
以下のコードがあるのですが、コメントがなくて意味がよくわかりません。k = p(1),n = Application.Count(p),t = Sgn(position)というあたりがいきなり見たことのない構文で戸惑ってます。 インターネットでも調べようがありませんでした。 どなたか下のコードにコメントを入れてくれませんでしょうか？ちなみに株式売買のシミュレーション用の関数です。 Function Positioning(position As Single, x As Single, y As Single, p As Range) Dim k As Single, t As Single, r As Single Dim n As Integer, i As Integer If position = 0 Then Positioning = "": Exit Function k = p(1) n = Application.Count(p) t = Sgn(position) If t > 0 Then l = Abs(x): m = -Abs(y) Else l = Abs(y): m = -Abs(x) End If For i = 2 To n r = (p(i) / k - 1) * t If r >= l Or r <= m Then t = 0: Exit For Next If t = 0 Then Positioning = r Else Positioning = "ポジションは解消されていません" End If End Function
- ベストアンサー
- オフィス系ソフト
- 関数が入っている列で値のある最後のセルの値を返す
お尋ねします。 関数が入っている列で式の値が入っている一番下のセルの値を調べるにはどうしたら良いでしょうか？ 例 A列 １ ５ 2 １０ 3 １３ 4 （式の値が無いのでゼロ） B１セルにA3セルの１３と言う値を返したいのですが、列に式（SUMPRODUCT関数)が入っていて、実際はA4セルのゼロが返ってきます。 またシート１～シート５ まで上記と同じ式が入っていて、シート１のA列の最後の値「１３」をシート６のB1セルに値を返す場合、INDIRECT関数を使った場合、どういう式になるでしょうか？ ご回答よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
お礼
ありがとうございます。 1点、なぜTypeを入れることはできず、KATAでないとだめなのかが 不明なところではありますが、 望みどおりの結果をうることができました。 ご教授感謝いたします