Excelワザ_「正」の字で表す

数値を「正」の字で表したい!
というお題を頂きました。
やってみましょう。

1.まず、「正」の字の
 「一、二、三、四画目」を外字で作成します。
 作り方は、ネットでググればすぐ出ますが…
 (Microsoftさんはサポート対象外らしいが…)
 Windowsの旗マーク+X
 →ファイル名を指定して実行。
 →「eudcedit」と入力。
 →外字作成画面。
 で4つの外字を作成。
b0186959_15411523.jpg

2.Excelで
 表示したい数値を「正」の字で表すには…
 こんな式で、出ました~。(^^ゞ

b0186959_15462671.jpg


はて、何に使うの?^^;
[PR]

by school-pc | 2016-01-29 15:49 | Comments(0)

パズル作成

冬ごもりの第2弾
エクセルマクロで、
オートシェイプで描いた絵を
5×10のピースにして、
パズルにします。
アスキーPCに載ってたマクロを
少々アレンジ。
b0186959_12215368.jpg


1.画像を準備
2.画像に合わせてセルの行高を変更。
 幅は8.38のまま、
 行高は40にしました。
 (画像により要調整)
3.わかりやすいように、
 セルH2~L11に格子の線を入れておきます。
b0186959_1353159.jpg

4.マクロ記述

Sub パズル作成()
'選択した画像で50分割のパズルを作成する
Dim FileName As Variant
Dim Zukei As Shape
Dim Piece As Range
Application.ScreenUpdating = False
FileName = Application.GetOpenFilename()
If FileName = False Then Exit Sub
For Each Zukei In ActiveSheet.Shapes
Zukei.Delete
Next Zukei
Range("b2").Select
ActiveSheet.Pictures.Insert(FileName).Select
Selection.Width = 270
Selection.Left = 50
Selection.Top = 40
Randomize
For Each Piece In Range("b2:f11")
Piece.CopyPicture
Range("h2").Select
ActiveSheet.Paste
Selection.Left = Rnd() * 501 + 600
Selection.Top = Rnd() * 31 + 150
Next Piece
Application.CutCopyMode = False
Range("a1").Select
Application.ScreenUpdating = True
End Sub

5.マクロ実行
 すると、
 まず、ファイルを開く画面が出て、
 目的の画像を指定、開く。
b0186959_12355377.jpg

6.すると、
 画像と、
 50ピースに切り取られた画像が
 表示されます。
b0186959_124087.jpg

7.これを、配置していきます。
 (Alt抑えながらドラッグすると、
 枠線にぴったり合って配置できます)
 わかりやすい部分から攻めて…
b0186959_12473378.jpg

8.完成!
b0186959_132625.jpg

画像の大きさによって、
数値を調整せんなんね(^-^;
[PR]

by school-pc | 2016-01-21 13:03 | Comments(0)

冬ごもり…モグラたたきゲーム

雪が降って寒い…^^;
おうちにこもって…
アスキーPCに載ってた
モグラたたきゲームを作りました。

モグラを描いて用意。
b0186959_14475864.png

エクセルマクロを記述。
Sub Mogura()
'モグラのイラストを10回クリックするタイムを競う
Dim LeftPoint As Single
Dim TopPoint As Single
Dim KaisiTime As Single
Dim SyuryouTime As Single
Dim myScore As Single

Randomize
LeftPoint = Rnd() * 301 + 300
TopPoint = Rnd() * 260 + 20

'1回目(最初)
If Range("c4").Value = "" Then
Range("c4").Value = 9
Range("c5").Value = Timer
ActiveSheet.Shapes("モグラ").Left = LeftPoint
ActiveSheet.Shapes("モグラ").Top = TopPoint

'10回目(最後)
ElseIf Range("c4").Value = 1 Then
SyuryoTime = Timer
KaisiTime = Range("c5").Value
myScore = SyuryoTime - KaisiTime
Range("c4:c5").Value = ""
Range("c21").Value = myScore
MsgBox "記録:" & myScore & "秒", vbInformation, "Score"

If myScore < Range("c23").Value Or Range("c23").Value = "" Then
Range("c23").Value = myScore
MsgBox "最高記録更新!", vbInformation
End If

'2~9回目
Else
Range("c4").Value = Range("c4").Value - 1
ActiveSheet.Shapes("モグラ").Left = leftPont
ActiveSheet.Shapes("モグラ").Top = TopPoint
End If
End Sub
b0186959_1455358.jpg

マクロをモグラに登録。
クリックするたびにモグラが移動。
モグラたたきのスピードを表示します。
b0186959_14573772.jpg

[PR]

by school-pc | 2016-01-20 14:57 | Comments(0)

来週は雪がふるそうな

b0186959_939474.jpg

[PR]

by school-pc | 2016-01-15 09:39 | Comments(0)

2016も元気で!

籠神社へ初詣。
大吉でした~~(^_-)-☆
b0186959_927016.jpg

しかし、暖冬で、
神社の梅も咲いている
b0186959_9455454.jpg

千躰地蔵のところにはアザミが咲いている
b0186959_9463182.jpg

[PR]

by school-pc | 2016-01-11 23:25 | Comments(0)

Iphone6復活

新品になった~~(^-^;
Itunesのバックアップファイルで復活!
けど、LINEは新規になってしまった。
3日で復旧できたら、まぁ良しとするか(^^♪
[PR]

by school-pc | 2016-01-08 16:15 | Comments(0)

Iphone故障中^^;

Appleのサポートで色々やった挙句…
故障交換ということに…(・。・;
症状は、バッテリーの異常な減り方。
朝100%満タンのバッテリーが
PM3:00には20%を切り
PM4:00には0%て…(;´・ω・)

サポートでやった事は
1.バッテリーを食いそうなものをすべてOFF
2.すべての設定をクリアで初期の状態に
3. itunesでバックアップを取り
  復元をして工場出荷時に戻す
 この過程で、
 復元途中でストップ。
4.サポートで復元、更新の手順を聞き
 再度復元を試みるが、ダメ。
 結局、交換修理。
(修理じゃないわね、新品に交換するって事やね^^;)
5.で、交換修理の新しいIphoneにするための
 決済途中で、またトラブル。
サポートにまたまた電話。
ここで、サポートが上級の技術者さんと交代。
リモートサービスを使って、
症状を確認。
で、IEやGoogleでは決済画面に
たどり着かなかったのに、
chromeなら、すんなり行けた!
ほ~~~(゜.゜)
chrome、なかなかやるなぁ~~(・。・;
Iphone 6、買って1年2か月で
新品に交換です~~(^-^;
[PR]

by school-pc | 2016-01-07 09:46 | Comments(0)

新年あけましておめでとうございます

本年もどうぞよろしくお願いいたします
b0186959_14245524.jpg

[PR]

by school-pc | 2016-01-01 01:06 | Comments(0)