読者です 読者をやめる 読者になる 読者になる

Boot CampのWindowsパーティションを削除する方法

OS
  • 「起動ディスク(Macintosh HDなど)」→「アプリケーション」→「ユーティリティ」と移動し「Boot Campアシスタント」を起動します。
  • 次に、「Windowsパーティションを作成または取り除く」を選択して、「続ける」を押します。
  • Windowsパーティションがすでに存在していた場合、ディスクを単一ボリュームに復元する機能が使用できます。
  • 「復元」を押すとWindowsパーティションの中身は完全に削除され、ハードディスクが単一のボリュームに復元されます。

ネタ元

VB.NETでSelenium 高速化のためPhantomJSを使う

tool

GUIのないブラウザ。なので高速。

以下よりphantomjs.exeを拾ってきて実行ファイルと同じフォルダに置く
http://phantomjs.org/download.html


コードはdriverをPhantomJSに変えるだけ。簡単

Imports OpenQA.Selenium
Imports OpenQA.Selenium.PhantomJS

...

'driver = New IE.InternetExplorerDriver()
driver = New PhantomJS.PhantomJSDriver()

VB.NETでSelenium iframe内のDOMにアクセス

tool

Seleniumで、driverインスタンスを通して、特定のDOM要素を取り出して、ボタンのクリックとかをするけど、iframe内のDOMはそのままだとアクセスできない。

先にiframeのDOMを探して、driverのswitch_to_frameを呼び出せば、そのiframeのDOMをいじれる。

    'iframeに切り替え
    Dim iframe As IWebElement
    iframe = driver.FindElement(By.Name("hoge"))
    driver.SwitchTo().Frame(iframe)

ネタ元

Google Search Console(旧ウェブマスターツール)にサイトマップを登録する FC2ブログ、ライブドアブログ、はてなブログ編

web

トップURL直下にある以下をファイル名を指定します。

FC2ブログ

  • sitemaps.xml

ライブドアブログ

  • sitemap.xml

はてなブログ

  • sitemap.xml

ネタ元

ExcelVBAにてメッセージボックスを最前面に表示させる

ExcelVBA

普通にMsgBoxだと他のウィンドウに隠れちゃったりして不便な時ある。

#If Win64 Then
Public Declare PtrSafe Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) As Long
#Else
Public Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) As Long
#End If

'OKボタンを保有するフラグ
Public Const MB_OK = &H0
'最前面フラグ
Public Const MB_TOPMOST = &H40000

Public Sub FMsgBox(aMess, Optional aCaption = "")
    MessageBox 0, aMess, aCaption, MB_OK Or MB_TOPMOST
End Sub

ネタ元

Excel ドロップダウン リストがバージョンによって表示されない時の対処法

Excel

別シートのセルを参照はExcel2010からの機能で、2007とかでは使えないのでした。

Excel 2007、2013の両方で別シートのデータをドロップダウン リストに反映させるにはどうすればいいか?
この場合は、Excel 2007以前から使われてきた「選択範囲に名前を定義する」機能を使います。


ネタ元

ExcelVBAで文字列を16進数に変換

excelVBA

文字列→16進法

Private Function StrToHex(ByVal strData As String) As String '文字列→16進法
    Dim strChar As String
    ReDim strHex(1 To Len(strData)) As String
    ReDim lngNu(1 To Len(strData))
    For i = 1 To Len(strData)
        strChar = Mid$(strData, i, 1)
        strHex(i) = HEx$(Asc(strChar))
        lngNu(i) = Len(strHex(i)) '16進法の値の桁数を格納
    Next
    StrToHex = Join$(strHex, vbNullString)
End Function

Dim HexData
HexData = StrToHex(ItemName)
        
MsgBox HexData

ネタ元