エクセルの学校：全文検索：Hyper Estraier： VBA��

Results of 1 - 1 of about 14741 for VBA�� (0.003 sec.)

[[20231128153636]]: #score: 3407; @digest: d63dd8f29ae5500c95b49b10fd458c68; @id: 95665; @mdate: 2023-11-28T09:21:48Z; @size: 4134; @type: text/plain; #keywords: anccell (36340), 超超 (28784), ダ式 (21322), newcell (15241), 型番 (12266), 指向 (10271), 番() (9276), 番= (7878), ムダ (6912), property (5342), 番( (4623), 復習 (4408), ト指 (3666), ド? (3542), ル-- (2834), 超初 (2576), 言語 (2108), サポ (1936), function (1862), メソ (1645), 準と (1540), 白茶 (1533), ソッ (1474), 基準 (1419), （vb (1396), ブジ (1372), オブ (1367), ジェ (1277), xyz (1218), 2023 (1204), クラ (1199), プロ (1128); 『プロパティやメソッド?を追加で登録したい』（VBA超超超初心者）
お世話になります。検索しても情報が得られなかったので質問させてください。いま、シート上の複数セルにひとかたまりの情報が並んでいるとします。例 A B C D E F 1 No1 100 No2 200 2 AAA 20 BBB 30 3 4 5 No3 300 No4 400 6 CCC 40 DDD 50 7 このとき、基準となるセルの1つ下の値（型番とします）を取りたいとき、 Range("A1").Offset(1, 0).Value というように書きますが、これを Range("A1").型番というようにプロパティ?メソッド?みたいな感じで使いたいのですが、どのように定義すればこのように使えるでしょうか。また不可能な場合は、これに近い使い方ができる代替案等教えていただきたいと思います。よろしくお願いいたします。＜使用 Excel:Microsoft365、使用 OS:Windows10 ＞ ---- プロパティやメソッドをユーザーが追加することはできません。 Function プロシージャを作成してください。（xyz） 2023/11/28(火) 16:03:48 ---- xyz さんありがとうございます。では、Functionを用いて上記の様な使い方をしたいのですが、実装方法を教えていただきたいです。以下イメージ Function 型番() 型番 = (Rangeオブジェクト).Offset(1, 0).Value End function Debug.Print Range("A1").型番よろしくお願いいたします。（VBA超超超初心者） 2023/11/28(火) 16:29:52 ---- Function 型番(r As Range) As Variant 型番 = r.Offset(1, 0).Value End Function Debug.Print 型番(Range("A1")) です。 # 入門テキストを復習されたほうが効率がいいかも知れませんね。（xyz） 2023/11/28(火) 17:08:39 ---- xyz さんすみません、Functionの使い方はわかるのですが、それを用いて以下のような書き方をどのように実現できるかお聞きしたかったのです。例 Debug.Print Range("A1").型番レンジオブジェクト→種類の順に指定したいよろしくお願いいたします。（VBA超超超初心者） 2023/11/28(火) 17:23:56 ---- > プロパティやメソッドをユーザーが追加することはできません。と書きました。 Functionプロシージャは、そういうObject.method という使い方はできない、と言っているのです。関数(引数）という形式のものを使うしかありません。 VBAは、・VB6というVisual Basicというプログラム言語（これはオブジェクト指向ではないです）に、・その上に、Excelのオブジェクト操作のオブジェクト指向的なものを追加したのです。ユーザーがFunctionプロシージャを追加できますが、これはVB6の言語仕様によるしかないのです。ですから、オブジェクト指向言語的なメソッドを追加することはできません。 VBAの基本テキストを持っていますか?もう一度復習してください。（xyz） 2023/11/28(火) 18:04:41 ---- せいぜいクラス使って「それっぽく」表現することくらいしか出来ないと思いますね。 Rem [Class1]クラスモジュール------------------------------------------ Option Explicit Private ancCell As Range Public Property Get 基準となるセル() As Range Set 基準となるセル = ancCell End Property Public Property Set 基準となるセル(newCell As Range) Set ancCell = newCell End Property Public Property Get 型番() As Range If Not ancCell Is Nothing Then Set 型番 = ancCell.Offset(1) End Property Rem 標準モジュール--------------------------------------------------- Option Explicit Sub test() Dim c As New Class1 Set c.基準となるセル = Range("A1") Debug.Print c.型番.Address End Sub （白茶） 2023/11/28(火) 18:06:54 ---- VBAでもラムダ式やらデリゲートやらがサポートされる日が来れば、ひょっとしたらもうちょっと簡素に表現出来るのかもしれませんが、 VB ラムダ式の使用 - Action, Func https://www.umayadia.com/VBStandard2/Standard34.htm 今のところサポートされてないです。（白茶） 2023/11/28(火) 18:12:22 ---- xyz さん回答ありがとうございました。白茶さん回答ありがとうございます。やはり、クラスを使ったやり方しかできなさそうなのですね。ありがとうございます。ただ、こういう書き方の方が直感的にわかりやすく、メンテナンス性もいいと思うので、このやり方で組んでいきたいと思います。また、ラムダ式のご紹介ありがとうございます。 VB .NETでは使用できるんですね。 VBAはベースが古いままなので、サポートされないのでしょうねありがとうございました! （VBA超超超初心者） 2023/11/28(火) 18:21:48 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202311/20231128153636.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ