Sub URLをリンクに変換() Dim Rng As Range For Each Rng In ActiveSheet.UsedRange If Left(Rng.Value, 7) = "http://" Then _ ActiveSheet.Hyperlinks.Add Anchor:=Rng, Address:=Rng.Value Next End Sub
62 名前：以下、名無しにかわりましてVIPがお送りします。[sage] 投稿日：2007/11/26(月) 21:28:32.46 ID:sHVCrD300 >>55 Rubyは？ いいとこ取りの言語らしいから今後期待できるかも。 すでに結構広がってるけどｗｗｗｗ Mac OS X v10.2以降では標準で入ってるらしい －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
var oXMLHttpRequest = new ActiveXObject("Microsoft.XMLHTTP"); with(oXMLHttpRequest) { Open("GET", strUrl, false); Send(); } var str=oXMLHttpRequest.responseText;
var oXMLHttpRequest = new ActiveXObject("Microsoft.XMLHTTP"); with(oXMLHttpRequest) { Open("GET", strUrl, false, -1); Send(); } var str=oXMLHttpRequest.responseText;
'http://q.hatena.ne.jp/1166525285 Function riname(before, after) Set Fs = WScript.CreateObject("Scripting.FileSystemObject") Set f = Fs.getFile(before) f.name = Fs.getFileName(after) End Function
function fAppendChild() { var oOl = document.getElementById('oOl'); var oLi = document.createElement('li'); oLi.innerHTML = 'LIオブジェクトを追加しました。' ; oOl.appendChild(oLi); changeDisabled(); }
2005-10-11 - とあるカフェの片隅で -In the corner of a certain cafe http://d.hatena.ne.jp/toypoo/20051011 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Pythonをインストールしただけでは、Pathが通っていなかったので、 Autoexec.batに以下の一文を追加した。