質問編集履歴
7
追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -383,3 +383,59 @@
|
|
383
383
|
、携帯ショップスタッフ→"時給1000円~1500円、CCC庶務→時給1100円と反映されるのが正しいです)
|
384
384
|
|
385
385
|
![イメージ説明](b996825e956260c3129d99737abdde5d.jpeg)
|
386
|
+
|
387
|
+
|
388
|
+
|
389
|
+
【追記】
|
390
|
+
|
391
|
+
ベストアンサーの方のコードを修正したものです
|
392
|
+
|
393
|
+
```
|
394
|
+
|
395
|
+
Sub 求人内容ごとによる給与の振り分け非正規雇用()
|
396
|
+
|
397
|
+
Dim i As Integer
|
398
|
+
|
399
|
+
For i = 12 To 300
|
400
|
+
|
401
|
+
jobs = Split(Cells(i, 7), vbLf)
|
402
|
+
|
403
|
+
pays = ""
|
404
|
+
|
405
|
+
For Each job In jobs
|
406
|
+
|
407
|
+
Select Case job
|
408
|
+
|
409
|
+
Case "携帯ショップスタッフ"
|
410
|
+
|
411
|
+
pay = "時給1000円~1500円"
|
412
|
+
|
413
|
+
Case "本社事務"
|
414
|
+
|
415
|
+
pay = "月給16~18万円"
|
416
|
+
|
417
|
+
Case "CCC営業アシスタント"
|
418
|
+
|
419
|
+
pay = "時給1100円"
|
420
|
+
|
421
|
+
pay = ""
|
422
|
+
|
423
|
+
End Select
|
424
|
+
|
425
|
+
If pay <> "" And pays <> "" Then
|
426
|
+
|
427
|
+
pays = pays & vbLf
|
428
|
+
|
429
|
+
End If
|
430
|
+
|
431
|
+
pays = pays & pay
|
432
|
+
|
433
|
+
Next
|
434
|
+
|
435
|
+
Cells(i, 8).Value = pays
|
436
|
+
|
437
|
+
Next
|
438
|
+
|
439
|
+
End Sub
|
440
|
+
|
441
|
+
```
|
6
追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -335,3 +335,51 @@
|
|
335
335
|
、携帯ショップスタッフ→"時給1000円~1500円、CCC庶務→時給1100円と反映されるのが正しいです)
|
336
336
|
|
337
337
|
![イメージ説明](dc0f67d7b5edc4eeab993fc57a67bc9d.jpeg)
|
338
|
+
|
339
|
+
|
340
|
+
|
341
|
+
|
342
|
+
|
343
|
+
【追記2】
|
344
|
+
|
345
|
+
```
|
346
|
+
|
347
|
+
Sub 求人内容ごとによる給与の振り分け非正規雇用()
|
348
|
+
|
349
|
+
Dim v As Variant
|
350
|
+
|
351
|
+
Dim i As Integer
|
352
|
+
|
353
|
+
For i = 12 To 300
|
354
|
+
|
355
|
+
If InStr(Cells(i, 7), "携帯ショップスタッフ") > 0 Then
|
356
|
+
|
357
|
+
Cells(i, 8).Value = "時給1000円~1500円"
|
358
|
+
|
359
|
+
End If
|
360
|
+
|
361
|
+
If InStr(Cells(i, 7), "本社事務") > 0 Then
|
362
|
+
|
363
|
+
Cells(i, 8).Value = Cells(i, 8).Value & vbLf & "月給16~18万円"
|
364
|
+
|
365
|
+
End If
|
366
|
+
|
367
|
+
If InStr(Cells(i, 7), "CCC庶務") > 0 Then
|
368
|
+
|
369
|
+
Cells(i, 8).Value = Cells(i, 8).Value & vbLf & "時給1100円"
|
370
|
+
|
371
|
+
End If
|
372
|
+
|
373
|
+
Next
|
374
|
+
|
375
|
+
End Sub
|
376
|
+
|
377
|
+
```
|
378
|
+
|
379
|
+
|
380
|
+
|
381
|
+
このように前後してしまいます。(本社事務→月給16~18万円
|
382
|
+
|
383
|
+
、携帯ショップスタッフ→"時給1000円~1500円、CCC庶務→時給1100円と反映されるのが正しいです)
|
384
|
+
|
385
|
+
![イメージ説明](b996825e956260c3129d99737abdde5d.jpeg)
|
5
追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -277,3 +277,61 @@
|
|
277
277
|
この画像の、13の行が正しい並びなのですが、どうしても14の行の並びになってしまいます。数字の大小?の順に勝手に並ぶようになっているのでしょうか。
|
278
278
|
|
279
279
|
よろしくお願いします。
|
280
|
+
|
281
|
+
|
282
|
+
|
283
|
+
【追記 ttyp03さんの回答を反映したコードになります】
|
284
|
+
|
285
|
+
```
|
286
|
+
|
287
|
+
Sub 求人内容ごとによる給与の振り分け非正規雇用()
|
288
|
+
|
289
|
+
Dim v As Variant
|
290
|
+
|
291
|
+
Dim i As Integer
|
292
|
+
|
293
|
+
For i = 12 To 300
|
294
|
+
|
295
|
+
If InStr(Cells(i, 7), "携帯ショップスタッフ") > 0 Then
|
296
|
+
|
297
|
+
Cells(i, 8).Value = "時給1000円~1500円"
|
298
|
+
|
299
|
+
End If
|
300
|
+
|
301
|
+
If InStr(Cells(i, 7), "本社事務") > 0 Then
|
302
|
+
|
303
|
+
Cells(i, 8).Value = "月給16~18万円"
|
304
|
+
|
305
|
+
End If
|
306
|
+
|
307
|
+
If InStr(Cells(i, 7), "CCC庶務") > 0 Then
|
308
|
+
|
309
|
+
Cells(i, 8).Value = "時給1100円"
|
310
|
+
|
311
|
+
End If
|
312
|
+
|
313
|
+
Next
|
314
|
+
|
315
|
+
End Sub
|
316
|
+
|
317
|
+
```
|
318
|
+
|
319
|
+
求人名を1つ入力し場合は問題なく給与が反映されます。
|
320
|
+
|
321
|
+
(本社事務→月給16~18万円と反映されています)
|
322
|
+
|
323
|
+
![](3a7c9a2d004ae5e2601232064f2c21dd.jpeg)
|
324
|
+
|
325
|
+
|
326
|
+
|
327
|
+
二つ以上入力しますと、うまく反映されません。(本社事務→月給16~18万円、携帯ショップスタッフ→"時給1000円~1500円と反映されるのが正しいです)
|
328
|
+
|
329
|
+
![イメージ説明](5e69c89f1b14794ed026646aa45f02dd.jpeg)
|
330
|
+
|
331
|
+
こちらも同じく
|
332
|
+
|
333
|
+
。(本社事務→月給16~18万円
|
334
|
+
|
335
|
+
、携帯ショップスタッフ→"時給1000円~1500円、CCC庶務→時給1100円と反映されるのが正しいです)
|
336
|
+
|
337
|
+
![イメージ説明](dc0f67d7b5edc4eeab993fc57a67bc9d.jpeg)
|
4
画像
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,4 +1,4 @@
|
|
1
|
-
現在
|
1
|
+
現在業務で使うエクセルの表の分類・入力を楽にするために
|
2
2
|
|
3
3
|
「セルG12~G300orI12~I300のどれか一つに『携帯ショップスタッフor本社事務or審査事務』などの求人名を入力すると、H12~300orJ12~300の対応するセルに『時給1000円~1500円or月給16~18万円or月収23万』の給与額が入力される(例えばG12に入力をしたらH12に反映される)」というものを作成しています。
|
4
4
|
|
3
画像
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,4 +1,4 @@
|
|
1
|
-
現在
|
1
|
+
現在![イメージ説明](2516d100ea9ef2ea80f93733eb145d61.jpeg)るエクセルの表の分類・入力を楽にするために
|
2
2
|
|
3
3
|
「セルG12~G300orI12~I300のどれか一つに『携帯ショップスタッフor本社事務or審査事務』などの求人名を入力すると、H12~300orJ12~300の対応するセルに『時給1000円~1500円or月給16~18万円or月収23万』の給与額が入力される(例えばG12に入力をしたらH12に反映される)」というものを作成しています。
|
4
4
|
|
@@ -256,7 +256,7 @@
|
|
256
256
|
|
257
257
|
If Not IsError(v) Then
|
258
258
|
|
259
|
-
Cells(i, 10).Value = Cells(i, 10).Value & vbLf & "月給24~36万円
|
259
|
+
Cells(i, 10).Value = Cells(i, 10).Value & vbLf & "月給24~36万円"
|
260
260
|
|
261
261
|
End If
|
262
262
|
|
@@ -270,7 +270,7 @@
|
|
270
270
|
|
271
271
|
```
|
272
272
|
|
273
|
-
|
273
|
+
![イメージ説明](86f09112a233213b01ccb109bb82419e.jpeg)
|
274
274
|
|
275
275
|
|
276
276
|
|
2
コード表記
test
CHANGED
File without changes
|
test
CHANGED
@@ -6,7 +6,7 @@
|
|
6
6
|
|
7
7
|
以下のコードを作成したのですが、入力をした求人名の順番通りに給与名が反映されず困っております。
|
8
8
|
|
9
|
-
|
9
|
+
```
|
10
10
|
|
11
11
|
Sub 求人内容ごとによる給与の振り分け非正規雇用()
|
12
12
|
|
@@ -146,10 +146,6 @@
|
|
146
146
|
|
147
147
|
|
148
148
|
|
149
|
-
------------------------------------------------------
|
150
|
-
|
151
|
-
|
152
|
-
|
153
149
|
Sub 求人内容ごとによる給与の振り分け正規雇用()
|
154
150
|
|
155
151
|
Dim v As Variant
|
@@ -272,9 +268,7 @@
|
|
272
268
|
|
273
269
|
End Sub
|
274
270
|
|
275
|
-
|
276
|
-
|
277
|
-
|
271
|
+
```
|
278
272
|
|
279
273
|
|
280
274
|
|
1
画像のアップ
test
CHANGED
File without changes
|
test
CHANGED
@@ -276,9 +276,7 @@
|
|
276
276
|
|
277
277
|
------------------------------------------------------
|
278
278
|
|
279
|
-
|
279
|
+
|
280
|
-
|
281
|
-
](f0007bbc6769d266521ab1e0d6ee441c.jpeg)
|
282
280
|
|
283
281
|
|
284
282
|
|