常にテンパってます。
タイトル通りなのですが、JavaScriptからVBScriptの関数を呼ぶことができるみたいだ。
JavaScriptからVBScriptの命令を実行するを参考にして、ソースを組んでみる。
| <html> <head> <title></title> <script language="JavaScript"> function vb(){ window.execScript("MsgBox('Hello VBscript!')",'VBScript'); } </script> </head> <body> <input type="button" value="Run" onclick="vb();"> </body> </html> |
行全体を選択したくなる時があります。
で、その方法を調べました。
3.行の指定を読むと、RangeオブジェクトのEntireRowプロパティを使えばオッケーとのことなのですが、ちょっと気になるのは、Rangeオブジェクトを使うに当たって、引数を2つセットしなければいけないということ。
行全体を指定することは自明なのだから、別にどこかのセル一つだけでもいいと思うのだが、いかがだろうか？
Tweet
関数の戻り値に配列を返したくなったので、ぐぐってみたところ、
「Functionの戻り値を配列にしたいのですが」があって、ちょうど同じ悩みの相談がありました。
回答を読んでみると、
| function hoge() As Integer() End Function |
配列の大きさを動的に変更したい場合があります。
Excel(エクセル) VBA入門：配列の利用を読むと、こんな感じに動的に変更することができるようになります。
Dim hoge() As Integer |
基本的にプログラムのほとんどは、割り算を「/」で表現し、vbaも当然この記法が認められているわけだが、参考４－７：演算子の種類と優先順位を読むと、どうやら、「￥」を使って、割り算を行なうとあまりをカットしてくれるようだ。
整数解が欲しい場合には、便利だと思った。
Tweet
ワークシートの名前に数字を入れたかったので、数値型から文字列型に変更する方法を調べました。
教えて!gooによると、CStr関数を使えば変更できるようです。
試してみたところ確かに文字列型に変更することができました。
Tweet
ワークシートの名前を変更するよるとNameプロパティーを使えば変更することができるようです。
サンプルコードとして、
| Worksheets("hoge").Name = foo |
なんと、なんと、mo.ro.雑記さんのExcel:VBA:Classのコンストラクタとデストラクタを読んでびっくりしたのですが、コンストラクタ発生時に引数を渡すことができないようです。
こりゃーびっくりだわー。
Tweet
配列を使う局面があってその際に長さ(大きさ)を必要としたので、その方法について調査。
VB 配列操作・データ分解編を読むと、UBound関数を使うと配列の最大値連番数を取得するということなので、連番が0からスタートであることを考えると
| Dim hoge(5) as Integer Dim foo foo = UBound(hoge) + 1 |
去年、VBAのお仕事を個人で頂いたので、その時に学んだことについて書いていきたいと思います。
Excel VBA(エクセル マクロ) 関数集 変数定義の各型宣言について読んでいてとても興味深かったのは、エクセルのワークブックやワークシートを型として宣言できるところ。
| Set foo = Workbooks("ワークブック名(日本語でもおk、拡張子付き)") Set hoge = Worksheets("ワークシート名(日本語でもおk)") |
長年悩んでいた悩みがついに解決
ASPでよく使われるByValとByRefの違いがどうしてもわかりませんでした。
そこで、下記のプログラムを作って検証してみることに
Sub Test1(ByVal arg1) |
| Test Test Test2により値が変わりました |
ASP | PL/SQL |
vbscriptから小画面を起動し、その小画面にpdfファイルを表示しようとするとエラーが発生するみたいです。
IE6だと発生しなくて、なぜかIE7で発生しました。
サンプルソースをのせます。
| <script type="text/vbscript"> swin = window.open("./AppProgrammingGuide.pdf","_blank") </script> |
| <script type="text/javascript"> window.open("./AppProgrammingGuide.pdf","_blank"); </script> |
ものすごくやってしまいました。
aspのファンクション内部で、exit Functionを書かない限り処理が続行するんですね。
関数名に値を書いた瞬間に処理が終了するかと思っていたのですが。。。
どーやら違うみたい。
jsやphp、cfはreturnやcfreturnを使って明示的に処理を終了させるという認識があるのですが、aspでも同じような認識を持たないとダメですね。
というか、一般的な言語は、明示的に終了させると認識しないと。。。トホホ。
突然、先輩社員から質問されてびっくりしたのですが、aspでサーバーサイドで処理をとめたいと時に使うのは、Response.end()でとめます。
Functionの構文は、下のようになっていようです。
Function hoge(args) |
単純にIf文といえども、言語によって、書き方が、多少違うので、一応書こうかなと。
| If 条件1 Then ・・・処理1・・・ ElseIf 条件2 Then ・・・処理2・・・ Else ・・・処理3・・・ End If |
前回に続いて、「""」の判定方法について。
一番、簡単なのは、Ifで判定するのがいいと思いました。
<% |
変数がnullかどうかを確認するIsNull()ですが、これもちょっと注意。
下のソースでは、falseを返します。
| <% Dim aTest %> <%= IsNull(aTest) %> |
| <% Dim aTest aTest = "" %> <%= IsNull(aTest) %> |
| <% Dim aTest aTest = Null %> <%= IsNull(aTest) %> |
VBScript の変数の扱いを参考にすると、Dimで変数宣言を行っただけで、まだ値をセットしていない場合、変数の値は「Empty」という特殊な値になるようです。
で、Emptyかどうか確認するためには、IsEmpty(変数名)でtrueを返せば、まだ値がセットされていなくて、falseの場合は、セットされたことになります。
以上から
| <% Dim aTest %> <%= IsEmpty(aTest) %> |
| <% Dim aTest aTest = "" %> <%= IsEmpty(aTest) %> |
| aTest = Empty |
