So-net無料ブログ作成

SONY VAIO PCV-W102 WindowsXP,Ubuntu12.04 デュアルブートでUbuntuを削除 [SONY VAIO PCV-W102]

SONY VAIO PCV-W102 WindowsXP,Ubuntu12.04 デュアルブートでUbuntuを削除

 Ubuntu12.04をインストールした時にパーティションサイズを30Gに指定しまい、パーティションサイズを小さくしようと検索して調べたが、敷居が高いので、失敗を覚悟して削除する事にした。

WindowsXPを起動し、コンピューターの管理からUbuntuのパーティションを削除、予想どうり起動しない。

WindowsXPのインストールCD(リカバリーCDではない)をセットし回復コンソールを実行する。

C:\WINDOWS>fixmbr       fixmbrと入力してEnterキーを押し、警告文が表示されたら、Yキーを押す。

PCを再起動する、運良くXPが起動した。

注意! 旨くXPが起動するかは保障できませんので自己責任ってことで・・・・

追記
EaseUS Partition Master9.1.1 HomeEdition では、Ubuntuのパーティションサイズは変更出来なかった。

追記
リカバリーCDしか無い時は、 ttp://pc-blend.com/kidoudisuku で起動用のISOファイルをDLしCDRに焼く。
FDDの場合 ttp://support.microsoft.com/kb/880422/ja からDLしFD6枚を作成し起動する。

 

 

 

 


富士通 FMV-830NU/L USBメモリー起動のBIOS設定 [富士通 FMV-830NU/L]

富士通 FMV-830NU/L USBメモリー起動のBIOS設定

電源ボタンを押して、F2 キーを押してBIOS画面を表示する。

起動タブに移動し、Ctrl + Enter を押して全てのデバイスを表示する

USBメモリーを選択しスペースキーを押して上位にする。

ESCボタンを押して、保存し終了する。

 FMV830NUL_BIOS_02.jpg

FMV830NUL_BIOS_01.jpg

FMV830NUL_BIOS_04.jpg

FMV830NUL_BIOS_03.jpg

 


Windows2000 シャットダウン途中でフリーズした原因  [Windows2000]

Windows2000 シャットダウン途中でフリーズした原因 

1年ほど使用していなかった、SOTECのデスクトップPC(アウロン1G、128MB*3,HDD20G+40G,元はWindowsMe) 7100RW?
をシャットダウンしたら電源が切れずにフリーズした。

このPCはBIOSをアップデートしてWindows2000でも自動で電源が切れるようになっている。

そこで、いろいろとチェックしていたら、メモリーが128MBしか認識されていない、、128MB3枚差しなのでこの当がおかしいと検討をつけ
メモリーを交換してみた。

128MB*3枚きちんと認識されている、、さっそくシャットダウン、、、、無事電源が切れました。

メモリーが原因のようでした。

他にも富士通のノートPCで終了の音声ファイルを変えて、そのファイルを削除したらシャットダウンできずにSWの長押しで電源をOFFにした事もあった事を思い出した。

PCのトラブルは、、原因探しが面倒なのでキライ!

 

 

 


EXCEL2000 VBA シート番号とシート名一覧をメッセージボックスに表示する 実験 [Excel2000 VBA独習]

EXCEL2000 VBA  シート番号とシート名一覧をメッセージボックスに表示する 実験

ExcelVBA_Book_sheetName_number.png

ExcelVBA_Book_sheetName_number_2.png

シート番号はシートタブの順番、sheet1 が worksheets(1) とは限らない。

 

Sub シート番号とシート名()
Dim booksheet As String
For i = 1 To Worksheets.Count
    booksheet = booksheet & "シート番号 " & i & vbTab & Worksheets(i).Name & vbCrLf
Next i
MsgBox booksheet
 
End Sub
 
 

 


タグ:Excel2000 VBA

SONY VAIO PCV-W102 WindowsXP,Ubuntu12.04 デュアルブートする 実験 [SONY VAIO PCV-W102]

SONY VAIO PCV-W102 WindowsXP,Ubuntu12.04 デュアルブートする 実験

 ttp://www.ubuntulinux.jp/japanese  ここで、ubuntu-ja-12.04.1-desktop-i386.iso をDL

ISOファイルをUSBメモリーに入れる

ttp://unetbootin.sourceforge.net/   かわWindows用をDL、UNetbootin を起動

UNetbootin_Ubuntu12.04.png

OKを押してUSBメモリーにISOイメージをインストール

前記事で作成したCDRとUSBメモリーをVAIOを装着して起動し、Ubuntu12.04が起動したらインストールアイコンをクリックしてインストールする。
インストールが完了したら再起動しブートローダー画面がでるのでそのままにしておくとUbuntuが起動する。

インストール画面は取ってないの省略。

ブートローダーを書き換えてWindowsXPの起動順位を一番目にする。

 ttp://www-indblue.blogspot.jp/2011/06/ubuntuwindowsos.html のサイトに詳しい説明が書いてあるので、手順どうりに実行する。

端末の起動は、Ctrl + Alt + T

取り合えず、Ubuntuを試してみる事にした。

以上、大変疲れました、、糸冬

Screenshot_from_2012-11-24 20:28:04.png

Screenshot_from_2012-11-24 20:33:12.png

 GRUB_DEFAULT=0 を GRUB_DEFAULT=5 に変更

Ubuntuから投稿

画像ファイルをUPすると時に参照ボタンがないのでフォーム窓?をクリックする。

 

 

 

 


SONY VAIO PCV-W102  USBメモリーで起動する 実験 [SONY VAIO PCV-W102]

SONY VAIO PCV-W102  USBメモリーで起動する 実験

 SONY VAIO PCV-W102はBIOSの設定でUSBメモリー起動は出来ないので、フリーソフトを利用して起動する実験をした。

ttp://www.plop.at/en/bootmanager/intro.html

で、plpbt-5.0.14.zip をDLし解凍する。

解凍して出来た、plpbt.iso をCDRに焼く。

VAIOにCDRをセットしCDからブートすると、選択画面がでるのでUSBを選択する。

試しに、UBUNTU10.04をUSBメモリーに入れ、起動する事が出来た。

今日はここまで・・・・つづく

CD_USB_01.png

CD_USB_03.png

CD_USB_02.png

CD_USB_04.png

 


EXCEL2000 セーフモードで起動する [Excel2000独習]

EXCEL2000 セーフモードで起動する

「ファイル名を指定して実行」 に

excel /s と入力しOKボタンを押す。

Excelのバージョンによっては、Ctrlキーを押しながら起動する方法もあるらしい、試していないので情報だけ。

セーフモード
http://support.microsoft.com/kb/881075/ja

Excel_safemode.png

 

 


EXCEL2000 VBA 他のアプリを起動する 実験 [Excel2000 VBA独習]

EXCEL2000 VBA  他のアプリを起動する 実験

Shell("アプリケーションプログラムのフルパス")

 
Sub PhotoScape起動()
'PhotoScape を起動する
 
Shell ("C:\Program Files\PhotoScape\PhotoScape.exe")
 
End Sub

 


EXCEL2000 VBA フォームにカレンダーを表示し選択日付の有るセルに移動する 実験 その2 [Excel2000 VBA独習]

EXCEL2000 VBA  フォームにカレンダーを表示し選択日付の有るセルに移動する 実験 その2
http://telstar.blog.so-net.ne.jp/2012-11-11

他のPCで(XP,Excel2000)でカレンダーを追加できなかったので追加する方法

mscomct2.ocx をwindows→system32 にコピーする
VBEのツール→参照設定→参照をクリック、system32内のmscomct2.ocxを選択し追加する。

なぜかmyPCには mscomct2.ocxがあった。たぶんVB2012にをインストールしたから?または互換パックをインストールしたから?

検証するのが面倒なので取り合えず追加方法をメモ

糸冬

ExcelVBE_sansyo_01.png

ExcelVBE_sansyo_02.png

ExcelVBE_sansyo_03.png

Visual Basic 6.0 Service Pack 6

http://www.microsoft.com/ja-jp/download/details.aspx?id=5721

ExcelVBE_sansyo_04.png

 


 

 


タグ:Excel2000 VBA

Firefox タブ表示位置の変更 [Firefox]

Firefox タブ表示位置の変更

タブの位置を変えるには、about:config と入力し、 検索にtabと入力。

browser.tabs.onTop を選択し右クリック、切り替えをクリック

Firefox_Tab_UPDOWN_02.png

 


WindowsXP フォントを変える メモ [WindowsXP]

WindowsXP フォントを変える メモ

メイリオとかメイリオ改を使用してシステムフォントをレジストリで変える参考になるサイト

ttp://doppeln.seesaa.net/article/185572367.html

Excel2000のフォント

Excel_Font_01.png

MS UI Gothic を MeiryoKeUIgothic に変更
MS Gothic を MeiryoKeUIgothic に変更

Excel_Font_02.png

Excel_Font_03.png

Excel_Font_04.png

http://www.microsoft.com/ja-jp/download/details.aspx?id=10550

ttp://web1.nazca.co.jp/hp/nzkchicagob/m2x0897/mrkta5fz.html

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\FontSubstitutes]
"Arial CE,238"="Arial,238"
"Arial CYR,204"="Arial,204"
"Arial Greek,161"="Arial,161"
"Arial TUR,162"="Arial,162"
"Courier New CE,238"="Courier New,238"
"Courier New CYR,204"="Courier New,204"
"Courier New Greek,161"="Courier New,161"
"Courier New TUR,162"="Courier New,162"
"Helv"="MS Sans Serif"
"Helvetica"="Arial"
"MS Shell Dlg 2"="Tahoma"
"Times"="Times New Roman"
"Times New Roman CE,238"="Times New Roman,238"
"Times New Roman CYR,204"="Times New Roman,204"
"Times New Roman Greek,161"="Times New Roman,161"
"Times New Roman TUR,162"="Times New Roman,162"
"Tms Rmn"="MS Serif"
"@MS Shell Dlg"="@MS UI Gothic"
"Arial Baltic,186"="Arial,186"
"Courier New Baltic,186"="Courier New,186"
"Times New Roman Baltic,186"="Times New Roman,186"
"標準明朝"="MS 明朝"
"@標準明朝"="@MS 明朝"
"標準ゴシック"="MS ゴシック"
"@標準ゴシック"="@MS ゴシック"
"ゴシック"="MS ゴシック"
"ゴシック"="MS ゴシック"
"クーリエ"="Courier"
"タイムズロマン"="Times New Roman"
"ヘルベチカ"="Arial"
"MS UI Gothic,128"="MeiryoKe_UIGothic,128"
"MS ゴシック,128"="メイリオ,128"
"MS Pゴシック,128"="MeiryoKe_PGothic,128"
"MS Gothic,128"="MeiryoKe_Gothic,128"
"MS PGothic,128"="MeiryoKe_PGothic,128"
"MS Shell Dlg"="MS UI Gothic"
",l,r fSfVfbfN,128"="MeiryoKe_Gothic,128"
",l,r ,ofSfVfbfN,128"="MeiryoKe_PGothic,128"
"Microsoft Sans Serif,0"="MeiryoKe_UIGothic,128"

 

 

 

 

 システムフォントを変えて以前は一部文字化けしていたのが解消した。ぽぃ

 


EXCEL2000 VBA 1年前の今日の日付と曜日をメッセージボックスに表示 [Excel2000 VBA独習]

EXCEL2000 VBA  1年前の今日の日付と曜日をメッセージボックスに表示

ExcelVBA_1nenmae.png

 

Sub 一年前の今日()
'1年前の今日の日付 DateAdd("yyyy", -1, Date)
'曜日表示 Format(DateAdd("yyyy", -1, Date), "aaa")
 
MsgBox "1年前の今日の日付は " & vbCrLf & DateAdd("yyyy", -1, Date) _
& "(" & Format(DateAdd("yyyy", -1, Date), "aaa") & "曜日" & ")"
 
End Sub

 


タグ:Excel2000 VBA

EXCEL2000 VBA フォームにカレンダーを表示し選択日付の有るセルに移動する 実験 [Excel2000 VBA独習]

EXCEL2000 VBA  フォームにカレンダーを表示し選択日付の有るセルに移動する 実験

 ツールボックスにカレンダーコントロールを追加

ExcelVBA_Form_control_02.png

WindowsXPのシステムフォントをいじっていたら、文字化けするようになったょ  レジストリのバックアップとってない


ExcelVBA_Form_control_01.png

 

標準モジュール
Option Explicit

'vbModeless でフォームを表示したまま作業ができる
Sub フォーム起動()
UserForm1.Show vbModeless
End Sub

 

フォームをダブルクリックで
Option Explicit

 
 
Private Sub CommandButton1_Click()
Unload Me
End Sub

 
Private Sub Image1_Click()
Unload Me
End Sub

 
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Dim clickD
    On Error GoTo owari
    'クリックされた日付を取得
        clickD = MonthView1.Value
    '取得した日付で検索見つかったら選択
        Worksheets("sheet1").Range("A:A").Find(what:=clickD).Select
        Exit Sub
owari:
    '見つからなかったメッセージ
        MsgBox "該当する日付が見つかりません。"
 
End Sub

 


EXCEL2000 VBA シート選択されたらツールバーを表示する 実験 [Excel2000 VBA独習]

EXCEL2000 VBA  シート選択されたらツールバーを表示する 実験

 

 

Option Explicit

'シートがアクティブになったら、図形描画ツールバーを表示
Private Sub Worksheet_Activate()
    Application.CommandBars("Drawing").Visible = True
End Sub

'シートがアクティブでなくなったら、図形描画ツールバーを非表示
Private Sub Worksheet_Deactivate()
    Application.CommandBars("Drawing").Visible = False
End Sub
 

 


タグ:Excel2000 VBA

EXCEL2000 VBA シートのシェイプを中央揃いにする 実験 [Excel2000 VBA独習]

EXCEL2000 VBA  シートのシェイプを中央揃いにする 実験

 

Excel_shape_center_01.png

Excel_shape_center_02.png
マクロを図形描画ツールバーに登録
方法は、マクロボタンを図形描画ツールバーにドラッグ&ドロップ

Excel_shape_center_03.png

 

 

 
Sub シートのシェイプを中央揃い2()
'
' フローチャートを作成に便利?
'Shift+右クリックで選択したシェイプを中央揃い
On Error GoTo owari
 
    Selection.ShapeRange.Align msoAlignCentersFalse
 
owari:
End Sub
 
 
Sub シートのシェイプを中央揃い()
'
' フローチャートを作成に便利?
'
' シートのシェイプを全て選択
    ActiveSheet.Shapes.SelectAll
'中央揃いに
    Selection.ShapeRange.Align msoAlignCentersFalse
End Sub

 


タグ:Excel2000 VBA

EXCEL2000 VBA 複数の画像ファイルをシートに挿入する 実験 [Excel2000 VBA独習]

EXCEL2000 VBA  複数の画像ファイルをシートに挿入する 実験

 

 

Sub 複数画像挿入()
'ダイアログを開き複数のファイルを選択して画像を挿入する
'画像はセル幅に合わせる
 
   Dim myPic                '画像ファイル
   Dim myRange As Range '画像を配置する範囲
   Dim rX As Double
   Dim rY As Double
   Dim i As Long
   Dim SrowCont As Long
 
    On Error GoTo owari     'キャンセルが押されたら
 
'画像ファイルを複数選択 True指定
    myPic = Application.GetOpenFilename("画像ファイル,*.jpg;*.jpeg;*.gif;*.tif;*.png", , , , True)
'選択範囲を調べる
    Set myRange = Selection 'このセル範囲に収まるように画像を縮小する
    SrowCont = Selection.Rows.Count  '選択範囲行数
 
'画面の描画停止
    'Application.ScreenUpdating = False
 
'選択した画像ファイル数だけループ
 
    For i = LBound(myPic) To UBound(myPic)
    '画像サイズ
        With ActiveSheet.Pictures.Insert(myPic(i)).ShapeRange
            rX = myRange.Width / .Width      'セルの幅と読み込んだ画像の比率 横比率
            rY = myRange.Height / .Height       'セルの幅と読み込んだ画像の比率 縦比率
                 If rX > rY Then
                .Height = .Height * rY
                Else
                 .Width = .Width * rX
                End If
 
            .Left = .Left + (myRange.Width - .Width) / 2 '写真を横方向の中央に配置
            .Top = .Top + (myRange.Height - .Height) / 2 '写真を縦方向に中央に配置
        End With
         '挿入する画像の位置を下に移動(1行分を足す)
            ActiveCell.Offset(SrowCont + 1).Activate
    Next i
'画面描画
    Application.ScreenUpdating = True
owari:
End Sub
 
 

 


タグ:Excel2000 VBA

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。