一度は乗ってみたい！！リアルマリオカート！！

Business Media 誠：フォトリポート：あの幻のマシンやリアルマリオカートも！　「ノスタルジックカーショー2011」 via kwout

リアルマリオカート

ドリフトの前にはジャンプするのかな？

赤甲羅投げたりできるかな～～

続：デスマーチ・プロジェクトを回避！！

見積りの結果・・・

やっぱり上司からのダメ出しが

信頼性が薄い

本当にこんなに工数がかかるのか

わたくし、、、まだまだ力不足です

がんばらねば

デスマーチ・プロジェクトを回避！！

山浦恒央の“くみこみ”な話（31）：正確な見積もりはデスマーチ・プロジェクトを救うか？ - ＠IT MONOist via kwout

今私も見積りを立てていたますが、、、

本当に見積りって難しいですよね

前提条件の設定や根拠なんかを

考えていたらすごく時間かかるし、

でも見積り期限は短いしで

ほんと大変ですね

上の記事の対処３ができたらそりゃーいいのですが

エクセル：行の挿入と削除

エクセルの行の挿入と削除をショートカットキー一発で実施するマクロです。

保証とかは何もありません。
使う場合は全てにおいて自己責任にでお願いします。ｍ（＿＿）ｍ

行の挿入

Sub InsertLine()

' Keyboard Shortcut: Ctrl+Shift+I
' 行の挿入
'
'コピーや切取りの操作を取り消します
Application.CutCopyMode = False
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256)).Insert

End Sub

行の削除

Sub DeleteLine()

' Keyboard Shortcut: Ctrl+Shift+I
' 行の削除

'コピーや切取りの操作を取り消します
Application.CutCopyMode = False
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 256)).Delete

End Sub

これも前のマクロと同じでauto_openにショートカットキーを

登録しておきましょう。

Sub auto_open()

' Ctlr+Shift+I = 行挿入
Application.OnKey "+^{I}", "InsertLine"

' Ctlr+Shift+I = 行削除
Application.OnKey "+^{D}", "DeleteLine"

End Sub

矢印を簡単に引く

エクセルで選択範囲の中央に矢印を簡単に引くマクロです

保証とかは何もありません。
使う場合は全てにおいて自己責任にでお願いします。ｍ（＿＿）ｍ

先頭矢印

Sub AutoLine1()

' Keyboard Shortcut: Ctrl+Shift+L
' 先頭矢印の自動作成
'
Dim TP, LF, WD
TP = Selection.Top + (Selection.Height / 2)
LF = Selection.Left
WD = Selection.Width
ActiveSheet.Shapes.AddLine(LF, TP, LF + WD, TP).Select
Selection.ShapeRange.Line.BeginArrowheadStyle = msoArrowheadTriangle
ActiveCell.Select

End Sub

終端矢印

Sub AutoLine2()

' Keyboard Shortcut: Ctrl+Shift+R
' 終端矢印の自動作成
'
Dim TP, LF, WD
TP = Selection.Top + (Selection.Height / 2)
LF = Selection.Left
WD = Selection.Width
ActiveSheet.Shapes.AddLine(LF, TP, LF + WD, TP).Select
Selection.ShapeRange.Line.EndArrowheadStyle = msoArrowheadTriangle
ActiveCell.Select

End Sub

上マクロを有効にするには～～～

以下を記述しておきます。

ついでに間違って押しやすいF1（ヘルプ）を無効にしておきました。

キーのショートカット設定

Sub auto_open()

' F1キーを無効にする。
Application.OnKey "{F1}", ""

' Ctlr+Shift+L = 矢印先頭
Application.OnKey "+^{L}", "AutoLine1"

' Ctlr+Shift+R = 矢印終端
Application.OnKey "+^{R}", "AutoLine2"

End Sub


これで見積もりやプロジェクトのスケジュールが

はやくできるかな～