BLUEPIXYのプロフィール

@BLUEPIXY BLUEPIXY
ありがとう数5,339
質問数13
回答数9,497
ベストアンサー数
3003
ベストアンサー率
50%
お礼率
86%

私の回答は、結構勢いで書いてしまうことがたたあるので、必ずしも正しいとは限りません。よく書いているサンプルなどには、エラー処理についてはほとんど考慮していません、あしからず。 今入院している親父が退院したら要介護状態だと思われるのでそのうちフェードアウトすると思います。

  • 登録日2004/08/31
  • excel97のVBAについて

    始めまして、MV3307と申します。 さて下記内容を、VBAでコードを書くつもりですが、マクロ初心者で記載 方法が分からないので是非ご教授お願いいたします。     記 (1)EXCELの"Sheet1"の数式バーに式が表示してあります。 (2)VBAの"コマンドボタン"をクリックして、数式バーの式をTexBoxに取得する。 以上です、宜しくお願いします。    

  • ExcelVBAでフォルダーからファルイ名を書き出しリンクを貼り、表示名を変える

    下記のようなVBAをつくったのですがうまく行きません。 Option Explicit Dim ドライブ As String Dim フォルダ As String Dim 拡張子 As String Dim 記入シート As String Dim パス As String Dim ファイル名 As String Dim ディスプレイ As String  Dim 貼付行 As Integer Dim ハイパーリンク As String Dim strVal As Variant 'Sub フォルダ中のファイル名をシートに書く() ドライブ = "C" 'ドライブを指定する フォルダ = "M.Co,\My Documents" 拡張子 = "*." & "JPG" 記入シート = "ファイル一覧" End Sub Private Sub 指定フォルダ中の指定拡張子のファイル名をシートに書く() Sheets(記入シート).Activate Cells.Clear 'すべてクリア Range("A1").Select パス = ドライブ & ":\" & フォルダ & "\" 'パスを組む ファイル名 = Dir(パス & 拡張子) strVal = Dir(パス & 拡張子) (1)ディスプレイ = Left(strVal, "SEARCH(""."",strVal)-1") 貼付行 = 0    Do While ファイル名 <> ""    貼付行 = 貼付行 + 1 Cells(貼付行, 1).Value = ファイル名 ActiveSheet.Hyperlinks.Add Anchor:=Cells(貼付行, 1), Address:=ファイル名, TextToDisplay:=ディスプレイ ファイル名 = Dir() '次のファイル名を取り出す Loop End Sub (1)がおかしいです。よろしくお願い致します。

  • 6と.NET

    VBはやったことがありませんが今度、仕事で使うことになりました。 VBの勉強をしようと思っているのですがまだVB6なのかVB.NETなのか決まっていません。 なのでどっちの勉強をしようか決めかねています。 VB6とVB.NETではどういう点が違うのか教えてください。

  • IE でうまく動かない

    次の速度測定もどきは、NN7 ではうまく動いたのですが、IE7 では最終的に i=0 になってしまいます。どこに問題があるのでしょうか。 now = new Date().toString(); img = new Image(); img.src = "http://www.geocities.jp/ji1mub/image.png?" + escape(now); var i = 0; timer = setInterval ("i++", 10); window.onload = function() { clearInterval(timer); kb = 552; sec = i/100; kbps = Math.round(kb/sec); alert("接続速度は " + kbps + " Kbps です。") } よろしくお願いします。

  • firefoxでchildNodesの代用

    お世話になります。 IEですと以下の記述で機能しますが、firefoxではchileNodesが使えません。 何か他に代用する方法はありませんでしょうか? element.parentNode.previousSibling.childNodes[0].innerHTML; 実際にやりたいこととしては id=p2のclickが押下された場合にp1、p3要素のinnerHTMLを取得したい。 <table> <tr> <td id="p1"><span><a href="#" onClick="click(this);">hoge1</a>ほげほげ1</span></td> <td id="p2"><span><a href="#" onClick="click(this);">hoge2</a>ほげほげ2</span></td> <td id="p3"><span><a href="#" onClick="click(this);">hoge3</a>ほげほげ3</span></td> </tr> </table> ご教授宜しくお願い致します。