Const READYSTATE_COMPLETE = 4
Dim obj
Dim Width
Dim Height
Dim X
Dim Y
Width = 320
Height = 240
X = 200
Y = 300
Set obj = CreateObject("InternetExplorer.Application")
'対象サイトを表示
obj.Navigate "表示したいサイトのurl"
'表示終了まで待つ
Do While obj.Busy Or (obj.ReadyState <> READYSTATE_COMPLETE)
DoEvents
Loop
'その後サイズを変更
obj.Width = Width
obj.Height = Height
obj.Left = X
obj.Top = Y
obj.Visible = True

[ 補足 ]
mikan_x64 へ
>VBSにはDoEventsがサポートされていないらしいので…
失礼しました。

ＶＢで透過GIFを使って表示したいんですが全く解りません……

環境
ＶＢ2005

ソースも詳しく書いてほしいですm(._.)m

netで調べたけど解らなかったのでお願いしますm(._.)m

折角ついた回答を無駄に消すなんて・・・

アナタではなく他の回答者の労力を無駄に浪費する行為です。
（ 前回の回答があれば、これから回答してくれる人も答え易いのですよ！ ）

＞わかりやすく教えていただけませんでしょうか？

まずは、アナタが質問を整理して分かりやすくしてください。

箇条書きで整理して見たら？？

この質問内容で、前回ついたであろう回答を想像してみましたが・・・

理解できない理由がわかりません。

質問文とは違う事を望んでいませんか？

条件を明確にして見てください。

それをしないと、今回つく回答でも満足できないと思います。

それとも、もっと簡単（別）なやり方はありますか？

Private Sub CommandButton9_Click()
・
・
・（中略）
・
・

Dim lngNum(2) As Long
Dim lngTemp As Long

lngNum(2) = 0
lngNum(1) = ●●●●●

Range("G16") = lngNum(1)
Range("E17") = lngNum(2)

lngTemp = lngNum(1)
lngNum(1) = lngNum(2)
lngNum(2) = lngTemp

Range("E17") = lngNum(1)
Range("G16") = lngNum(2)

End Sub

[一覧]

[一覧]

VBAのヘルプで 「Visual Basic で使用できるワークシート関数一覧」とかを調べてみましょう。

で対策だけど、実はね、Mid関数 って、 VBA の組み込み関数として存在してるんだよ。だから、「Application.WorksheetFunction」 を削除して、

….. Range("B2") = Mid(Range("A1"),6,3)

って書けばいいよ。

joseph_joey_tribbiani

前者の場合の回答としては
・GUI設計をGUIでできる(コンポーネントをドラッグ＆ドロップで配置できるなど)
・豊富なリファクタリング機能(ソースを訂正する機能)
・様々なプラグインが最初から入っている
・豊富なライブラリ
・エラー内容を見ながらソースを書ける
などなど

後者の回答は
・プラグインに新しくOC4Jが入っています(オートデプロイ機能)
http://otndnld.oracle.co.jp/document/products/as10g/1013/doc_cd/web...
・Eclipseとのプロジェクト互換
・言語全体のサポートの向上
・デバッカの機能の向上
などなど

補足：
上記リファレンスサイトにMsgBoxも載ってますので比べるとわかりますが、アイコン・ボタン・モーダルはフラグの組み合わせで、ひとつの引数に指定します。
InputBoxにはそれに相当する引数がないので、やはりモーダルもできないと思います。

２） Ｓｈｅｅｔ１（？）のレンジＢ：Ｂを１）の条件でＦｉｎｄする。

３） Ｆｉｎｄできなかったら（←結果レンジがＮｏｔｈｉｎｇなら）Ｓｈｅｅｔ２をＦｉｎｄする。

４） Ｓｈｅｅｔ３については３）と同様

※ ２）～４）でＦｉｎｄ出来た場合はループ中断してＡｃｔｉｖａｔｅする。

こうすれば良いです。

■補足を受けまして■

既にＶＢＡでの組み方を書いていますよ＾＾

[一覧]

[一覧]

[一覧]

Private Sub CommandButton9_Click()
Dim lngNum(2) As Long

On Error Resume Next
lngNum(2) = 0
lngNum(1) = Application. _
InputBox("数値は？", "入力", Type:=1)

Range("G16") = lngNum(1)
Range("E17") = lngNum(2)

Range("E17") = lngNum(1)
Range("G16") = lngNum(2)

End Sub

int main()
{
int a[N]={0,1,2,3,4};
int b;
int c;

scanf("%d",&c);

b=0;
if(a[N]>=c){
printf("こんにちは\n");
b+=c;
}
return 0;
}
コンパイラしてみたところ、１を入力した場合は一度「こんにちは」がでるのですが、
他の数字を入れるとおかしいです。

if(direction == 2)
{
for(i=0; i<N; i++)
{
for(j=0; j<N; j++)
{
data[j] = in_data[i][j];
}
for(j=0; j<N; j++)
{
out_data[j][i] = data[N-j-1];
}
}
}else if(direction == 1){
右回転
}else{
directionが1,2以外
}

強引ですがこれでできます．
一応全部のプログラム作りましたが，左回転のみ載せます．
右回転と関数化はまだ1日あると思うんでがんばってみてください．

16進法は、0～9に加えて、10～15を表すためにA～Fの文字を割り当てる。
つまり、一桁で、0～15まで表せるわけだ。
だから、0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,10,11・・・,FF,100,101・・・となる。
ここで言う10は、10進法で言えば16のこと(つまり、16進法での10は、"じゅう"ではなく、単に"いちぜろ"と読む)

16→10進の計算法としては、10進法は、桁が一つ上がるごとに10倍になる。
16進法は、桁が一つ上がるごとに16倍になる。
つまり、それぞれの桁を分解して、一つ桁が上がるごとに、16倍、256倍(16の16倍)、4096倍(256の16倍)・・・とすればいい。
16進法の10→(1×16)＋0＝10進法では16
16進法の22→(2×16)＋2＝10進法では34
16進法の1A→(1×16)＋10＝10進法では26
16進法の128→(1×256)＋(2×16)＋8＝10進法では296
という具合。

10→16進の場合は、単に上の桁から順番に、16進法での桁上がりの数(・・・65536,4096,256,16)で順番に割っていけばよい。
たとえば、10進法での5257を16進法で表すなら、
5257を4096で割る・・・１と余りが1161
1161を256で割る・・・4と余りが137
137を16で割る・・・8と余りが9(最後の余りは一番下の位になる)
つまり、16進法では、1489と言うことになる。

チマチマとした計算が面倒くさいだけで、紙に書いてやると、別に難しいことはない。

そこで少し質問内容を変えようと思います。（どうも、すみません）

セルA1へ
y = -0.03×5 + 1.12×4 - 12.66×3 + 63.81 x2 - 138.60 x + 108.21と書くまでは同じです。
（-0.03 , 1.12 , -12.66 , 63.81 , -138.6 , 108.21）という係数のみを別のセル（B1、B2、B3、B4、B5、B6）へそれぞれ出力させる方法なんかがあれば教えていただけないでしょうか？

また自分がプログラムを書く場合Functionって書き方を全く使用した事がなく、いつもsub 名前()～End sub や Private Sub CommandButton1_Click()～end subって書き方しかやっていない大変無知な人間です。 できればFunctionの利用方法をわかりやすく教えていただけませんでしょうか？よろしくお願いします。

[一覧]

[一覧]

[一覧]

[一覧]

[一覧]

//科目の作成
public Kamoku(String namae, int tensuu){
this.namae = namae;
this.tensuu = tensuu;
}

//科目の文字列表現
public String toSring() {
return namae + "は" + tensuu + "点";
}
}

//２つ目のクラス
public class Heikin7{
public static void main(String[] args){
Kamoku[] kamoku = {
new Kamoku("国語", 63),
new Kamoku("数学", 90),
new Kamoku("英語", 75),
new Kamoku("理科", 45),
new Kamoku("社会", 81),
};
int sum = 0;
for(int i = 0; i < kamoku.length; i++){
System.out.println(kamoku[i]);
sum += kamoku[i].tensuu;
}
double heikin = (double)sum / kamoku.length;
System.out.println("平均点は" + heikin + "点");
}
}

この２つのクラスを２つのファイルに分けて、コマンドプロンプトで実行すると、実行結果が文字化けします。
また、Kamokuクラスの「public」を取って一つのファイルに合わせて実行しても、同じように文字化けします。
このプログラムは、「Java言語プログラミングレッスン・上」（結城 浩・著）の第９章のList9-8とList9-9です。
文字化けするのは私の動作環境だけでしょうか。文字化けしなくする方法はあるでしょうか。よろしくお願い致します。