「用語」(2008/05/20 (火) 13:02:37) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
**用語・絵文字集
どんどん登録しちゃってください。
絵文字も募集中
//登録するときは五十音順でお願いします。
//絵文字はどんなものでもかまいません。
****用語(会話編)
-afk
離籍中の意味
-atk
攻撃しろ!(attackの略 アメリカのみ通用)
-orz
がっくりとうなだれている絵文字です。o頭 r手 zひざを突いてい
る足
-rom
離籍中の意味。最近ではあまり使われない。
-w
(笑)の略 数が多いと大笑い
-萌え
説明するの難しいね。だれかお願い。
****絵文字
-ワッショイ\(^▽^\)(/^▽^)/ワッショイ
とにかくうれしさをあらわしたいとき。盛り上げたいとき。
-Ю ◯⌒\(°∇°ゝフィンガーロール!
バスケットの技。
-Ю ○ \(`▽´\)ダンクシュート!
バスケ
****単位記号
㍉㌔㌢㍍㌘㌧㌃㌶㍑㍗㌍㌦㌣㌫㍊㌻
よく㌃よね。
㌧㌦
ちゃんと㌣だめだよ
い㌔(生きろ)
㍉(無理)
オ㌍(お帰り~)
カ㍗ル
マクロサンプル
Sub MacroDataSet()
'
' MacroDataSet
' 別のシートから値をとってくるマクロです。
' 発見できなかった場合はエラーとなります。
' マクロ記録日 : 2008/5/19 ユーザー名 : Yuka Hirohata
'
'
Dim Sheet1 As String 'シート1名前
Dim Sheet2 As String 'シート2名前
Sheet1 = "Sheet1"
Sheet2 = "Sheet2"
'シート1を上から下まで全て実行
Dim Row_Count1 As Long
Row_Count1 = ThisWorkbook.Worksheets(Sheet1).Range("A65536").End(xlUp).Row
Dim Text1 As String
Dim Row1 As Long
Row1 = 3 '何行目からデータがあるか
Do Until Row1 > Row_Count1
Dim name As String
'略称取得
name = ThisWorkbook.Worksheets(Sheet1).Cells(Row1, 1).Value
'正式名称取得
Texe1 = GetName(name)
'シート2から同じ名前を探し、値をとってくる
Dim Row_Count2 As Long
Row_Count2 = ThisWorkbook.Worksheets(Sheet2).Range("A65536").End(xlUp).Row
Dim Row2 As Long
Row2 = 1
Do Until Row2 > Row_Count2
'名前
Text2 = ThisWorkbook.Worksheets(Sheet2).Cells(Row2, 1).Value
'名前が一致
If Texe1 = Text2 Then
'シート2からシート1に必要なデータをコピーする
'値1
ThisWorkbook.Worksheets(Sheet1).Cells(Row1, 4).Value = ThisWorkbook.Worksheets(Sheet2).Cells(Row2, 2).Value
'値2
ThisWorkbook.Worksheets(Sheet1).Cells(Row1, 5).Value = ThisWorkbook.Worksheets(Sheet2).Cells(Row2, 3).Value
'値3
ThisWorkbook.Worksheets(Sheet1).Cells(Row1, 6).Value = ThisWorkbook.Worksheets(Sheet2).Cells(Row2, 4).Value
GoTo Break1
End If
Row2 = Row2 + 1
Loop
' 見つからなかった
'値1
ThisWorkbook.Worksheets(Sheet1).Cells(Row1, 4).Value = "Err"
Break1:
Row1 = Row1 + 1
Loop
End Sub
Function GetName(name As String) As String
' 略称を正式名称に変換する
Dim SheetName As String
SheetName = "名前変換テーブル"
Dim RowCount As Long
RowCount = ThisWorkbook.Worksheets(SheetName).Range("A65536").End(xlUp).Row
Dim Row As Long
Row = 2 '2行目から検索
Do Until Row > RowCount
If name = ThisWorkbook.Worksheets(SheetName).Cells(Row, 1) Then
GoTo Break1
End If
Row = Row + 1
Loop
Break1:
GetName = ThisWorkbook.Worksheets(SheetName).Cells(Row, 2)
End Function
**用語・絵文字集
どんどん登録しちゃってください。
絵文字も募集中
//登録するときは五十音順でお願いします。
//絵文字はどんなものでもかまいません。
****用語(会話編)
-afk
離籍中の意味
-atk
攻撃しろ!(attackの略 アメリカのみ通用)
-orz
がっくりとうなだれている絵文字です。o頭 r手 zひざを突いてい
る足
-rom
離籍中の意味。最近ではあまり使われない。
-w
(笑)の略 数が多いと大笑い
-萌え
説明するの難しいね。だれかお願い。
****絵文字
-ワッショイ\(^▽^\)(/^▽^)/ワッショイ
とにかくうれしさをあらわしたいとき。盛り上げたいとき。
-Ю ◯⌒\(°∇°ゝフィンガーロール!
バスケットの技。
-Ю ○ \(`▽´\)ダンクシュート!
バスケ
****単位記号
㍉㌔㌢㍍㌘㌧㌃㌶㍑㍗㌍㌦㌣㌫㍊㌻
よく㌃よね。
㌧㌦
ちゃんと㌣だめだよ
い㌔(生きろ)
㍉(無理)
オ㌍(お帰り~)
カ㍗ル
表示オプション
横に並べて表示:
変化行の前後のみ表示: