<   2016年 01月 ( 8 )   > この月の画像一覧

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)


能力評価・キャリア形成


by school-pc

プロフィールを見る
画像一覧

S M T W T F S
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31

案内

所在:京都府舞鶴市南田辺105
TEL : 0773-75-5512

タグ

(162)
(144)
(83)
(69)
(58)
(58)
(46)
(33)
(18)
(16)
(15)
(13)
(10)
(8)
(6)
(6)
(5)
(2)
(2)
(2)

カテゴリ

全体
タウンパーク舞鶴
PC-School
未分類

以前の記事

2017年 09月
2017年 07月
2017年 06月
2017年 05月
2017年 04月
2017年 03月
2017年 02月
2017年 01月
2016年 12月
2016年 11月
more...

フォロー中のブログ

エキサイトブログ向上委員会

最新のコメント

ありがとうございます! ..
by Faber Sid at 21:02
ありがとうございました。..
by ぴ at 08:44
MSさん、7/29迄に何..
by school-pc at 13:49
もうWin10の強制アッ..
by yuki at 23:34
school-pcさま ..
by kizen777 at 01:58
参考になるのでしたらどう..
by school-pc at 16:59
内容、修正しました。 ..
by school-pc at 10:19
こんにちは。こちらでいろ..
by Tatsuya at 17:59
2013…なんかちがう(..
by school-pc at 09:20
まじですか!?会社のPC..
by ユキンコ at 07:51

最新のトラックバック

venussome.com
from venussome.com
venuspoor.com
from venuspoor.com
www.whilelim..
from www.whilelimit..
http://while..
from http://whileli..
http://www.v..
from http://www.val..
DELL ノートパソコン..
from まいにちの、こと。

ライフログ

ファン

記事ランキング

ブログジャンル

キャリア・資格

画像一覧