1: 闇の野原ひまわり：2022/12/07(水) 05:01

私はB型版春川幸恵になりきってしまいました☆乱入ぼちぼち可☆

4: 闇の野原ひまわり：2022/12/07(水) 05:25

�Oのため上尾先生

7: 闇の野原ひまわり：2022/12/07(水) 19:54

他にもB型版春川幸恵は栗山千明や宮崎あおい、AB型版春川幸恵は�O浦翔平や千葉雄大も好きです

1: も/mo：2022/11/16(水) 21:51

閲覧ﾏﾙ
乱入ﾊﾞﾂ
忘れっぽいから〜

1: LAMII：2022/07/26(火) 22:50

わたしの

5: 瑠璃　Ruri　農作物団体１１番目隊員（？）顔文字怖い◆ItM：2022/08/25(木) 15:14

あの日見た花の名�Oを僕達はまだ知らないッッ

150.246.237.212/p96f6edd4.hyognt01.ap.so-net.ne.jp
Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.0.0 Safari/537.36 A33435

1: AOちゃ！！☆彡：2021/07/28(水) 18:02

🐰注意🐰
・閲覧🙆‍♀️
・荒らし🙅‍♀️
・書き込み🙅‍♀️

とにかく変なことを書き込んだりします…(⌒-⌒; )
すたーと٩( ᐛ )و

13: こあちゃ。&◆jQ：2022/04/05(火) 13:17

30日、学校�O集合

 【画像一覧】

1: 弓釈子◆k.：2021/02/06(土) 21:38

主にオリキャラ、美人女優、閲覧乱入書き込み可

3: 弓釈子◆k.：2021/02/06(土) 21:42

私のオリキャラ設定集

名�O
高橋美穂
年齢
27歳
誕生日
1993年5月6日
星座
おうし座
血液型
AB型(RHマイナス、父A型、母B型)
似ている芸能人
栗山千明か香里奈か加藤あい

4: 弓釈子◆k.：2021/02/06(土) 21:45

私のオリキャラの名�Oは、川島愛梨、岡田瞳、佐藤遥なども考えていました

1: ポメラニアン◆ao：2021/01/10(日) 17:55

田中ちゃんどうなるんだ

4: ポメラニアン◆ao：2021/01/11(月) 22:22

ハリポタ読み始めてこんなにありがたかった事は無いね。お陰でホ�Oワーツ出たとき
対処がしやすいったら無いよ。

5: ポメラニアン◆ao：2021/01/14(木) 00:08

ホ�Oワーツいつになったら抜けるかな…一回別のパートで他の人に移すかな〜

1: ｇｔｇｔ：2020/04/02(木) 17:37

てすと

2: ｇｔｇｔ：2020/04/02(木) 17:53

'●指定したシート内のセルに変更があった場合実行される
'sheet1をダブルクリックしworksheetとChangeを選択する
'セル1〜15行目1〜3列目に変更があった場合実行
'A1〜A10をコピーしD1へ張り付ける

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <= 15 And Target.Column <= 3 Then
Range("A1:A10").Copy Range("D1")
End If
End Sub


Private Sub CommandButton1_Click()
If OptionButton1.Value = True Then
Worksheets(1).Range("B2").Value = OptionButton1.Caption
ElseIf OptionButton2.Value = True Then
Worksheets(1).Range("B2").Value = OptionButton2.Caption
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Target.Row = 1 And Target.Column = 3) Then End 'C1セルにアクティブしたら次の処理へ
' If Not (Target.Row >= 1 And Target.Column <= 2 And Target.Row >= 2 And Target.Column <= 3) Then End 'B1:C2 内のセルにアクティブしたら次の処理
UserForm1.Show
End Sub

'#If VBA7 Then
Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '←64bitではPtrSafeを付けることが重要！
'#Else
'Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
'#End If


プリントスクリーンを実行させるソース
Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_EXTENDEDKEY As Long = &H1
Private Const KEYEVENTF_KEYUP As Long = &H2
Private Const fKEYDOWN = KEYEVENTF_EXTENDEDKEY
Private Const fKEYUP = KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP

Sub Sample()
keybd_event vbKeySnapshot, 0&, fKEYDOWN, 0&
keybd_event vbKeySnapshot, 0&, fKEYUP, 0&
'貼り付け処理
End Sub

ファイルを開く
CreateObject("Shell.Application").ShellExecute "C:\Users\Documents\test01.pdf"

Sub PDF読み取り()
CreateObject("Shell.Application").ShellExecute "C:\Users\Documents\test.pdf"
Sleep 1000
SendKeys ("^a"), True
Sleep 500
SendKeys ("^c"), True
Sleep 3000
SendKeys ("^q"), True
Sleep 2000
Windows("vba.xlsm").Activate
Sheets("Sheet4").Activate
Sleep 2000
ActiveSheet.Paste Destination:=Range("B4")
'Sleep 3000
'SendKeys ("^V"), True
End Sub


Sub PDFからTEXT抜き取り()
CreateObject("Shell.Application").ShellExecute "C:\Users\Documents\test01.pdf"
Sleep 3000
SendKeys ("^a"), True
Sleep 500
SendKeys ("^c"), True
Sleep 500
SendKeys ("^q"), True
Sleep 2000
End Sub

4: ｇｔｇｔ：2020/04/02(木) 17:54

Option Explicit
Sub 平均合計を書き出す()
Dim sum, ave, i As Long
Dim gg, mmm, all As String
Dim MaxRow As Long

MaxRow = Range("A1").SpecialCells(xlLastCell).Row

For i = 2 To MaxRow
gg = "G" & i
mmm = "M" & i
all = gg & ":" & mmm

ave = WorksheetFunction.Average(Range(all)) '平均値
' sum = WorksheetFunction.sum(Range(all))　　　　 '合計

Range("N" & i) = ave
Next i
End Sub

Sub 変更をして書き出す()
Dim i, j As Long
Dim sum, gg, mmm, all, ave ' As String
Dim MaxRow, MaxColumn 'As Long
Dim strData As Long

MaxRow = Range("A1").SpecialCells(xlLastCell).Row
MaxColumn = Range("A1").SpecialCells(xlLastCell).Column

ReDim dall(MaxRow, MaxColumn) 'As Long

'データ開始行を入力
strData = Application.InputBox("ﾃﾞｰﾀ行は" & vbLf & "(必須入力)", "ﾃﾞｰﾀ行は", "2")
For j = strData To MaxRow
For i = 1 To MaxColumn
dall(j, i) = Cells(j, i)
If i = 7 Then
dall(j, i) = dall(j, i) + "1000"
ElseIf dall(j, i) = "A1019" Then 'セル内に"A1019"があったら
dall(j, i) = dall(j, i) & "ggg" '"A1019"に"ggg"を付ける
ElseIf i = 10 Then
dall(j, i) = dall(j, i) & "C"
End If
Next i

Next j
Cells(1, MaxColumn + 1).Resize(MaxRow + 1, MaxColumn + 1).Value = dall
' Range("S1").Resize(MaxRow + 1, MaxColumn + 1).Value = dall
End Sub

1: ◆NE：2020/02/22(土) 13:45

　　　　_____さあ、ゲームを始めようか？

　　　　　　

2: ◆NE：2020/02/22(土) 14:03

　　“ クラス長ゲーム ”

　
　それは、１年Ａ組が作った『王様ゲーム』のクラス版。

　普段の平和な日常に�Oきてスリルを求めた生徒が考案し
　たもので、今でも１年Ａ組の生徒達の間で行われている。

　ルールは簡単。
　クラス全員でクジを引き、当たった人をクラス長にする。
　クラス長の命令は絶対。
　その命令がたとえ命に関わることでも...

　
　　あなたはこのゲームをどう思いますか？






5: ◆NE：2020/02/22(土) 14:12

　　“ クラス長ゲーム ”

　
　それは、１年Ａ組が作った『王様ゲーム』のクラス版。

普段の平和な日常に�Oきてスリルを求めた生徒が考案したもので、今でも１年Ａ組の生徒達の間で行われている。

　ルールは簡単。
クラス全員でクジを引き、当たった人をクラス長にする。
クラス長の命令は絶対。
その命令がたとえ命に関わることでも...

　
　　あなたはこのゲームをどう思いますか？






1: 蜜柑◆Sw：2019/10/04(金) 20:38

題名通りです。

12: 蜜柑◆Sw：2019/11/20(水) 09:40

夜空とDollとすずきつねに届け！
受験あるから葉っぱは、中学までは出来ない
本当にごめんね
難民板で待っててくれてありがとう😊
難民板書き込めないから、ここで伝えたの
それと、このスレ乱入OKにしちゃいます！あ、でも絵は見ないでね？黒歴史みたいにキモいから()
中学なったら毎日葉っぱできるから、長いけど待っててね(没収されない限りだけどね!)
2月には出来るかもしれないけど(受験日過ぎたあとだから)
できなかったら許してね(*^◯^*)
中学まで心配しないで、待っててください！
これを伝えたかったから！
またね！

13: 蜜柑◆Sw：2019/11/20(水) 09:53

あとね、蜜柑って名�Oの人結構いるから、
空き蜜缶
にする！
結構良くない？？

 【画像一覧】

1: 美桜◆YE：2019/09/25(水) 17:23

私以�O閲覧&カキコ禁止！
小説のメモなどを書きます_φ(･_･