- ベストアンサー
VBAついて
codotjtpの回答
- codotjtp
- ベストアンサー率26% (40/149)
OR条件の相対参照のマクロに関する質問なのでしょうか?
関連するQ&A
- 至急お願いします!
至急お願いします! a,b,c,dを定数とする。またwはx,y,zから w=ax+by+cz+dによって定まるものとする。以下の命題を考える。 命題1: x≧0かつy≧0かつz≧0 ⇒ w≧0 命題2: 「x≧0かつz≧0」または「y≧0かつz≧0」 ⇒ w≧0 命題3: z≧0 ⇒ w≧0 以下の問いに答えよ。 (1) b=0かつc=0のとき、命題1が真であれば、a≧0かつd≧0であることを示せ。 (2) 命題1が真であれば、a,b,c,dはすべて0以上であることを示せ。 (3) 命題2が真であれば、命題3も真であることを示せ。 どなたかお願いします(>_<)
- ベストアンサー
- 数学・算数
- Excel VBA での計算について…
こんばんは、最近VBAを使い始めた初心者のものです。 画像処理をやってます。Bitmap形式の画像からRGB値を読み込んでそれぞれのワークシートに値を入れる所までは出来てます。 そのあと、RGB→XYZ→L*a*b*に変換した値を新しいワークシートの対応するセルにいれたいのですが、なにぶん初心者なのでどう書くのかわからず困ってます。 どなたか教えていただけないでしょうか? ちなみにRGB→XYZの変換式は X=0.607R+0.174G+0.201B Y=0.299R+0.587G+0.114B Z=0.066G+1.117B で、XYZ→L*a*b*の変換式は (X/0.983)>0.008856,(Y/1.000)>0.008856,(Z/1.183)>0.008856の時 L*=116(Y/1.000)^1/3 a*=500{(X/0.983)^1/3-(Y/1.000)^1/3} b*=200{(Y/1.000)^1/3-(Z/1.183)^1/3} (X/0.983),(Y/1.000),(Z/1.183)の値に0.008856以下のものがある場合は、 上式で対応する立法根の項をそれぞれ以下の式に置き換えて計算します。 (X/0.983)^1/3→7.787(X/0.983)+16/116 (Y/1.000)^1/3→7.787(Y/1.000)+16/116 (Z/1.183)^1/3→7.787(Z/1.183)+16/116
- ベストアンサー
- Visual Basic
- ノード元でfor-eachしたい
こんにちは。はじめまして。 <A> <B> <C>1</C> <D>あ<D> </B> <B> <C>2</C> <D>い<D> </B> <Z> <Y>999</Y> <X>わ</X> </Z> <Z> <Y>888</Y> <X>ん</X> </Z> <A> というXMLで Aでfor-eachしたいんですが… それでBとCとYとXの値を取得したいのです。 これってできますか? どうもXMLの作り方が変で困っています。 スタイルシートのみでどうにかできないかと思い質問してみました。よろしくお願いします。
- ベストアンサー
- XML
- 4次元空間の超平面で、パラメータを消去するには?
4次元のxyzw直交空間を考えます。 直線は、パラメータを用いて、 x=x[0]+a[1]s y=y[0]+b[1]s z=z[0]+c[1]s w=w[0]+d[1]s のように書けて、パラメータを消すと、 (x-x[0])/a[1]=(y-y[0])/b[1]=(z-z[0])/c[1]=(w-w[0])/d[1] のように書けます。 平面(?)は、パラメータを用いて、 x=x[0]+a[1]s+a[2]t y=y[0]+b[1]s+b[2]t z=z[0]+c[1]s+c[2]t w=w[0]+d[1]s+d[2]t のように書けますが、パラメータを消すとどうなるのでしょうか? 超平面は、パラメータを用いて、 x=x[0]+a[1]s+a[2]t+a[3]u y=y[0]+b[1]s+b[2]t+b[3]u z=z[0]+c[1]s+c[2]t+c[3]u w=w[0]+d[1]s+d[2]t+d[3]u のように書けますが、パラメータを消すとどうなるのでしょうか? おそらくAx+By+Cz+Dw+E=0のように書けるとは思いますが、それらの係数は具体的にはどのような形なのでしょうか? 3次元空間の平面の場合には、この最後の問いは、2つの3次元ベクトルの外積で表されると思うので、今回の設定を4次元にしてみました。
- ベストアンサー
- 数学・算数
- Excel 項目を統合、抽出して別シートをつくりたい
連続投稿失礼いたします。似たような行き詰まりですが、分割して投稿します。 同じく Excel2003 の表 で 日付 収支 支払 収入 会社 項目A 1月1日 500 -100 +600 A社 X 1月1日 -200 -200 0 A社 Y 1月1日 300 0 +300 B社 Z 1月2日 100 0 +100 A社 X 1月2日 100 -500 +600 C社 X ~ 順次 積み立て入力 といった表から 1.別途ワークシートに 集計表を作成するにはどうすればいいでしょうか。 「日付で統合」 1月1日 600 -300 900 A、B X,Y,Z 1月2日 200 -500 +700 A、C X 「データ」-「集計」で エクスプローラのフォルダツリーのように展開、折りたたみはできるのですが、 そちらではなくて、別シートに抽出したい。 2.条件を指定して抽出するにはどうすればいいでしょうか 「A社」抽出 1月1日 500 -100 +600 A社 X 1月1日 -200 -200 0 A社 Y 1月2日 100 0 +100 A社 X 項目からA社を抽出することはできるが、そこから別ワークシートに 行を移植、積み重ねていく方法がまったくわかりません。 こちらもやはりマクロなり、スクリプトを作成しないといけないでしょうか。 おそらく初歩的なスキルだと思うのですが、どうかご教授いただければ幸いです。重ねてよろしくお願いいたします。
- 締切済み
- オフィス系ソフト
- PHP+MySQLで入力した値から計算し任意のデータを抽出したいです
例えば以下のようなレコードがあるとします。 x,y ,z ------- A,14,99 B,23,11 C,45,12 D,56,78 ここで、 yの抽出する範囲=入力した値a±5 zの抽出する範囲=入力した値b±15 とし、2つの条件範囲を満たしたデータをブラウザで表示したいです。 入力値aが25、入力値bが15だとすると該当するのはBだけですので、B,23,11と表示されるような感じです。 プログラムソースをそのまま書いていただいても構いませんし、参考となるページでも構いません。 よろしくお願いします。
- 締切済み
- PHP
- 複素数平面
(1) z 1 ―+―が実数であるようなzの表す図形を図示。 2 z (2) さらにz≠z~をも満たす点A(z)に対しABCDが正方形であるときB(3i),C(w),D(u)としてwの絶対値のとりうる範囲を求める。~はバーのつもりです。 (1)ですがz=x+yiとおくと (z/2)+(1/z)={x(x^2+y^2)+2x+y(x^2+y^2-2)i}/2(x^2+y^2) 実数条件は虚部=0だから y(x^2+y^2-2)=0⇔y=0 or x^2+y^2=2 またx^2+y^2≠0⇔x≠±yi 点(1、±1),(-1、±1)を除いた原点中心、半径√2の円、x軸 でよいですか? (2)での「z≠z~をも満たす点A(z)」は(1)のx軸も除いた図かな? C(w)はBを中心としてAを+90° or -90°回転させた位置にあるから、 (z-3i)/(w-3i)=i or (z-3i)/(w-3i)=-i |z|=√2を使うのですよね。どうやって使うのですか? |w+3|=√7i,|w+3|=√7iになっちゃいました。どうして絶対値で虚数が入ってしまうのだろう。
- ベストアンサー
- 数学・算数
- VBAでピボットテーブルは作れるものでしょうか
2つ連続して質問してしまい申し訳ありません。 以下のようなExcelデータがあります。 このデータを用いて、ピボットテーブルを作りたいと考えています。 縦項目に変数A(氏名)、横項目に変数B(科目) クロス表に示される値を変数C(得点) としたいと考えています。 変数Dは過去の試験結果で今回は用いません。 手操作でのピボットテーブルは自分で作成できるのですが、今後のために 自動的に処理させる一環として、VBAのプログラムでピボットテーブルを 作成したいと考えています。 そのようなことは可能でしょうか? もし可能でしたらどのようなコードになるのでしょうか。 お手数ですが、教えていただけると幸いです。 よろしくお願いいたします。 A B C D Xさん 国 60 65 Xさん 社 90 85 Xさん 数 70 55 Xさん 理 80 75 Xさん 英 65 70 Yさん 国 85 85 Yさん 社 95 90 Yさん 数 95 100 Yさん 理 90 90 Yさん 英 85 90 Zさん 国 55 60 Zさん 社 40 35 Zさん 数 40 50 Zさん 理 60 65 Zさん 英 35 30
- ベストアンサー
- オフィス系ソフト
- VBA と JIS Full BASIC
下のJIS Full Basic スタイルとだいたい同じようなコードを VBA で書いたのですが Z = Sqr(x^2 + y^2) のところでエラーが出ます。どこがおかしいのでしょうか。 Function gcd(a, b) Do While b <> 0 r = a Mod b a = b b = r Loop gcd = a End Function Rem 既約なピタゴラス数を求める Sub Pythagoras() LAST = 200 LAST = 200 For x = 1 To LAST For y = x + 1 To LAST Z = Sqr(x^2 + y^2) 'ここでコンパイルエラーが出る If Int(Z) = Z Then If gcd(x, y) = 1 And gcd(x, z) = 1 And gcd(y, z) = 1 Then Debug.Print x & ", " & y & ", " & z End If End If Next y Next x End Sub ---------------------------- JIS Full Basic スタイルのコード REM ピタゴラス数 FUNCTION gcd(a,b) DO WHILE b <> 0 LET r = MOD(a,b) LET a = b LET b = r LOOP LET gcd = a END FUNCTION LET LAST = 200 FOR x = 1 TO LAST FOR y = x + 1 TO LAST LET z = SQR(x^2+y^2) IF INT(z) = z THEN IF gcd(x,y) = 1 AND gcd(x,z) = 1 AND gcd(y,z) = 1 THEN PRINT x,y,z END IF END IF NEXT y NEXT x END
- ベストアンサー
- Visual Basic
- 【エクセル】 VLOOKUPについて
エクセル関数の VLOOKUPは範囲選択した表の左端の列しか検索対象に出来ないのでしょうか? 例えばSheet1に↓のような表があって A B C D E 1 機種名 購入日 シリアルNo メーカー名 ・・・・ 2 X 07/01/01 123X LLL 3 Y 07/02/03 456Y MMM 4 Z 07/05/21 789Z NNN 5 ・・・ 6 ・・・ Sheet2に↓のような表を作って、 A B 1 シリアルNo 機種名 2 456 3 789 4 123 5 432 B列にVLOOKUPでsheet1の表から、シリアルNoに対応する機種名を表示 させることは出来ますか? 特にVLOOKUPにこだわってるわけではないので、他の方法でも出来る のであれば良い方法を教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト